Copy Non-Blank Text from Column 3 to Column 2

[howard]

I have written VBA code to copy Non-Blank Text from cloumn 3 to column 2 which I have listed below. The code is not doing anything.

FinalRow = Cells(65536, 1).End(xlUp).Row
For I = FinalRow To 1 Step 1
If Cells(I, 3).Value <> "" Then
Cells(I, 3).Selection.Copy
Cells(I, 2).Selection.Paste
End If
Next I
End Sub


It would be appreciated if someone could assist
[/list][/list]

 

[Greg Truby]

Bueno, no veo donde hay la parte de su mensaje que require ayuda en un idioma que no sea inglés. Pero para que sepa, su error fue que el paso de su bucle es positivo. Si usted necesita caminar al revés ponga un paso negativo.

Sub foo()
    Dim lngFinalRow As Long, lngRow As Long
    
    lngFinalRow = Cells(65536, 1).End(xlUp).Row
    For lngRow = lngFinalRow To 1 Step -1
        With Cells(lngRow, 3)
            If .Value <> vbNullString Then .Copy .Offset(, -1)
        End With
    Next lngRow
End Sub

O camine el bucle normalmente - de abajo para arriba...

Sub foo()
    Dim lngFinalRow As Long, lngRow As Long
    
    lngFinalRow = Cells(65536, 1).End(xlUp).Row
    For lngRow = 1 to lngFinalRow 
        With Cells(lngRow, 3)
            If .Value <> vbNullString Then .Copy .Offset(, -1)
        End With
    Next lngRow
End Sub

 

[howard]

Thanks for all the help. MaVBA code working perfectly.