Adriel Ortiz Mangia

H o l a te falto escribir la palabra completa "Count" en esta línea For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row Valora la respuesta para finalizar saludos!

H o l a En esta parte de la línea de tu código Set b = h1.Columns(col1).Find(dato, lookat:=xlWhole) cambia por esto Set b = h1.Columns(col1).Find(dato, lookat:=xlPart) haber que tal te va

Puedes mostrar una imagen de la hoja para adecuar el código. Necesito por ejemplo la fila empieza tus datos de la hoja1, también la fila para copiar en la hoja2, ¿por último irá incrementando tus registros en la hoja2?

H o l a te paso la macro Sub Colorear_sumar() 'Act. Aortiz For i = 5 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(5, "A")) Then ' fecha1 = Format(Cells(i, "A"), "mm/yyyy") año = Year(Date) mes = Month(Date) + 1 ' fecha2 = Format(CDate(mes...

H o l a te paso la macro actualizada Sub Colorear_sumar() 'Act. Aortiz For i = 5 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(5, "A")) Then fecha1 = Format(Cells(i, "A"), "mm/yyyy") fecha2 = Format(Date, "mm/yyyy") If fecha1 = fecha2 Then...

H o l a Podemos crear una macro para buscar a través de un formulario usando un Textbox y Listbox Pero para ello necesito como está organizado tus datos. Muestra una imagen de la hoja que se note las columna. Que nombre es la hoja Como deseas buscar,...

Te facilito la macro Sub colorear() 'Por.DAM 'Act.Aortiz For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(1, "A")) Then If Month(Cells(i, "A")) = Month(Date) Then Range(Cells(i, "A"), Cells(i, "C")).Interior.ColorIndex = 4 Else...

H o l a Te paso la macro, cambia la ruta donde se guardarán los archivos RutaExcel = "C:\Backup\Excel\" 'Cambias la Ruta para guardar el archivo de excel RutaPDF = "C:\Backup\PDF\" 'Cambias la Ruta para guardar el archivo de PDF Sub GuardarArchivo()...

H o l a Te paso la macro actualizada Sub GuardarCopia() Dim NombreArchivo As String NombreArchivo = Format(Date, "dd - mm - yyyy") If MsgBox("¿Está seguro de haber rellenado correctamente la plantilla?", vbQuestion + vbYesNo) = vbYes Then FilePath =...

H o l a Te paso la macro Private Sub CommandButton1_Click() ' If Text2 < Text1 Then MsgBox "El Text2 debe se mayor al Kilometraje Inicial", vbCritical Exit Sub End If ' End Sub Necesito información para guardar en la hoja. Valora la respuesta para...