Adriel Ortiz Mangia

[Hola Envíame tu archivo a mi email y me indicas el formulario y la hoja

[Hola te paso la macro Private Sub CommandButton1_Click() '**Por Adriel ' Set h1 = Sheets("Hoja1") ' If h1.AutoFilterMode Then h1.AutoFilterMode = False date_ini = Format(TextBox1, "mm/dd/yyyy") date_fin = Format(TextBox2, "mm/dd/yyyy") ' u =...

[Hola Te paso la macro actualizada Sub copiar() ' ''*Por Adriel Ortiz ' Set h1 = Sheets("HOJA DE CAJA") Set h2 = Sheets("DIARIO") u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 ' strTitulo = "Contaplus" If MsgBox("¿CONTABILIZAR DATOS?", vbYesNo +...

[Hola Prueba con esto ListBox1. List(ListBox1.ListCount - 1, 4) = FormatNumber(TextBox6, 2)

[Hola Te paso la macro, asumo que los datos está en la columna B y fila 10 y el resultado en D1 Sub macro1() 'Por Adriel Ortiz For i = 10 To Range("B" & Rows.Count).End(xlUp).Row If Cells(i, "B") <> "NO" Then cad = cad & Cells(i, "B") & ", " End If...

[Hola Sub macro1() Range("F10") = "MPI" & 170001 + 1 End Sub Valora la respuesta para finalizar

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") ' Hoja1 Set h2 = Sheets("Hoja2") ' Hoja2 ' j = 2 For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row If...

[Hola Usa esto =SI(H8<0,"EXCEDENTE","SALDO") valora la respuesta para finalizar saludos!

[Hola Envíame tu archivo para adecuar la macro [email protected]

[Hola aquí un vídeo https://www.youtube.com/watch?v=rxhjm8gW6g8