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 ajusta con esto a tu macro fila = 2 Total = 0 ' Do Cells(fila, 6).Select Total = Cells(fila, 6) + Total Total2 = Cells(fila, 7) + Total2 fila = fila + 1 Loop Until Cells(fila, 6) = "" Cells(fila, 6) = Total Cells(fila, 7) = Total2

[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 Te paso la macro, Private Sub Worksheet_Change(ByVal Target As Range) ' '**Por Adriel Ortiz ' If Not Intersect(Target, Range("C:C")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target Case "" Cells(Target.Row, "D") = "" Case...

[Hola Usa esta fórmula, si tus datos en la hoja1 inicia en la fila 2, coloca esto en la B2. =INDICE(Hoja2!$A$2:$B$100;COINCIDIR(A2;$A$2:$A$100;0);2) Valora para finalizar saludos!