Adriel Ortiz Mangia

H o l a Tal vez tienes decimales, prueba con esto que mostrará el valor de cada celda y ve si hay alguna diferencia. Sub verifica() Set h1 = Sheets("RECIBO") If h1.Range("H18").Value <> h1.Range("C24").Value Then MsgBox "Los Montos " & h1.[H18] & " y...

H o l a Te paso la macro actualizada, en la celda A1 es exclusivamente para fecha Sub GUARDARPDF() On Error Resume Next Sheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="D:\" & "Reporte de Ingresos del " & Format(Range("A1"),...

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,...

H o l a Pero cual columna se sumaran y donde irá el resultado.

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 la Prueba esto Private Sub CommandButton1_Click() Range("A1") = Format(Val(TextBox1), "0000") & "-" & Format(TextBox2, "mm-yy") End Sub Valora la respuesta para finalizar saludos!

H o l a Indícame en cual columna hay que buscar la Total para insertar la fila

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()...