Adriel Ortiz Mangia

[hola revisa esta pagina https://www.udemy.com/ , para excel puedes visitar esta web

Pon un imagen de tu información y donde se va pegar los datos filtrados

Macro Private Sub CommandButton2_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then Fila = b.Row ' h.Cells(Fila, "B") = TextBox1 h.Cells(Fila, "C") = TextBox2 Select Case...

Macro actualizada Sub pegar() Dim c As Range, j As Long Set h2 = Sheets("Hoja2") ' j = h2.Columns("M").Column With ActiveCell For Each c In Range("A" & .Row & ":K" & .Row) If c.Value <> "" Then h2.Cells(.Row, j).Value = c.Value j = j + 1 End If Next...

Macro Private Sub CommandButton1_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' h.Cells(fila, "B") = TextBox1 h.Cells(fila, "C") = TextBox2 ' 'vas agregando...

Macro Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' TextBox1 = h.Cells(fila, "B") TextBox2 = h.Cells(fila, "C") ' 'vas agregando el...

Macro para cargar el segundo combobox Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub crea una nueva petición para mostrar...

Prueba de esta manera Private Sub cmd_salirMenu_Click() Application.DisplayAlerts = False Application.EnableEvents = False ' Application.Visible = True 'Habilita los libros de Excel ThisWorkbook.Save 'Guarda los cambios del Excel Automaticamente...

Prueba la macro Sub macro1() dato = ComboBox1.Text Select Case dato Case "x": Sheets("Hoja1").Select Case "y": Sheets("Hoja2").Select End Select End Sub

Prueba esto Private Sub MultiPage1_Click(ByVal Index As Long) 'page1 es index = 0 'page2 es index = 1 '... If Index = 1 Then Call macro End Sub