none
codigo abaixo escreva 0 sempre uma celula com conteudo for encontrada RRS feed

  • Pergunta

  • 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

    terça-feira, 22 de dezembro de 2020 00:16

Todas as Respostas

  • 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 diniabr2011@gmail.com


    • Editado AndersonFDiniz2 terça-feira, 22 de dezembro de 2020 10:30
    • Sugerido como Resposta AndersonFDiniz2 terça-feira, 22 de dezembro de 2020 11:08
    terça-feira, 22 de dezembro de 2020 10:29
  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 terça-feira, 22 de dezembro de 2020 11:08
    terça-feira, 22 de dezembro de 2020 10:59