Adriel Ortiz Mangia

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

[Hola prueba con esto Private Sub CommandButton1_Click() Unload Me 'CIERRA EL FORMULARIO ACTIVO UserForm2.Show 'ABRE EL SEGUNDO FORMULARIO End Sub

[Hola Te paso la macro, suponiendo que tu listbox tiene 4 columnas Private Sub CommandButton1_Click() fila = 1 For i = 0 To ListBox1.ListCount - 1 Cells(fila, 1).Value = ListBox1.List(i, 0) Cells(fila, 2).Value = ListBox1.List(i, 1) Cells(fila,...

[Hola Te puedo ayudar con la primera. Cual celda se va extraer de cada libro y de cual hoja.