Adriel Ortiz Mangia

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

Pon la macro aquí

Prueba esto Private Sub ComboBox1_Change() If ComboBox1.ListIndex + 1 > 0 Then TextBox1.Text = "" End Sub

Macro num = Val(TextBox1.Text) num2 = Val(TextBox2.Text) If num Mod num2 = 0 Then MsgBox "es multipo" Else MsgBox "no es multipo" End If

Prueba asi Private Sub CommandButton1_Click() Dim uf Set h = Sheets("Hoja1") uf = h.Range("A" & Rows.Count).End(xlUp).Row + 1 h.Cells(uf, "A") = Textbox1 h.Cells(uf, "B") = TextBox2 ' ' ' End Sub

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

Prueba la macro Sub valida() rango = Array("B13", "D13", "E13", "F13", "B15", "D15", "F15") For i = LBound(rango) To UBound(rango) If Range(rango(i)) = "" Then MsgBox "Celda " & Range(rango(i)).Address(False, False) & " vacía" Exit Sub End If Next i...