Dante Amor

En el parámetro de columna (después de Rows. Count) tienes una letra ele "l" y debes poner el número 1: Así debería quedar: iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row [Sal u dos

¿En los controles de tu userform aparece el DtPicker? Si es así, y quieres pasar el dato del DtPicker a la celda, puede ser así: range("D5").value = DTPicker1 = DTPicker1 Pero si no tienes el control en tus controles, entonces selecciona tu userform,...

Te sugiero que realices la captura de los nuevos datos en la hoja1, cuando termines de capturas presiones un botón para actualizar la hoja2. Pon la siguiente macro en un botón: Sub Actulizar_Base_Datos() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set...

Te anexo la macro. Cambiar origen y destino por el nombre de tus carpetas El archivo en el textbox debe llevar también la extensión Private Sub CommandButton1_Click() 'Por Dante Amor origen = "C:\trabajo\varios\" destino = "C:\trabajo\libros\"...

Te anexo la opción para buscar presionando el botón Private Sub CommandButton1_Click() 'Por Dante Amor 'Buscar información en la hoja seleccionada en el combo ' If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then MsgBox "Seleciona una hoja en el...

Revisa mi artículo en el siguiente enlace: https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html

Pon la siguiente fórmula en la celda E6 =SI(D6="","",CONTAR.SI($D$1:D6,D6)) Copia o arrastra la fórmula hacia abajo hasta el final de tus datos.

Te anexo la macro Sub Macro11() ' For Each comentario In ActiveSheet.Comments comentario.Shape.Width = 188 comentario.Shape.Height = 70 Next End Sub [no olvides valorar la respuesta

¿Cómo se llaman las hojas que vas a dividir? ¿En qué columna está la información que se va a dividir? ¿Qué nombre van a tener las nuevas hojas? Suponiendo que son las hojas "Hoja1", "Hoja2", "Hoja3" Y que la columna "A" es la que tiene la información...

Pon la siguiente macro en un botón. Cambia en la macro "unificado.pdf" por el nombre que quieras ponerle al archivo. Sub Macro9() ' Por Dante Amor ' ' Guardar las 2 primeras hojas en PDF ' ruta = ThisWorkbook.Path & "\" arch = "unificado.pdf"...