Adriel Ortiz Mangia

[Hola Muestra tu macro y que resultado deseas

[Hola Te paso la macro. Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("H:H")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target.Value Case "" Cells(Target.Row, "N") = "" Case Else...

[Hola Indica cual el nombre de tu hoja y de los controles para adecuar la macro.

[Hola Al final de error está escrito cuount Es : count

[hola prueba esto Sub Rectángulo_Haga_clic_en() ' Dim Catalogo, Fecha, Devoluciones, Facturado, Ruta As String Dim Facturas As Byte ' Catalogo = Range("C4").Value Fecha = Range("H3").Value Facturas = Range("H5").Value Devoluciones =...

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