Hola, tengo una macro que me copia datos a una hoja dada, pero quisiera que cuando copie los datos y vaya a pegarlos, me pregunte el nombre de la hoja adonde quiero pegar los datos copiados. La macro es simple, ya que entiendo poco de programación
Sub Datos_Capital()
'
' Datos_Capital Macro
'
'
Sheets("201").Select
ActiveWindow.SmallScroll Down:=-69
Cells.Select
Selection.Copy
Sheets("220").Select -------------->aqui es donde quisiera me preguntase el nombre u hoja a copiar
Range("A1").Select
ActiveSheet.Paste
Range("C2:K2").Select
Selection.Replace What:="3", Replacement:="22", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola, tengo una macro que me copia datos a una hoja dada, pero quisiera que cuando copie los datos y vaya a pegarlos, me pregunte el nombre de la hoja adonde quiero pegar los datos copiados. La macro es simple, ya que entiendo poco de programación
Sub Datos_Capital()
'
' Datos_Capital Macro
'
'
Sheets("201").Select
ActiveWindow.SmallScroll Down:=-69
Cells.Select
Selection.Copy
Sheets("220").Select -------------->aqui es donde quisiera me preguntase el nombre u hoja a copiar
Range("A1").Select
ActiveSheet.Paste
Range("C2:K2").Select
Selection.Replace What:="3", Replacement:="22", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub