Adriel Ortiz Mangia

H o l a: ¿La fecha lo ingresas a través de caja de texto del formulario? Si es así aplica esto al vaciar a la hoja Cells (u, 1)= cdate(textbox1) si es en la celda usa la fórmula FECHANUMERO y le pones formato fecha a la celda

H o l a: Sub sumar() TextBox4.Text = Val(TextBox2) + Val(TextBox9) + Val(TextBox15) End Sub Private Sub TextBox15_AfterUpdate() Call sumar End Sub no te mostrará automáticamente pero después de salir del textbox15 saldrá la suma auto

H o l a: Sub Insertafila() ActiveSheet.Cells(3, 1).EntireRow.Insert shift:=xlDown End Sub

¿Pero cuál es el código?

H o l a: Nuestro amigo Dante esta ausente estos días, porque siempre estoy a la expectativa de sus respuestas, será que está a Full trabajo. Pero si deseas puedo apoyarte Muestra el código del combobox para validar los datos saludos!

H o l a: Private Sub CMD1_Click() If TextBox15 <> "" Then Set h1 = Sheets("NUCLEOS PRODUCIDOS") j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1 pedazo = 10 For i = 1 To Len(TextBox15) Cells(j, "I") = Mid(TextBox15, i, pedazo) Cells(j, "J") = Date...

H o l a: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("U4:U104")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target) Case "BAJA" MsgBox "El trabajador se encuetra...

H o l a: Aplica esto fecha1 = Mid(TXTFECHA, 4, 2) & "/" & Mid(TXTFECHA, 1, 2) & "/" & Mid(TXTFECHA, 7, 4) Range("A1") = CDate(fecha1)

H o l a: Set h1 = Sheets("Hoja1") ' cambia el nombre de la hoja por la tuya u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u1, "A") = Textbox1 'guarda datos del textbox1 en la columna A h1.Cells(u1, "B") = Textbox2 ' 'guarda datos del...

H o l a: sigue estos pasos https://www.youtube.com/watch?v=rdIkseFEePo