Mejorar Macro ya existente y ojalá una manera más rápida de ejecución
Tengo esta macro y me gustaría que me ayudaras a mejorarla y si es posible que se ejecute más rápido, mejor:
Sub CopiarNumero()
'
' CopiarNumero Macro
'
'
Sheets("FORMULARIO").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CLIENTE").Select
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VISITAS").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULARIO").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CLIENTE").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VISITAS").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULARIO").Select
Range("E7").Select
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Puede ser así:
Sub CopiarNumero()
'Act.Por.Dante Amor
Set h1 = Sheets("FORMULARIO")
Set h2 = Sheets("CLIENTE")
Set h3 = Sheets("VISITAS")
'
h2.[E7] = h1.[E7]
h3.[C7] = h1.[E7]
h2.[E5] = h1.[E6]
h3.[C6] = h1.[E6]
End Subo así:
Sub CopiarNumero2()
'Act.Por.Dante Amor
With Sheets("FORMULARIO")
Sheets("CLIENTE").[E7] = .[E7]
Sheets("VISITAS").[C7] = .[E7]
Sheets("CLIENTE").[E5] = .[E6]
Sheets("VISITAS").[C6] = .[E6]
End With
End SubO así:
Sub CopiarNumero3()
'Act.Por.Dante Amor
Sheets("CLIENTE").[E7] = Sheets("FORMULARIO").[E7]
Sheets("VISITAS").[C7] = Sheets("FORMULARIO").[E7]
Sheets("CLIENTE").[E5] = Sheets("FORMULARIO").[E6]
Sheets("VISITAS").[C6] = Sheets("FORMULARIO").[E6]
End Sub'
s a l u d o s
