Adriel Ortiz Mangia

Usa la función redondear

Te facilito el código Private Sub CommandButton1_Click() usuario = TextBox1.Text clave = TextBox2.Text If usuario = "abc" And clave = 123 Then ' Cambia usuario y la clave deseado Unload Me Principal.Show 'Asegurate si el nombre del formulario...

De esta página http://www.intercambiosvirtuales.org/software/visual-studio-enterprise-2015-espanol

Te anexo el código Private Sub CommandButton1_Click() h1 = TextBox1 ' Hora de entrada h2 = TextBox2 ' Hora de salida rest = CDate(h1) - CDate(h2) Min = Int(rest * 24 * 60) TextBox3 = Min ' Resultado en minutos If TextBox3 = 60 Then MsgBox "es igual a...

El msgbox no tiene esa función pero se lo puede crear con formulario Explica que función va cumplir con los option button

Esto no lo solucionas con una macro, esto pasa cuando realizas una copia de datos de una otra. Por ejemplo gráficos, tablas con fórmulas etc.

Opción 1 Sub espaciosvb() 'Quita Detrás del texto 'Fuente dante Amor ufila = ActiveCell.SpecialCells(xlLastCell).Row ucol = ActiveCell.SpecialCells(xlLastCell).Column For i = 1 To ufila For j = 1 To ucol Cells(i, j).Select ActiveCell =...

Envíame tu archivo a [email protected]

Sub evaluarEdad() edad = InputBox("Ingrese edad") Select Case edad Case Is >= 18 MsgBox "Es mayor de edad", vbInformation, "AVISO" Case Else MsgBox "Es menor de edad", vbCritical, "AVISO" End Select End Sub Recuerda valorar saludos!!

Te anexo el código Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe ese RUT" Exit Sub End If ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row...