Actividad pública reciente
Ha valorado "Excelente" la respuesta
Excel: Copiar y pegar celdas con condición
[Hola Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("C" & Rows.Count).End(xlUp).Row + 1 h1.Range("A5:E5").Copy h2.Range("C" & u).PasteSpecial xlAll ' Application.CutCopyMode = False MsgBox "Copiado" End Sub Valora la...
Ha cambiado su perfil.
- Ha cambiado su foto.
Ha empezado a seguir a 
Dante Amor
Dante Amor
Ha valorado "Excelente" la respuesta
Copiar con una macro una celda y pegarla en otra hoja en una celda si esta esta vacía pegar sino bajar y pegar en la siguiente.
Te anexo la macro Sub Copiar_Celdas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Range("A2, C2").Copy h2.Range("A" & u) MsgBox "Celdas copiadas" End Sub . 'S aludos. Dante...