Clases
1: Introducción a las Macros en Excel
2: Editor de Visual Basic
3: Fundamentos de VBA y el Modelo de Objetos en Excel
4: Herramientas de VBA para agilizar tu aprendizaje
5: Manipulación de celdas, rangos, filas y columnas
6: Propiedades más usadas para trabajar con rangos de celdas
7: Métodos más usados en rangos de celdas
8: Trabajo con Hojas y métodos más usados
9: Trabajo con Archivos y métodos más usados
10: Variables, constantes y tipos de datos
11: Variables de objeto y la instrucción Set
12: Ámbito de las variable, tiempo de vida y variables estáticas
13: Instrucción If...Then...Else para la toma de decisiones
14: Instrucción With...End With para facilitar nuestro código
15: Función MsgBox para mostrar mensajes
16: Función y método InputBox para ingresar valores
Seguridad de Macros
Participaciones
Lmendivelso 3 weeks ago
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 instrucciones para realizar las acciones de abrir el archivo origen y archivo destino:
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:
'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 instrucciones para realizar las acciones de abrir el archivo origen y archivo destino:
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:
'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!
↳ Responder
SorenRamirezMendez 1 month ago
Diego, Muchas Gracias por poner los controles del reproductor, como los comandos de teclado de YouTube. Aprecio todos los cambios que nos permitan usar la plataforma con agilidad.
↳ Responder
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta