codigo abaixo escreva 0 sempre uma celula com conteudo for encontrada

Question

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

Answer 1

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("A" & cell.Row).Value = 0
        End If
    Next cell
End Sub

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]

Answer 2

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").Cells(cell.Row, cell.Column).Offset(0, -7).Value = 0
        End If
    Next cell
End Sub

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]