Usuário com melhor resposta
Duvida rotina de repetição

Pergunta
-
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
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
-
-