Adriel Ortiz Mangia

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

Va la macro 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 Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value)...

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

_hola DESCARGAR Revo Uninstaller para desinstalar todo paquete de Office. Revisa en Youtube tutoriales del uso de éste programa Si el problema persiste ya hay problemas en la tabla de registros mejor cambia tu Windows

[Hola después de tu filtro pon esto fila = Worksheets("Hoja1").Range("B" & Rows.Count).End(xlUp).Row If fila = 1 Then MsgBox "No existe registros"

Macro Private Sub CommandButton1_Click() Dim i Set h = Sheets("Hoja3") Select Case ComboBox1.ListIndex Case 0: col = "I" Case 1: col = "J" End Select ' i = 6 Do While Cells(i, col) <> "" i = i + 1 Loop h.Cells(i, col) = Val(TextBox1.Text) End Sub...

[Hola Explica con más claridad tu petición

[Hola Excel solo permite crear 255 hojas y pides crear más 400

Pon la macro aquí