Adriel Ortiz Mangia

[Hola Te paso la macro No observo las columnas, te paso un ejemplo y lo adecuas a tu necesidad Private Sub CommandButton1_Click() u = Range("A" & Rows.Count).End(xlUp).Row + 1 Cells(u, "A") = TextBox1 Cells(u, "B") = TextBox2 Cells(u, "C") = TextBox3...

[Hola Te paso la macro, agregado el color de fondo wcolor = vbBlack: wbold = False 'pase de datos Cells(fil, 1) = TextBox1 'Item # Cells(fil, 2) = TextBox2 'Producto # Cells(fil, 3) = TextBox3 'Descripcion del Producto Cells(fil, 4) = TextBox4 'Cant....

[Hola te paso la macro Sub validar() Set h1 = Sheets("Formulario") Set h2 = Sheets("BDC RAW DATA") ' ced = h1.[B1] If ced = "" Then MsgBox "Ingrese un cédula" Exit Sub End If Set b = h2.Columns("L").Find(ced, lookat:=xlWhole) If Not b Is Nothing Then...

[Hola Te paso la macro, lo pones en el evento Private Sub Workbook_Open() de tu libro En la hoja1 en la celda A1 guardará las veces que abres tu archivo, lo cambias a tu manera. Private Sub Workbook_Open() '[Por Adriel Ortiz '...

[Prueba así Sub ACCESO_HORA() If Format(Time, "hh:mm") < "20:50" Then MsgBox "acceder" Else MsgBox "NO acceder" End If End Sub

[Hola Usa la función ESPACIOS()

[Hola Te paso la macro para insertar tus datos del formulario a la hoja. -No tendrás dificultades si la hoja esta oculta -Cambia el nombre de la hoja por el tuyo. -Cambias los nombres del textbox por el que tengas en tu formulario. Private Sub...

[Hola te paso la macro Sub eliminar() '[Por Adriel Ortiz Set h = Sheets("Hoja1") ' u = h.Range("O" & Rows.Count).End(xlUp).Row For i = u To 2 Step -1 If Cells(i, "O") = "D" Then h.Rows(i).Delete xlShiftUp End If Next i MsgBox "Fin" End Sub Valora la...

Observa este vídeo para importar de excel a sql https://www.youtube.com/watch?v=Dc4WlqABvF8

[Hola Te paso la macro Sub multiplicar() ' '[Por Adriel Ortiz ' For i = 4 To Range("A" & Rows.Count).End(xlUp).Row For j = 2 To Cells(4, Columns.Count).End(xlToLeft).Column If Cells(i, "A") = "EXP" Then Cells(i, j) = Cells(i, j) * -1 End If Next j...