Tenho um requisito para capturar o nome do funcionário cujas células de login e logout estão vazias e colar do intervalo de células "A30". Usei a condição for loop e if para capturar o funcionário cujas células de login e logout estão vazias. Ao usar o código abaixo, recebo apenas a última pessoa cujas células de login e logout estão vazias.
Como capturar todas as células de login e logout do funcionário que estão vazias.
For i = 2 To a
If Worksheets("Output").Cells(i, 3).Value = "" And Worksheets("Output").Cells(i, 4).Value = "" Then
Worksheets("Output").Cells(i, 1).Copy
ThisWorkbook.Worksheets("Output").Range("A35").PasteSpecial xlPasteValues
End If
Next
A maneira fácil de fazer isso é ter uma variável, que então é incrementada em seu loop for. Como você cola em uma única célula a cada vez, pode usar Células (x, y) em vez de um intervalo. Isso torna mais fácil usar a variável. Algo assim deve funcionar para você:
Dim startOut As Integer
startOut = 30
For i = 2 To a
If Worksheets("Output").Cells(i, 3).Value = "" And Worksheets("Output").Cells(i, 4).Value = "" Then
Worksheets("Output").Cells(i, 1).Copy
ThisWorkbook.Worksheets("Output").Cells(startOut, 1).PasteSpecial xlPasteValues
startOut = startOut + 1
End If
Next
Este artigo é coletado da Internet.
Se houver alguma infração, entre em [email protected] Delete.
deixe-me dizer algumas palavras