Adriel Ortiz Mangia

[Hola Envíame tu archivo archivo. Ya no lo tengo Si por ejemplo tuvieras estos datos Nombre---Apellidos ---Edad Pepe sánchez 55 Pepe arcila 20 Busco el nombre pepe, hubiera redundancia porque no supiera cual de ellos devolver a los textbox. A lo...

[Hola Te paso la macro, suponiendo que los títulos esta en la fila 1 tus datos a partir de la fila 2 Sub ordenar() 'Fuente: Dante ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add...

[Hola macro Sub MetodoAbrirLibro() Workbooks.Open "TuRuta\NombreLibro.xlsx" End Sub guía https://www.gerencie.com/macro-para-abrir-un-libro-de-excel-desde-otro-libro.html

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

[Hola te paso la macro actualizada Private Sub TextBox7_Change() Label9 = Len(TextBox7) If Label9.Caption >= 1 Then Label10.Caption = "Numero de Caracteres" Else Label10.Caption = Empty End If ' Dim NUMERO As Integer NUMERO = Label9.Caption ' Select...

[Hola puedes poner un límite con esto Private Sub UserForm_Activate() TextBox1.MaxLength = 64 End Sub