Dante Amor

H o l a: Te anexo la macro para cargar los datos en el combobox1, según lo que explicaste en la pregunta. Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("CLIENTES") For i = 7 To h.Range("B" & Rows.Count).End(xlUp).Row...

H o l a: Te anexo la macro para crear las hojas como csv Sub GuardarHojasCsv() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" Sheets("Hoja2").Copy arch = "archivo Hoja2"...

H o l a: Reviso el archivo y en cuanto pueda te envío una respuesta. Sal u dos

H o l a: Te anexo una macro para realizar la comparación. Sub MarcarValores() 'Por.Dante Amor Columns("A").Interior.ColorIndex = xlNone For i = 1 To Range("B" & Rows.Count).End(xlUp).Row Set r = Columns("A") Set b = r.Find(Cells(i, "B"),...

H o l a: Déjame entender lo que necesitas. ¿Quieres 4 inputbox? Quieres que en cada inputbox, ¿poner un número y un texto? Si quieres 4 inputbox, lo mejor sería un formulario con 4 cajas para que pusieras números y 4 cajas para que pusieras los...

H o l a: Pon las siguientes macros en los eventos de tu libro: Private Sub Workbook_Open() 'Por.Dante Amor Sheets("información general").Select End Sub ' Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 'Por.Dante Amor...

Te anexo la macro para que la pongas en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub u = Range("A" & Rows.Count).End(xlUp).Row...

Prueba con la siguiente: ult = Range("A" & Rows.Count).End(xlUp).Row 'conteo de dilas hasta el ultimo valor en "A" Set n = Columns("A").Find(What:="1") If Not n Is Nothing Then fila = n.Row Set b = Columns("A").Find(What:="trimestres").Offset(1, 0)...

H o l a: Te anexo la macro actualizada. El nombre del archivo pdf será lo que tengas en la celda A11 de la hoja "formato", si quieres otro nombre, cambia en esta línea de la macro: arch = Range("A11") ' Los archivos pdf se guardarán en la misma...

H o l a: En una celda pon: =IZQUIERDA(C3,12) En otra celda pon: =EXTRAE(C3, 14,14) Cambia C3 por la celda en donde tienes la serie.