Adriel Ortiz Mangia

Si trabajas con windows 8 Presiona la tecla windows + P

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

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