Dante Amor

Visita: Cursos de Excel y Macros -------------------------- Si la carpeta final es el nombre que tienes en la columna B, entonces no tiene caso crear la carpeta con el nombre de la columna A y después renombrarla al nombre de la columna B, lo más...

Visita: Cursos de Excel y Macros --------------------- Asigna la siguiente macro a un botón: Sub CopiarValores() Dim f As Range ' With Sheets("Hoja1") Set f = Sheets("Hoja2").Range("1:1").Find(.Range("A1").Value, , xlFormulas, xlWhole) If Not f Is...

Visita: Cursos de Excel y Macros. ------------------------ La fórmula en A1 debe ser así: =[Libro2.xlsx]Hoja1!D5 Si la copias a la celda B1, la fórmula queda: =[Libro2.xlsx]Hoja1!E5 Revisa que la celda D5 no debe tener el símbolo $ (referencia...

Visita: Cursos de Excel y Macros. ---------------- Podrías explicar qué quieres hacer. Tu código tiene varios detalles, por lo tanto, no entiendo cuál es tu objetivo. 1. Te falta un End IF 2. En esta línea: If Not Ntitulo Is Nothing Then debe ser If...

Visita mi canal: Cursos de excel y macros ------------- Prueba la siguiente macro: Sub bucar_valor() Dim valor As Variant Dim f As Range ' valor = Range("A1").Value If valor = "" Then MsgBox "Escribe el valor a buscar en la celda A1" Else Set f =...

Te invito a ver el siguiente: Consejos para empezar a programar. -------------------- Puedes utilizar la sentencia Case, te muestro un ejemplo: Sub InsertaImagenMA(): On Error Resume Next Application.ScreenUpdating = False For Each hoja In Sheets...

Visita: Cursos de Excel y Macros _______________________________ ¿Cuál es el problema que tienes? Prueba lo siguiente: Private Sub COTIZAR_Click() Dim ruta As String Dim Result As Variant Dim nombre As String nombre = Range("C25").Value If...

Visita mi canal: Cursos de Excel y Macros ----------- Revisa la siguiente manera de simplificar el código: Sub prueba() Workbooks("CAJA 2023.xlsm").Sheets("linea datos").Range("A6:KV6").Copy Workbooks("Ventas...

Te invito a visitar mi canal: Cursos de Excel y Macros ------ Prueba la siguiente macro: Sub Imprimir_Y_PDF() 'Por Dante Amor Dim sh As Worksheet Dim ruta As String, nombre As String ' Set sh = Sheets("Factura") 'ajusta al nombre de tu hoja ruta =...

Te invito a visitar mi canal: Cursos de Excel y Macros ------ Para seleccionar las 12 celdas, realiza lo siguiente: 1. Seleccionar todas las celdas de la hoja. Entra al menú Inicio, en Celdas, selecciona la opción Formato, Formato de celdas, en la...