Dante Amor

H o l a: Con la propiedad offset puedes desplazarte a otra celda, podría quedar así: ActiveCell = ComboBox1 ActiveCell.Offset(0, 3) = ComboBox2 ActiveCell.Offset(1, 3) = ComboBox3 Sintaxis Expresion. Offset(filas, columnas) Ejemplos: . Offset(0, 3)...

H o l a: No pusiste cuál es el rango de celdas o cómo es tu formato de ticket. Traté de hacerlo flexible, solamente escribe en esta línea de la macro el rango de la hoja2 en donde quieres que se pongan los dato: Set r2 = h2.Range("C7:G20") La macro...

H o l a: Lo que hace es abrirte los archivos donde tienes el archivo con la macro. Solamente pon tu archivo que tiene la macro en la misma carpeta donde tienes los archivos txt. S a l u d o s

H o l a: Te anexo el código. Pon tu archivo con la macro en la misma carpeta donde estarán los 8 notepad y ejecuta la macro. La macro leerá todos los archivos txt y solamente considerará los que terminen en A, B, C, D, F, G o H Sub LeerNotePad2()...

H o l a: Te anexo la macro unificada: Sub LeerNotePad() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta = l1.Path & "\" ChDir ruta ' With...

H o l a: Te anexo el código actualizado. Private Sub CommandButton1_Click() 'Por.Dante Amor Set h2 = Sheets("INVENTARIO") Set b = h2.Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then uc = h2.Cells(b.Row,...

H o l a: Quedaría así: Sub totales() 'Act.Por.Dante Amor Dim ultima As Worksheet Set ultima = Sheets(Sheets.Count) Sheets("PLANTILLA").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "TOTAL" Sheets("TOTAL").Select Range("F4").FormulaR1C1...

Revisa bien la numeración del tabindex de cada textbox, debe ir en ascendente desde el textbox1 hasta el 8, o hasta el textbox que tengas. El código que pusiste no afecta para pasar de un textbox a otro, tal vez tienes otro código.

H o l a : Realiza los siguientes pasos. 1. Crea un userform en VBA con un textbox y un commmanbutton, por ejemplo: 2. Instrucciones para UserForm Abre tu hoja de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige...

H o l a: Te anexo la macro actualizada Sub InsertarVariosTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Base") h1.Cells.Clear ruta = l1.Path & "\" txts =...