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

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

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

Revisa si lo siguiente es lo que necesitas: Sub CREAR_INFORME() Dim objWord As Word.Application, wdDoc As Word.Document Dim nom As String, nomarch As String, ruta As String Dim nomfic As String, rutainf As String, ts As String Dim x As Long, can As...

Supongo que tienes algo como esto: While ActiveCell.Value <> "" And ActiveCell.Value <> "GASTOS:" ' 'realice los procesos correspondientes ' ActiveCell.Offset(1).Select Wend

Crea una columna Auxiliar en la columna H y pon los lugares ordenados del "PRIMER PREMIO" al "QUINTO PREMIO". Utiliza la función BuscarV para buscar el premio en la columna C y obtener al jugador de la columna D. =BUSCARV(H6,C:D,2,0) Observa la imagen: