Adriel Ortiz Mangia

[Hola te paso la macro, cambias el nombre de tus controles por el tuyo Private Sub ComboBox1_Click() 'x Elsamatilde 'Act. Adriel Ortiz ' Set h = Sheets("Hoja1") ' Hoja a buscar If ComboBox1 = "" And ComboBox1 = -1 Then Exit Sub 'se busca el código en...

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

[Hola te paso la macro actualizada Private Sub CommandButton2_Click() ' If OptionButton1 = False And OptionButton2 = False Then MsgBox "Seleccione un option" Exit Sub End If ' vcs = Array("TextBox5", "Código", "Nombre", "Apellidos", "DNI", _...

[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 Muestra la macro