Dante Amor

H o l a @mauuuuu5, aquí otra macro con otro enfoque para ti para considerar: Sub Macro1() With Sheets("Hoja2").Range("C2:C" & Sheets("Hoja2").Range("A" & Rows.Count).End(3).Row) .Formula =...

Prueba esto: Cambia en la macro "Formato", "principal" y "B6" por tus datos Sub copiaHoja() Sheets("Formato").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("principal").Range("B6") End Sub

Puedes poner aquí tu código. ¿Qué mensaje de error te envía? Otra alternativa es utilizar option button, de esta manera solamente pueden elegir una opción.

Aquí una macro con otro enfoque para ti a considerar. Sub Delete_Fila_Columna() Sheets.Select Rows(1).Select Selection.Delete Columns(1).Select Selection.Delete Sheets(1).Select End Sub

El formato que tienes en la celda lo tienes que poner también en el siguiente formato: TextBox9.Value = Format(Range("L7:L65365").Find(TextBox1.Text).Offset(0, 3), "### ##") Cambia "### ##" por el formato que tienes en la celda.

Prueba lo siguiente: Range("I7:I" & Range("G" & Rows. Count).End(xlUp). Row). Copy Windows("CITI COMPRAS.xlsx").Activate Range("AF6").PasteSpecial Paste:=xlPasteValues Range("AF6:AF" & Range("AF" & Rows.Count).End(3).Row).SpecialCells(2, 23).Offset(,...

Pon aquí tu macro para revisarla.

" Busca la primera línea vacía de la tabla... La idea es que según se graban los datos en la tabla" Yo te sugiero, que en el mismo código, después de guardar los datos en la primera línea vacía, ahí pongas el código para ordenar los datos, por...

Puedes poner una imagen de los resultados que necesitas y una breve explicación.

Prueba así: celda.offset(0, -2) & " " & celda.offset(0, -1)