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

Ayudaría mucho si pones una imagen de cómo están tus datos y cuál es el resultado que necesitas. De lo contrario estaremos suponiendo todo. Un buen ejemplo debe contener lo siguiente: O prueba con la siguiente fórmula: =BUSCAR(2,1/(B2:B13=E2),C2:C13)

Ho la y bienvenida a TodoExpertos. Si la celda está en blanco o vacía entonces no aparece "00-01-1900", eso aparece cuando en la celda tienes un cero "0". Para que te ponga el 0 realiza lo siguiente: 1. Selecciona la celda o las celdas o toda 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...

Realiza lo siguiente: 1. Primero selecciona el userform. 2. Selecciona en el menú Ver, Orden de tabulación. 3. En la ventana Orden de tabulación, ordena de arriba hacia abajo de cada control incluyendo los marcos. Y presiona Aceptar. 4. Selecciona un...

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