Adriel Ortiz Mangia

=SI(HORA(B1)<=HORA(A1);"EN HORA";"TARDE")

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: En la celda ingresa 1 y 3 y pon el cursor en el borde inferior derecho como te muestro en la imagen y arrástralo hacia abajo. Así lo haces para resto si quieres pares pones 1, 2.. Si quieres que empiece del 2, 5 y lo arrastras

H o l a: Comparte el libro, pero tiene ciertas limitaciones por ejemplo insertar, filtros avanzados etec.. Infórmate aquí Compartir libros con macros Formulario en excel en red y trabajen en simultaneo Valora la respuesta para finalizar saludos!

H o l a: Usa 2 botones para oculta y mostrar Sub ocultar() Sheets("Hoja2").Visible = True 'oculta la hoja Sheets("Hoja3").Visible = False ' Muestra la hoja End Sub Sub mostrar() Sheets("Hoja2").Visible = False 'Muestra la hoja Sheets("Hoja3").Visible...

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...

H o l a: En esta parte del código ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1) ListBox1.List(i, 2) = Range(ubica2). Offset(0, 2) Agrega ListBox1.List(i, 3) = Range(ubica2).Offset(0, 3) ListBox1.List(i, 4) = Range(ubica2).Offset(0, 4) ' ' ' Me...

H o l a : Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJARuta = "C:\Users\Alonso\Desktop\" 'CAMBIA LA RUTA DEL ESCRITORIOSub Guardarpdf() Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJA Application.ScreenUpdating = False...