Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que al hacer doble click me lleve a la hoja que contenga dato
Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por.Dante Amor If Not Intersect(Target, Range("I:I")) Is Nothing Then If Target.Value = "" Then Exit Sub For Each h...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Exportar a excel a un solo libro
Te anexo la macro actualizada. Te guarda el archivo en formato excel Sub GuardarPDF() ' ' Por Dante Amor ' ' Dim hojas() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\trabajo\" n = -1 Set h1 = Sheets("Hoja1")...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar con FIND un valor con 2 condiciones
Si en la hoja "desglose" solamente tienes un nombre. Con el método Find( ) , busca en la columna "A" la primer coincidencia del nombre, revisa en la columna B el periodo y si coincide el periodo termina el ciclo; si no coincide el periodo, sigue...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como sumar.si en vba los datos que se encuentran en otra hoja
En la hoja "data global", celda E4 pon la siguiente fórmula: =SUMAR.SI(valores!F:F,C4,valores!T:T) Copia la fórmula hasta el final de tus datos de la hoja "data global" . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hago para que los datos de mi userform se inserten en un formato ya creado, se imprima y el formato quede en blanco nuevame
Cambia en la macro, en las siguientes líneas por tus datos: Set h1 = Sheets("Formato") 'nombre de la hoja con el formato ruta = "C:\trabajo\" 'ruta específica arch = "prueba.pdf" 'nombre del archivo La macro Private Sub CommandButton1_Click()...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que me agregue los registros a un combobox
Utiliza el siguiente código Private Sub UserForm_Initialize() 'Por.Dante Amor Set h = Sheets("PRUEBA") For i = 2 To h.Range("B" & Rows.Count).End(xlUp).Row If h.Cells(i, "I").Value = "Reclamado" Then Call Agregar(ComboBox1, h.Cells(i, "B")) End If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copia Hoja a archivo nuevo y cuadro de dialogo
Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor ' 'Guardar los datos de la hoja "listados" Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = Sheets("listados") u = h1.Range("A"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro abra todos los archivos de una carpeta, numero variable
Te anexo la macro. Entre cada línea puse un comentario explicando el funcionamiento. Sub Abrir_Todos_Los_Libros() 'Por.Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False 'Estable en l1 este libro, es el que contiene la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para eliminar filas que en una columna tengan POR valor alojado en una lista.
Te anexo la macro Cambia en estas líneas los nombres de tus hojas Set h1 = Sheets("Hoja1") 'hoja con todas las casas Set h2 = Sheets("Hoja2") 'hoja con la lista de no. casa a eliminar la macro te pone en la "hoja2" en la columna "D" un mensaje con el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro Excel: Copiar rango de datos a otra hoja
Envíame tu archivo y con ejemplos marca cuáles registros vas a copiar de "NC" a "Calculo". Luego con otro color me marcas qué datos copiarías de "BBDD" a "BDD" Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Ricardo...