Adriel Ortiz Mangia

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

H o l a: este vídeo me ayudó mucho https://www.youtube.com/watch?v=T3XiiL2s20o

H o l a: revisa esto te explicará paso a paso https://www.youtube.com/watch?v=iQrpYXbt9GQ

Application.DisplayAlerts = False Application. Quit El objeto Application simboliza a Excel mismo y nos da acceso a opciones y configuraciones a nivel de la aplicación. No es necesario que declares una variable

H o l a: usa la función INT en vez de CINT edad = Int((Date - fecha_nacimiento) / 365)

H o l a: ahí va la macro. Private Sub Workbook_Open() ' mensaje1 = MsgBox("POR FAVOR LEA ANTES DE COMENZAR" & Chr(13) & _ "Los campos resaltados son los que se debe llenar:" & Chr(13) & _ "Sí alguno de estos campos no aplica déjelo en blanco" &...

H o l a: Separa datos de la columna A y lo pondrå en la columna B y C Sub separa() For i = 1 To 10 j = 3 For k = 1 To 4 Cells(i, j) = Mid(Cells(i, "A"), k, 1) j = j + 1 Next Next End Sub

h o l a: Te faltó indicar la columna a sumar en el ejemplo puse la columna 3, cámbialo por el tuyo. For i = 0 To ListBox3.ListCount - 1 tot = tot + Val(ListBox3.List(i, 3)) Next i TextBoxD.Text = tot Me comenta y valora la respuesta para finalizar...