Adriel Ortiz Mangia

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

Yo recomendaría el CentOS de linux http://www.comoinstalarlinux.com/como-instalar-centos-linux-como-servidor/

TextBox25.Text = Format(T_25, "#0.00")