none
Duvida rotina de repetição RRS feed

  • Pergunta

  • Pessoal, boa tarde!

    Preciso de uma rotina que complemente a coluna E, com os dados da coluna G, quando a coluna E estiver vazia (conforme imagem).

    Alguém pode me ajudar com esta rotina?

    terça-feira, 26 de setembro de 2017 14:58

Respostas

  • Sub teste()
    
        Dim i As Long
        
        For i = 1 To ThisWorkbook.Sheets("Planilha1").UsedRange.Rows.Count
            
            If ThisWorkbook.Sheets("Planilha1").Cells(i, 5).Value = "" Then
                
                ThisWorkbook.Sheets("Planilha1").Cells(i, 5).Value = ThisWorkbook.Sheets("Planilha1").Cells(i, 7).Value
                
            End If
            
        Next i
        
        
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 terça-feira, 26 de setembro de 2017 16:11
    • Marcado como Resposta vnReis terça-feira, 26 de setembro de 2017 16:54
    terça-feira, 26 de setembro de 2017 16:09

Todas as Respostas

  • Sub teste()
    
        Dim i As Long
        
        For i = 1 To ThisWorkbook.Sheets("Planilha1").UsedRange.Rows.Count
            
            If ThisWorkbook.Sheets("Planilha1").Cells(i, 5).Value = "" Then
                
                ThisWorkbook.Sheets("Planilha1").Cells(i, 5).Value = ThisWorkbook.Sheets("Planilha1").Cells(i, 7).Value
                
            End If
            
        Next i
        
        
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 terça-feira, 26 de setembro de 2017 16:11
    • Marcado como Resposta vnReis terça-feira, 26 de setembro de 2017 16:54
    terça-feira, 26 de setembro de 2017 16:09
  • Favor marcar como respondido.

    Anderson Diniz

    terça-feira, 26 de setembro de 2017 16:13
  • Muito obrigado!
    terça-feira, 26 de setembro de 2017 16:55