Adriel Ortiz Mangia

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 ESNOD controla el error #N/A =SI(ESNOD(BUSCARV(A1,Hoja2! A1:B3, 2)),"No se encuentra") Valora la respuesta para finalizar Saludos!

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

Instalar el programa OpenOffice de Linux y lo abres con el programa Link de descarga https://www.openoffice.org/es/descargar/ Valoras para finalizar saludos!

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