Adriel Ortiz Mangia

[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 aquí un vídeo https://www.youtube.com/watch?v=rxhjm8gW6g8

[Hola aquí una orientación https://www.youtube.com/watch?v=jzXbhrijXNo

[Hola Te paso la macro. Para finalizar hay 2 opciones Excelente o bueno saludos! Private Sub CommandButton1_Click() ' '***Por Adriel Ortiz Set h1 = Sheets("Hoja1") 'Nombre de la Hoja ' Set r = h1.Columns("A") 'Columna a buscar Set b =...

[Hola Te paso la macro, lo completas para el resto. Valora la respuesta para finalizar saludos! Sub registrodenotas() '***Act. Por Adriel Ortiz ' ' Application.ScreenUpdating = False Set h1 = Sheets("formato pedido") 'Hoja1 Set h2 = Sheets("registro...

[hola para limpiar el portapapeles Application.CutCopyMode = FalseSub copia() Sheets(1). Range("a2:e50"). Copy ActiveSheet. Paste Application.CutCopyMode = False End Sub

[Hola prueba esto Sub Guardacopia() 'Fuente.Dante Amor 'Act. Adriel Ortiz Application.ScreenUpdating = False Application.DisplayAlerts = False ' ruta = ActiveWorkbook.Path & "\" nombre = "reporte.xlsm" 'cambiar por el nombre del archivo...