** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - error en fórmula vloopkup en codigo vb
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoerror en fórmula vloopkup en codigo vb

 Responder Responder
Autor
Mensaje
maruja Ver desplegable
Asiduo
Asiduo


Unido: 02/Julio/2008
Estado: Sin conexión
Puntos: 418
Enlace directo a este mensaje Tema: error en fórmula vloopkup en codigo vb
    Enviado: 18/Marzo/2011 a las 17:03

Hola,

Tengo este código, pero me da el siguiente error “se ha producido el error 1004 en tiempo de ejecución. Error definido por la aplicación o el objeto”

col = ActiveCell.Column

    col1 = -(col - 1)

    col4 = -(col - 4)

    Do Until Sheets("datos").Cells(fila, 1) = ""

            ActiveCell.FormulaR1C1 = _

            "=VLOOKUP(RC[col1],importado!R[6]C[col1]:R[480]C[col4],4,0)"

            ActiveCell.Offset(1, 0).Select

            fila = fila + 1

    Loop

 

El error está aquí:

ActiveCell.FormulaR1C1 = _

            "=VLOOKUP(RC[col1],importado!R[6]C[col1]:R[480]C[col4],4,0)"

Pero no lo entiendo, con esto funciona

ActiveCell.FormulaR1C1 = _

            "=VLOOKUP(RC[-17],importado!R[6]C[-17]:R[480]C[-14],4,0)"

Pero yo en lugar de con números lo necesito con variables.

¿Cómo lo soluciono?

gracias

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5511
Enlace directo a este mensaje Enviado: 18/Marzo/2011 a las 21:58
Prueba cambiando...
 
ActiveCell.FormulaR1C1 = _

            "=VLOOKUP(RC[col1],importado!R[6]C[col1]:R[480]C[col4],4,0)"

... por ...
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[" & col1 & "],importado!R[6]C[" _
        & col1 & "]:R[480]C[" & col4 & "],4,0)"
 
 
 
 
 


Editado por AnSanVal - 20/Marzo/2011 a las 14:44
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
maruja Ver desplegable
Asiduo
Asiduo


Unido: 02/Julio/2008
Estado: Sin conexión
Puntos: 418
Enlace directo a este mensaje Enviado: 20/Marzo/2011 a las 17:21
Ha funcionado,
 
muchas gracias
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable