Adriel Ortiz Mangia

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

[Hola Te paso la macro Sub comparar() ' '**Por.Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = 2 For i = 8 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

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