Tengo un problema
Buen día.
!Espero estén muy bien!
Tengo el siguiente problema:
al crear una macro, realicé los siguientes pasos:
1. Declare las siguientes variables:
Dim archivoOrigen As Workbook
Dim archivoDestino As Workbook
Dim hojaOrigen As WorkSheet
Dim hojaDestino As WorkSheet
Dim rutaArchivo As Variant
2. realicé las siguientes instrucciones para realizar las acciones de abrir el archivo origen y archivo destino, (hasta este paso la macro se ejecuta sin error)
rutaArchivo = Application.GetOpenFilename (FileFilter:="Archivos de Excel (*.xlsx;*.xls),*.xlsx;*.xls", Title:="Seleccionar archivo de orgen")
If rutaArchivo <> False Then
Set archivoDestino = Workbooks.Open (rutaArhcivo, UpdateLlinks:=False)
End If
rutaArchivo = Application.GetOpenFilename (FileFilter:="Archivos de Excel (*.xlsm),*.xlsm", Title:="Seleccionar archivo destino")
If rutaArchivo <> False Then
Set archivoDestino = Workbooks.Open (rutaArhcivo, UpdateLlinks:=False)
End If
3. Realicé las instrucciones para copiar datos del archivo origen al archivo destino de la siguente manera, (cuando incluyo este paso genera el error):
'Especificar hojas y celdas a copiar
Set hojaOrigen = archivoOrigen.sheets ("BD") 'Nombre de la hoja origen1
Set hojaDestino = archivoDestino.Sheets("BD") 'Nombre de la hoja de destino1
'Copiar celdas individuales
hojaOrigen.Range ("G12:G14").copy Destination:=hojaDestino.Range("G12:G14")
End Sub
4. cuando ejecuto la macro, me sale el siguiente error "Run-time error '91': Object variable or with block variable not set" y luego sale "Can't execute code in break mode"
Agradezco mucho su ayuda con la solución de este problema!
Mil gracias!
!Espero estén muy bien!
Tengo el siguiente problema:
al crear una macro, realicé los siguientes pasos:
1. Declare las siguientes variables:
Dim archivoOrigen As Workbook
Dim archivoDestino As Workbook
Dim hojaOrigen As WorkSheet
Dim hojaDestino As WorkSheet
Dim rutaArchivo As Variant
2. realicé las siguientes instrucciones para realizar las acciones de abrir el archivo origen y archivo destino, (hasta este paso la macro se ejecuta sin error)
rutaArchivo = Application.GetOpenFilename (FileFilter:="Archivos de Excel (*.xlsx;*.xls),*.xlsx;*.xls", Title:="Seleccionar archivo de orgen")
If rutaArchivo <> False Then
Set archivoDestino = Workbooks.Open (rutaArhcivo, UpdateLlinks:=False)
End If
rutaArchivo = Application.GetOpenFilename (FileFilter:="Archivos de Excel (*.xlsm),*.xlsm", Title:="Seleccionar archivo destino")
If rutaArchivo <> False Then
Set archivoDestino = Workbooks.Open (rutaArhcivo, UpdateLlinks:=False)
End If
3. Realicé las instrucciones para copiar datos del archivo origen al archivo destino de la siguente manera, (cuando incluyo este paso genera el error):
'Especificar hojas y celdas a copiar
Set hojaOrigen = archivoOrigen.sheets ("BD") 'Nombre de la hoja origen1
Set hojaDestino = archivoDestino.Sheets("BD") 'Nombre de la hoja de destino1
'Copiar celdas individuales
hojaOrigen.Range ("G12:G14").copy Destination:=hojaDestino.Range("G12:G14")
End Sub
4. cuando ejecuto la macro, me sale el siguiente error "Run-time error '91': Object variable or with block variable not set" y luego sale "Can't execute code in break mode"
Agradezco mucho su ayuda con la solución de este problema!
Mil gracias!