Macro para Copiar de una hoja a otra
Tengo la siguiente macro tuya, pero he modificado unas cosas, y ya no me funciona.
Sub copiar()
'
''*Por Adriel Ortiz
'
Set h1 = Sheets("HOJA DE CAJA")
Set h2 = Sheets("DIARIO")
u = h2.Range("A" & Rows.Count).End(xlUp).Row
'
If u < 2 Then u = 2
h1.Range("F2:CV2").Copy 'rango a copiar
'
h2.Range("A" & u).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'
strTitulo = "Contaplus"
Continuar = MsgBox("¿CONTABILIZAR DATOS?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
End Sub
El rango a copiar se encuentra en la "HOJA de CAJA" (F2:CV2), es una linea solo.
Y se tendría que pegar en la hoja "DIARIO", a partir de A2 sin que se sobre copien los datos que hayan en esta hoja.
[Hola
Te paso la macro actualizada
Sub copiar()
'
''*Por Adriel Ortiz
'
Set h1 = Sheets("HOJA DE CAJA")
Set h2 = Sheets("DIARIO")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
'
strTitulo = "Contaplus"
If MsgBox("¿CONTABILIZAR DATOS?", vbYesNo + vbExclamation, strTitulo) = vbYes Then
'
If u < 2 Then u = 2
h1.Range("F2:CV2").Copy 'rango a copiar
'
h2.Range("A" & u).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
MsgBox "Cancelado"
Exit Sub
End If
End SubValora la respuesta para finalizar saludos!
