Foro Excel

Estimados todos:

Estoy haciendo una aplicacion que me ayude a simplificar mi trabajo del dia y para esto tengo que utilizar la funcion buscarv en la columna C dela Hoja POLIZA con la siguiente macro.

Código: Seleccionar todo

Sub Contabilizar()
For X = 1 To 65536
If Cells(X + 7, 3 - 1) = "" Then Exit Sub
Cells(X + 7, 3).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],DINAMICO,2,FALSE)"
Next X
End Sub

Pero lo que quisiera es que esta función solo me de el resultado en dichas celdas y no que me ponga la formula, ya que estamos hablando de mas de 500 registros diarios y esto hace que el archivo se vuelva mas pesado.

Para esto les adjunto el archivo, y les sea mas facil darme sus posibles soluciones.

Gracias de antemano.

Te adjunto el archivo con una solución. Espero que te valga.



Salu2

Muchas gracias IWOLLS:

Voy a descargar el archivo y te comento como me fue, de antemano gracias.

Salu2

que compa, siempre le sirvio?

Hola

Si deseas ganar velocidad (ya que comentas que tienes muchos datos) lo recomendable es aplicar la formula a todo el rango. Intenta de la siguiente forma:

Código: Seleccionar todo

Sub Contabilizar()
    If Range("B" & Rows.Count).End(xlUp).Row < 8 Then Exit Sub 'salida si no hay datos
    With Range("B8", Range("B" & Rows.Count).End(xlUp)).Offset(, 1)
        .Formula = "=VLOOKUP(RC[-1],DINAMICO,2,FALSE)"
        .Value = .Value
    End With
End Sub

Saludos cordiales

Muchas gracias a neverdelimon1 y a IWOLLS, sus respuestas son excelentes y me son de gran ayuda..

Seguire con mi archivo y si me atoro mucho les agradecere me sigan apoyando, al igual yo a ustedes cuando se pueda.. Salu2

Señores que buen tema y que buen ejercicio... se aprende hacer cositas
muchas gracias.

Morfeo

neverdelimon1 escribió:Hola

Si deseas ganar velocidad (ya que comentas que tienes muchos datos) lo recomendable es aplicar la formula a todo el rango. Intenta de la siguiente forma:

Código: Seleccionar todo

Sub Contabilizar()
    If Range("B" & Rows.Count).End(xlUp).Row < 8 Then Exit Sub 'salida si no hay datos
    With Range("B8", Range("B" & Rows.Count).End(xlUp)).Offset(, 1)
        .Formula = "=VLOOKUP(RC[-1],DINAMICO,2,FALSE)"
        .Value = .Value
    End With
End Sub

Saludos cordiales