Adriel Ortiz Mangia

[Hola El método Find puede buscar el valor con una coincidencia exacta o parcial con el valor de la celda.

[Hola prueba esto Private Sub ListBox1_Click() Fila = ListBuscar.List(ListBuscar.ListIndex, 0) Cells(Fila, 1).Activate End Sub valora la respuesta para finalizar

[Hola Te paso la macro de Dante, el resultado será en la hoja2. Cambia los nombre de las hojas por el tuyo. Sub subtotales() 'Por.DAM 'Act. Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.ClearContents u = h1.Range("A" &...

[Hola prueba esto Function insertarRegistro(OrdendeCompra As String, Fecha As String, N°deTransporte As String, Proveedor As String, GuiadeDespacho As String, Factura As String, Cantidad As String, Producto As String, Comentario As String,...

[Hola Te paso la macro Sub separa() ' '[Por Adriel Ortiz ' uc = 21 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row For k = 1 To 6 Cells(1, uc) = Mid(Cells(i, "A"), k, 1) uc = uc + 1 Next k Next i MsgBox "finalizado" End Sub Valora la respuesta...

[Hola Tienes problemas con algunas teclas por lo visto que es la tecla F7, ya que con ésta la opción de revisión ortográfica. Imagino que el Ms Word te pasará lo mismo. Tu teclado requiere limpieza, y si persiste cambiar el teclado.

[Hola Te paso la macro. Para que busques con la primer option "INGRESO" Has lo mismo para el resto, solo cambia las columnas Private Sub Buscar_Click() 'Fuente Dante 'Act. por Adriel Set h1 = Sheets("Hoja1") ' If OpcionIngreso Then ListBuscar.Clear...

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

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