Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar un dato de una hoja a otra a través de una macro
Te anexo el código: 'aquí nueva instrucción Set b = h4.Columns("C").Find(h1.[C7], lookat:=xlWhole) If Not b Is Nothing Then h2.Range("AW" & u) = h4.Cells(b.Row, "F") End If ' Sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Posibilidad de crear un Evento en una hoja que logre la función de autocompletar para una celda especifica
Pero si lo que encuentra son varios resultados. Pones la letra "A" y en la columna "C" tienes esto: "Amigo" "Amor" "Antes" Etc. ¿Qué es lo que quieres que te aparezca? Para eso se ocupan los Combobox. Es complicado lograr eso que quieres en una celda.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Autocompletar un textbox a partir de una combobox
H o l a: Supongo que si no existe, entonces el código debe empezar con 1. Prueba con la siguiente macro Sub LlenarTextbox() 'Por.Dante Amor Set h1 = Sheets("BBDD") vmax = 0 Set r = h1.Columns("D") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para agregar automáticamente nuevas series de datos a una gráfica.
H o l a: Tienes pendiente valorar una respuesta: ¿Qué macro hacer para que guarde las unidades vendidas de cada proyecto? También en esta pregunta: Guardar datos que no están en una hoja de excel pero que se encuentran en otra. La respuesta fue...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que establezca área de impresión y guarde esa área como un archivo PDF y luego borre filas determinadas e imágenes
Te anexo la macro actualizada. Te va a presentar en pantalla la lista de impresoras que tienes, deberás seleccionar una impresora. En la impresora que elijas se realizará la impresión. Después se guardará el rango de celdas en PDF, se borrará la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Darle nombre a un archivo de salida según contenido de una celda y la fecha actual
Reemplaza esas líneas, por estas: ruta = ThisWorkbook.Path & "\" arch = h3.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy") h3.ExportAsFixedFormat xlTypePDF, _ ruta & arch & ".pdf", xlQualityStandard, True, False, , ,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que imprima en tamaño media carta un encabezado un contenido definido y un pie de página
H o l a: Te anexo la macro para generar el pdf Sub GenerarPdf() 'Por.Dante Amor Set h1 = Sheets("Registro") Set h2 = Sheets("diseño para Pdf") Set h3 = Sheets("salida a pdf") ' h3.Cells.ClearContents h3.DrawingObjects.Delete ' n = 0 j = 1...
Respuesta
en
Programación
y en 2 temas más
a
Modificación de macro que copia y pega datos en otra hoja (dan)
H o l a: Cambia esto: If Intersect(Target, Range("j7:j934,v7:v934,ah7:ah934,at7:at934,bf7:bf934,br7:br934,cd7:cd934,CP7:CP934,DB7:DB934,DN7:DN934,DZ7:DZ934,EL7:EL934,EX7:EX934,FJ7:FJ934")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Solicitud de explicación detallada de la ejecución de la macro
H o l a: Sub macro() 'Por.Dante Amor ' con el apóstrofo se indica que lo que sigue en la línea es un comentario, es decir, no es código de la macro 'En programación se utilizan variables, y existen varios tipos de variables. ' Set h1 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Solicitud de macro que realice una acción usando la instrucción If si se cumple una codición
Prueba así: Sub Condicional() 'Por.Dante Amor Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") u = h1.Range("B" & Rows.Count).End(xlUp).Row 'Aqui necesito una condición IF de la siguiente manera: Que rivise si U 'Es igual a 36 Or 60 Or 86 Or 100, Si...