Dante Amor

Utiliza la siguiente macro Sub Iteraciones() 'Por.Dante Amor For i = 6 To 3051 [K1] = Cells(i, "Q") Next End Sub Si es lo que necesitas, r ecuerda valorar la respuesta.

H o l a : Puedes completar la siguiente información: ¿Cómo identificar cuáles hojas se van a imprimir?¿Cuál rango de cada hoja?Quieres todas las hojas en un archivo pdf, ¿cómo se va a llamar el archivo?O quieres cada hoja en un archivo pdf, ¿cómo se...

Envíame tu archivo y me explicas con ejemplos y colores lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “José Luis Junco” y el título de esta pregunta.

H o l a : Crea un commandbutton en tu formulario. Pon el siguiente código en tu formulario Cuando presiones el botón, se generará un archivo con el nombre de "archivo.pdf", se abrirá el mail para que lo revises y lo puedas enviar. Private Sub...

Te anexo las macros actualizadas Dim h1, h2 Private Sub cmbPrintingService_Change() 'Por.Dante Amor ComboBox1 = "" ComboBox1.Clear If cmbPrintingService.ListIndex = -1 Or cmbPrintingService = "" Then Exit Sub End If h2.Cells.Clear u = h1.Range("A" &...

H o l a : Te anexo las 2 macros. Pon la siguiente macro en el botón de buscar Sub BuscarCod() 'Por.Dante Amor Set cod = Range("B4") If cod.Value = "" Then MsgBox "Captura un código", vbExclamation, "BUSCAR" cod.Select Exit Sub End If ' u = Range("B"...

Te anexo la actualización Private Sub CommandButton2_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del listbox" Exit Sub End If For Each h In Sheets If h.Visible = -1 Then h.Range("G4").Value =...

H o la : Puedes poner ejemplos con imágenes explicando lo que tienes y lo que esperas como resultado.

H o l a : Supongo que en la celda E4 tienes en la validación de datos la fórmula: =INDIRECTO($D$4) Entonces en la celda F4 pon la siguiente fórmula: =INDIRECTO($D$4&2) Lo que tienes que hacer, por ejemplo, si en la celda D4 tienes una categoría que...

Envíame tu archivo para revisarlo. Pon tu nombre de usuario en el asunto del correo.