Pegar en fila de ultima casilla vacía Columna C
Hola Amigo, tengo un problemilla con una macro que tenia de hace tiempo, es esta:
Sub macro1()
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 18)).Cut
Sheets("Hoja 2").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja 1").Select
Selection.EntireRow.Delete Shift:=xlUp
End Sub
Te explico como funciona para que entiendas el problema, primero selecciono una fila de la hoja 1 y ejecuto la macro y hace lo siguiente:
1.- Las 18 primeras celdas de la fila seleccionada en la hoja 1, las pega en la primera fila vacía que encuentra en la hoja 2
2.- Vuelve a la hoja 1 y elimina la fila que había seleccionado
El problema es que para buscar la primera fila vacía de la hoja 2, se fija en la columna A y lo que yo necesito es que se fije en la columna C. Es decir solo debe mirar la columna c para ver la fila vacía, pero al pegar debe empezar a pegar desde la A
Espero me puedas ayudar, de todos modos gracias por tu tiempo
Sub macro1()
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 18)).Cut
Sheets("Hoja 2").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja 1").Select
Selection.EntireRow.Delete Shift:=xlUp
End Sub
Te explico como funciona para que entiendas el problema, primero selecciono una fila de la hoja 1 y ejecuto la macro y hace lo siguiente:
1.- Las 18 primeras celdas de la fila seleccionada en la hoja 1, las pega en la primera fila vacía que encuentra en la hoja 2
2.- Vuelve a la hoja 1 y elimina la fila que había seleccionado
El problema es que para buscar la primera fila vacía de la hoja 2, se fija en la columna A y lo que yo necesito es que se fije en la columna C. Es decir solo debe mirar la columna c para ver la fila vacía, pero al pegar debe empezar a pegar desde la A
Espero me puedas ayudar, de todos modos gracias por tu tiempo
1 Respuesta
Respuesta de leone
1
Prueba con las modificaciones que he realizado y me avisas.
Sub macro1()
Sheets("Hoja1").Select
Range("A1").Select
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 18)).Cut
Sheets(2).Select
Range("C1").Select
If IsEmpty(Range("C1").Value) = False Then
If IsEmpty(Range("C2").Value) = True Then
Cells(ActiveCell.Row + 1, 1).Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
End If
End If
Cells(ActiveCell.Row, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select
Selection.EntireRow.Delete Shift:=xlUp
End Sub
Sub macro1()
Sheets("Hoja1").Select
Range("A1").Select
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 18)).Cut
Sheets(2).Select
Range("C1").Select
If IsEmpty(Range("C1").Value) = False Then
If IsEmpty(Range("C2").Value) = True Then
Cells(ActiveCell.Row + 1, 1).Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
End If
End If
Cells(ActiveCell.Row, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select
Selection.EntireRow.Delete Shift:=xlUp
End Sub
