Preciso que o codigo abaixo escreva 0 sempre uma celula com conteudo for encontrada.
porem o codigo so faz isso uma vez
alguem poderia me ajudar?
Sub cronograma()
Dim cell As Variant
Dim grade_operacoes As Range
Set grade_operacoes = ThisWorkbook.Sheets("Planilha1").Range("H2:AJ10")
For Each cell In grade_operacoes
If cell.Value <> "" Then
Worksheets("Planilha3").Range("A1").Offset(1, 0).Value = 0
End If
Next cell
End Sub