jrgces

Si tiene Excel 365 (y quizás también 2019, no estoy seguro), pruebe con: =SUMA(SI.ERROR(XMLFILTRO("<t><s>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(IZQUIERDA(A1;LARGO(A1)-1);"$";"");" ";",");",";"</s><s>")&"</s></t>";"//s");0))

Por ejemplo, si los datos están en A2:C20 y el código a buscar es "a": =INDICE(SI(B2:B20="a";C2:C20);COINCIDIR(MAX(SI(B2:B20="a";A2:A20));SI(B2:B20="a";A2:A20);0)) teniendo en cuenta que:

Por probar: Sub prueba() Dim m(1 To 10, 1 To 10) As Variant, mm As Variant Dim n As Integer, s As String m(1, 1) = 1: m(2, 1) = "a" m(1, 2) = 1: m(2, 2) = "b" m(1, 3) = 1: m(2, 3) = "c" m(1, 4) = 2: m(2, 4) = "d" m(1, 5) = 2: m(2, 5) = "e" m(1, 6) =...

Intenta: ubound(matriz,2)-lbound(matriz,1)+1 Saludos_

Si tienes el Excel 365 (quizás el 2019 también, pero no estoy seguro), cargar en Listbox1 los valores únicos de la columna Columna3 de Tabla1 en el orden en el que estén es tan fácil como Private Sub UserForm_Initialize() Me.ListBox1.List =...

No creo que la sintaxis de VBA admita referenciar una variable mediante el valor de otra variable. Hasta donde yo sé, esto no es posible (aunque está claro que podría estar equivocado). Si he entendido el problema, una posible solución sería que VAR1...

Prueba con: Sub prueba() Dim rngR As Range With Worksheets("Hoja2") Set rngR = .Range("A3:A" & CStr(.[A100000].End(xlUp).Row)).SpecialCells(xlCellTypeConstants) rngR.Copy .[C3].PasteSpecial xlValues End With Set rngR = Nothing End Sub Saludos_

En G2: =PROMEDIO.SI.CONJUNTO($F$2:$F$17;$E$2:$E$17;E2) Estender hacia abajo hasta donde haga falta. Saludos_

Si conviertes ambos valores a número antes de hacer la comparación no debería haber problemas: =SI(1*B1=1*C1;"OK";"") Saludos_

Prueba con algo parecido a: Sub prueba() Dim filaDondeCopiar As Integer: filaDondeCopiar = 13 Dim f As Integer Dim LibroDestino As Workbook, LibroOrigen As Workbook, HojaDestino As Worksheet, HojaOrigen As Worksheet Set LibroDestino =...