Adriel Ortiz Mangia

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

Prueba la macro Sub macro() ' For Each r In Range("D2:Q20") If r.Value < 1000 Then r.Value = 0 Next r mgbox "fin" End Sub

No se puede poner una línea de cabecera fuera del rango de la propiedad .RowSource. Solución un Label en la parte superior del ListBox con la propiedad .ColumnHeads = False, problema, el Label es fijo

Prueba la macro Private Sub Workbook_Open() Dim usuario, Clave As String Set P = Sheets("USUARIOS") usuario = InputBox("POR FAVOR INGRESE SU NOMBRE DE USUARIO", "USUARIO") Clave = InputBox("POR FAVOR INGRESE SU CONTRASEÑA", "CONTRASEÑA") If usuario =...