Adriel Ortiz Mangia

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

[Hola Pon así Private Sub CommandButton1_Click() '***Act. Adriel Ortiz ' Set h1 = Sheets("CLI") ' NUMERO = TextBox1.Value NOMBRE = TextBox2.Value TELEFONO = TextBox3.Value DIRECCION = TextBox4.Value ' h1.Select ultfila = Cells(Rows.Count,...

[Hola Prueba así Private Sub Worksheet_Change(ByVal Target As Range) ' '**Act. Adriel Ortiz ' Dim N1 As String If Intersect(Target, Range("B1:CP150000")) Is Nothing Then Exit Sub Else Application.EnableEvents = False If Target.Value <> "" Then...

[Hola lo haces así para hoja1 y hoja2 Private Sub UserForm_Activate() Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem h1.Cells(i, "A") Next i ' ' Set h2 = Sheets("Hoja2") For i = 2 To h2.Range("A" &...

[Hola Te paso la macro para copiar los rangos de todas las hojas a otro libro con pegado especial. No me quedó la claro de la operación suma. Cambia el nombre y la ruta donde tienes tu libro para pegar los datos. Sub copiar_allsheets() ' '**Por...

[Hola revisa esto https://www.youtube.com/watch?v=vnXBGJNR3nk

[Hola Cambia esta línea Set Mirango = Application.InputBox("Seleccione un rango a exportar", Type:=8) por esto Set Mirango = "D11:D33"

[Hola Te paso un ejemplo. En el formulario1 tienes los TextBox10, TextBox11 y TextBox12 y los valores va al formulario2 TextBox1, TextBox2 y TextBox3. Pon esto en el evento activate del formulario2 Private Sub UserForm_Activate() TextBox1.Text =...