Jump to content

Hugo C.

Members
  • Content Count

    2
  • Joined

  • Last visited

About Hugo C.

  • Rank
    Newbie

Converted

  • Campos
    ;
  1. Hola amigos Private Sub CommandButton1_Click() Sheets("Hoja1").Select 'Selecciona la Hoja1 ActiveSheet.Unprotect 'Desprotege la hoja activa. Sin contraseña Sheets("hoja1").Activate If TextBox2 = "" Or TextBox3 = "" Or TextBox5 = "" Or _ TextBox15 = "" Or TextBox19 = "" Then MsgBox "Está dejando campos requeridos vacios favor complete", vbExclamation, "Almacen" TextBox3.SetFocus Exit Sub End If Range("A" & Rows.Count).End(xlUp).Offset(3).Select ActiveCell = TextBox2.Value ActiveCell.Offset(0, 1) = TextBox3.Value ActiveCell.Offset(0, 2) = TextBox5.Value ActiveCell.Offset(0, 3) = TextBox19.Value ActiveCell.Offset(1, 3) = TextBox20.Value ActiveCell.Offset(2, 3) = TextBox21.Value ActiveCell.Offset(0, 4) = ComboBox1.Value ActiveCell.Offset(0, 5) = ComboBox2.Value ActiveCell.Offset(0, 6) = TextBox7.Value ActiveCell.Offset(0, 7) = TextBox15.Value Set h1 = Sheets("IMPRIMIR") h1.Range("F14") = Me.TextBox2.Text h1.Range("C17") = Me.TextBox3.Text h1.Range("C20") = Me.TextBox5.Text h1.Range("C23") = Me.TextBox15.Text h1.Range("C26") = Me.ComboBox1.Text h1.Range("C27") = Me.ComboBox2.Text h1.Range("C32") = Me.TextBox19.Text MsgBox "Registro ingresado exitosamente", vbInformation, "Servitap" PrepararNuevo End Sub , tengo un pequeño problema con una plantilla, que al momento de registrar los datos siempre me deja los tres espacios aunque no escriba en la fila 2 :
  2. Hola amigos, necesito un grandisimo favor, tengo este pequeño programa y me ha dado muchos dolores de cabeza. Lo que necesito es que no me deje espacios en Blanco si no le escribo nada, dejo el archivo adjunto Gracias INFORME MECANICO MIROLY.xlsx
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png