Adriel Ortiz Mangia

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: Esto para realizar la búsqueda Private Sub CODI_Change() Set h = Sheets("BD") Set b = h.Columns("A").Find(CODI) If Not b Is Nothing Then PACI = h.Cells(b.Row, "B") End If End Sub Para que funcione, tienes que capturar la letra en el CODI y...

H o l a: Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then Range("C10:C1002").ClearContents End If End Sub

H o la: Selecciona el rango de celdas que no vas a bloquear y dale el siguiente formato desactivando la casilla "Bloqueado" Finalmente protege la hoja y veras el resultado

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: Este vídeo te va ayudar lo que necesitas https://www.youtube.com/watch?v=QYIoFV0sUlI

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

H o l a: En mi ejemplo esta con la celda A1 cambia por la tuya, y ve si usas "," o ";" =SUSTITUIR(IZQUIERDA(A1,3),0,"")&DERECHA(A1,7)

=BUSCAR(1000,A4:I4)