Jump to content

ibramad292

Members
  • Content Count

    6
  • Joined

  • Last visited

  1. Mil gracias Antoni, excelente el ejemplo. Me sirvió muy bien para simplificar el código.
  2. Mil gracias mi pana... Solución sencilla pero funcional...Excelente aporte
  3. Buenas tardes, Tengo un formulario donde necesito sumar 5 textbox y ese valor escribirlo en una celda, muchas veces el textbox o los textbox deben quedar en blanco porque no se requiere ingresar esos datos. El código que escribí le asigna el valor cero "0" cuando queda vacío, pero me da error y me manda a depurar cuando desde el tercer al quinto textbox quedan vacíos. El código es el siguiente: Private Sub btn_registro_producción_Click() If TextBox12.Text = "" Then TextBox12 = "0" ElseIf TextBox14.Text = "" Then TextBox14 = "0" End If If TextBox15.Text = "" Then TextBox15 = "0" ElseIf TextBox16.Text = "" Then TextBox16 = "0" End If If TextBox17.Text = "" Then TextBox17 = "0" End If Dim n As Byte If ComboBox1.Value = "3" And ComboBox8.Value = "1" Then Worksheets("L3").Select Range("B5").Select While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Select Wend n = ActiveCell.Row With ThisWorkbook.Worksheets("L3") .Cells(n, 2).Value = ComboBox4 .Cells(n, 3).Value = CDbl(TextBox2) .Cells(n, 5).Value = CDbl(ComboBox9) .Cells(n, 6).Value = CDbl(TextBox3) .Cells(n, 7).Value = CDbl(TextBox4) / CDbl(ComboBox10) .Cells(n, 12).Value = CDbl(TextBox4) .Cells(n, 14).Value = CDbl(TextBox5) .Cells(n, 35).Value = CDbl(TextBox8) .Cells(n, 35).AddComment .Cells(n, 35).Comment.Text Text:=ComboBox7.Value .Cells(n, 35).Comment.Visible = False .Cells(n, 42).Value = CDbl(TextBox13) + CDbl(TextBox18) .Cells(n, 37).Value = CDbl(TextBox9) + CDbl(TextBox10) .Cells(n, 41).Value = CDbl(TextBox12) + CDbl(TextBox14) + CDbl(TextBox15) + CDbl(TextBox16) + CDbl(TextBox17) Normalmente el TextBox 12 debe llenarse, a veces se llenan todos, o a veces solo el 12 y el 14, y es ahí donde me da error. Lo que quiero evitar es escribir cero "0" en cada uno para evitar el error. De antemano Gracias por el apoyo que puedan brindar.
  4. Gracias Diego. ya había probado esto pero no funcionaba. Nuevamente gracias por la pronta respuesta.
  5. Mil Gracias por tu respuesta Virgilio. Funciono perfecto.
  6. Buenas tardes, tengo el siguiente caso, estoy usando un formulario para ingresar datos en una hoja, uno de los datos es la duración de un evento en minutos a través de un textbox, y el formulario lo divide entre 60 para llevarlo a horas. El tema es que para poder ingresar decimales tengo que utilizar la coma(,) del teclado principal, ya que si uso el punto(.) del teclado numérico me da un error en el valor que escribe el código. El código es el siguiente: Private Sub btn_registrar_Click() Dim TransRowRng As Range Dim NewRow As Integer Set TransRowRng = ThisWorkbook.Worksheets("INPUT").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("INPUT") ActiveSheet.Cells(NewRow, 1) = CDbl(TextBox1) ActiveSheet.Cells(NewRow, 2) = CDbl(TextBox2) ActiveSheet.Cells(NewRow, 3) = TextBox3 ActiveSheet.Cells(NewRow, 4) = TextBox4 ActiveSheet.Cells(NewRow, 5) = TextBox5 ActiveSheet.Cells(NewRow, 6) = TextBox6 ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0,00")) ActiveSheet.Cells(NewRow, 7) = TextBox7 End With TextBox5 = Empty TextBox6 = Empty TextBox8 = Empty TextBox7 = Empty TextBox5.SetFocus End Sub Me gustaría poder usar el punto(.) del teclado numérico para mayor comodidad y rapidez. Gracias de antemano.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png