quiero Vuestra ayuda para aprender un poco para mis tareas diarias.
lo que necesito de momento es lo siguiente:
tengo 2 hoja en el libro de excel y "Sheet1" es hoja principal y "sheet2" es solamente para tareas terminadas
en la sheet1 tengo todos los datos (Tareas pendientes") y en esta hoha"Sheet1" en la columna "H" pongo datos cuando esta treminada.
lo que quiero, es un codigo que me haga lo siguiente.
1- cuando pongo algo en la columna "H" esta fila me corta de la sheet1 y pega en el "SHEET2" en la ultima fila disponible
2- y de la sheet1 se borra dicha fila
de momento eso es todo lo que quiero
adjunto el archivo
estaba escribiendo este macro pero me pasa solamente primera fila y pega en la misma fila
Sub Copiar_Pegar()
Dim ir As Integer, r As Integer, erow As Integer
ir = ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
'MsgBox ir
For r = 5 To ir
If Cells(r, 8).Value <> "" Then
'este de relleno es solamente era para ver si me busca la fila o no
'es Opcional o no es necesario
Range(Cells(r, 1), Cells(r, 9)).Interior.Color = RGB(255, 180, 200)
Range(Cells(r, 1), Cells(r, 9)).Cut
Sheets("Sheet2").Select
erow = ActiveSheet.Cells(Rows.Count).End(xlUp).Row + 1
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Cells(erow, 1).PasteSpecial.xlPasteValues
Sheets("data").Select
End If
Next r
Application.CutCopyMode = False
End Sub
Buenas Tarde a Tod@s
soy Nuevo con VBA y
hablo español muy mal
quiero Vuestra ayuda para aprender un poco para mis tareas diarias.
lo que necesito de momento es lo siguiente:
tengo 2 hoja en el libro de excel y "Sheet1" es hoja principal y "sheet2" es solamente para tareas terminadas
en la sheet1 tengo todos los datos (Tareas pendientes") y en esta hoha"Sheet1" en la columna "H" pongo datos cuando esta treminada.
lo que quiero, es un codigo que me haga lo siguiente.
1- cuando pongo algo en la columna "H" esta fila me corta de la sheet1 y pega en el "SHEET2" en la ultima fila disponible
2- y de la sheet1 se borra dicha fila
de momento eso es todo lo que quiero
adjunto el archivo
estaba escribiendo este macro pero me pasa solamente primera fila y pega en la misma fila
Sub Copiar_Pegar() Dim ir As Integer, r As Integer, erow As Integer ir = ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 'MsgBox ir For r = 5 To ir If Cells(r, 8).Value <> "" Then 'este de relleno es solamente era para ver si me busca la fila o no 'es Opcional o no es necesario Range(Cells(r, 1), Cells(r, 9)).Interior.Color = RGB(255, 180, 200) Range(Cells(r, 1), Cells(r, 9)).Cut Sheets("Sheet2").Select erow = ActiveSheet.Cells(Rows.Count).End(xlUp).Row + 1 ActiveSheet.Cells(erow, 1).Select ActiveSheet.Cells(erow, 1).PasteSpecial.xlPasteValues Sheets("data").Select End If Next r Application.CutCopyMode = False End SubCopiar y pegar.zip