ampliar rango de formula en macro

3 envíos / 0 nuevos
Último envío
yonigrinwod
Imagen de yonigrinwod
Offline
última acción: Hace 10 años 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 18/09/2010 - 20:28
Puntos: 875
ampliar rango de formula en macro
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
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 5 horas 59 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: ampliar rango de formula en macro

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.

Jorge (no verificado)
Imagen de Jorge
Ayuda

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