Dante Amor

Prueba lo siguiente: Sub test() Dim fila With Range("A1", Range("A" & Rows.Count).End(3)) fila = Evaluate("=MIN(IF((" & .Address & "=""Perro"")*(" & .Offset(, 1).Address & "=""Rojo""),ROW(" & .Address & ")))") If fila = 0 Then MsgBox "No existe la...

Prueba lo siguiente: Private Sub CB_GPRE_Click() Dim sh As Worksheet Dim f As Range, c As Range Dim col As Long ' Application.ScreenUpdating = False ' Set sh = Sheets("DG") col = Columns("J").Column 'BUSCAR Set f = sh.Range("B:B").Find(TXT_CODIGOPR,...

Si solamente es un criterio, entonces necesitas la fórmula Sumar. Si https://exceltotal.com/la-funcion-sumar-si-en-excel/ Excel. Función sumar. Si con condición referenciada a una celda Si son más criterios entonces Sumar. Si. Conjunto...

Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range, n As Long Set rng = Intersect(Target, Range("B2:B" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng...

Pon la siguiente fórmula en la celda H1 =SUMAPRODUCTO((A6:A17=G1)*(B6:B17=G2)*(C5:F5=G3)*(C6:F17)) Salu dos

Por cierto, al final de la respuesta hay un botón para valorar la respuesta. No olvides valorar cada una de las respuestas.

Prueba lo siguiente: Sub Macro2() Dim ws1 As Worksheet, ws2 As Worksheet Dim wb As Workbook Dim libro As Variant, colso As Variant, colsd As Variant Dim i As Long, lr As Long ' Application.ScreenUpdating = False ' Set ws1 = ActiveSheet libro =...

Prueba así: Sub CopiarCeldas_VIDEO_C() With Worksheets("Registro VIDEO C.") .Range("B" & Rows.Count).End(3)(2).Resize(1, 4).Value = Application.Transpose(Range("C6:C9").Value) .Select End With End Sub

Con todo gusto, te anexo una breve explicación: 'PROCESO 'recorre cada uno de los elementos del arreglo 'a' For i = 1 To UBound(a, 1) 'almacena en un diccionario. Pone como llave el ID 'y "dentro" de la llave almacena el item, el item está formado...

¿Cuál es tu idea, registrar en una, después registrar en la segunda hoja, después registrar en la tercera hoja? ¿O quieres pasar como parámetro el nombre de la hoja y que haga el registro en la hoja que pasaste como parámetro?