Dante Amor

Puedes poner la macro que usas. Y qué columnas quieres exportar y qué ancho de columna quieres poner, el mismo que tiene la columna en la hoja o tienes un tamaño definido para cada columna.

H o l a: Te anexo la macro Sub AgregarFilas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 Cells(i + 1, "A") = "Premio de Asistencia" Cells(i + 2, "A") = "Premio de Puntualidad" Cells(i...

H o l a: Si tienes los combox en un userform, utiliza el siguiente código. Cambia "Hoja4" por el nombre de tu hoja. Es importante que los datos a cargar en el combobox1 se carguen en el evento Activate, de esa forma sabremos en qué fila se encuentra...

¿Y cuáles son las condiciones? Puedes poner ejemplos con datos reales y qué es lo que esperas de resultado, apóyate insertando imágenes para que expliques los ejemplos.

H o l a: Te anexo la macro actualizada. Sub ALMACENAR() 'Por.Dante Amor Set h2 = Sheets("CLIENTES") Set h3 = Sheets("FORMULARIO") ' If h3.[E7] = "" Then MsgBox "Ingrese el ID en la celda E7", vbExclamation [E7].Select Exit Sub End If ' Set b =...

H o l a: Si entendí bien, en la primera hoja tienes los datos. En la columna M tienes el nombre de hoja. Pueden ser varios nombres. Quieres copiar todos los registros de la primera hoja a la hoja destino según el valor que tienes en la columna M. Por...

H o l a: Te anexo la macro actualizada Sub CambiarNombre() On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Name = Sheets("DISPOSITIVOS").Range("A" & i) Next i End Sub Lo que hace la macro es empezar en 2 y hasta el total de hojas...

H o l a: Te anexo la macro actualizada: Sub CambiarNombre() On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Name = Sheets(1).Range("A" & i) Next i End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

H o l a: Te anexo la macro para crear las hojas Sub CrearHojas() 'Por.Dante Amor On Error Resume Next Set h1 = Sheets("base de datos") For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name =...

H o l a: Espero que todavía te sirva: Sub RenombrarHoja() 'Por.Dante Amor nombre = ThisWorkbook.Name nombre = Replace(nombre, ".xlsm", "") Sheets("Hoja1").Name = nombre End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )