como le hago para ampliar el rango de esta formula en esta macro
y que llegue hasta donde la columna no contenga datos
ejemplo hasta la columna DX
Sub formulabuscarcoincidir()
Dim UltimaFila As Long
UltimaFila = Cells(Rows.Count, "E").End(xlUp).Row
Range("F5").FormulaR1C1 = "=+VLOOKUP((RC2&RC3),Macro!R1:R65536,MATCH((R1C&R2C&R3C),Macro!R1,0),0)"
Range("F5:F" & UltimaFila).FillDown
End Sub
y que llegue hasta donde la columna no contenga datos
ejemplo hasta la columna DX
Sub formulabuscarcoincidir()
Dim UltimaFila As Long
UltimaFila = Cells(Rows.Count, "E").End(xlUp).Row
Range("F5").FormulaR1C1 = "=+VLOOKUP((RC2&RC3),Macro!R1:R65536,MATCH((R1C&R2C&R3C),Macro!R1,0),0)"
Range("F5:F" & UltimaFila).FillDown
End Sub
Se supone que la celda en la última fila la detectas y la guardas en UltimaFila según los datos de la columna E ¿no?
¿te refieres al rango sobre el que calcula la fórmula en sí?, ¿te refieres a lo de la fila 65536?
pues compón una cadena con UltimaFila, por ejemplo:
Range("F5").FormulaR1C1 = "=+VLOOKUP((RC2&RC3),Macro!R1:R" & UltimaFila & ",MATCH((R1C&R2C&R3C),Macro!R1,0),0)"
no sé si es esto a lo que te refieres
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
Antes que nada me presento mi nombre es Jorge.
Es un gusto porder saludarte al mismo tiempo aprovecho para solicitar su ayuda. Tengo un incoveniuente con un tema de excel la siguiente formula en macro;
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B2") Then
Range("C2").Value = ""
End If
If Target = Range("I2") Then
Range("J2").Value = ""
End If
End Sub
Me gustaria saber si puedo incrementar el rango ejemplo que ne ves de que solo me aplique para la celda "B2" "C2" tambien lo pueda realizar a las demas celdas de la misma columna, osea para B3, B4, C3, C4 etc.
De antemano agradezco su apoyo brindado. Saludos