Adriel Ortiz Mangia

[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

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

[Hola Adiciona esto a tu macro Valora la respuesta para finalizar saludos! Select Case ListBox1.List(ListBox1.ListIndex, 8) Case "001" TextBox1 = "CASADO(A)" Case "002" TextBox1 = "SOLTERO(A)" Case "006" TextBox1 = "UNION LIBRE" End Select

[Hola Pon esto en el evento SelectionChange de tu hoja, como ejemplo está para dar clic en la celda A1 y muestra el formulario. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then UserForm1.Show End If End Sub...

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