Pasar MACRO a loop en VBA
Hola expertos, necesito pasar a un loop en VBA estas sentencias. EL problemas es que necesito aplicarlas a otras hojas, por la tanto la hoja debe ser una referencia.
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f11").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f12").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f13").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f14").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f11").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f12").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f13").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
range("f14").select
activecell.formular1c1 = _
"=if(iserror(vlookup('datos'!r[-4]c[-4],'verifica'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'datos'!r[-4]c[-4])"
1 respuesta
Respuesta de Elsa Matilde
1
Esta es la sintaxis (de la 1ra línea) para utilizar con variables:
"=if(iserror(vlookup('" & hoja1 & "'!r[-4]c[-4],'" & hoja2 & "'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'" & hoja1 & "'!r[-4]c[-4])"
Como aquí está saliendo todo el texto junto, quizás no se lea bien.
La idea es separar los bloques, entre comillas, de la parte fija con la variable:
"=if(........" & variable1 & "............." & variable2 & "..............."
"=if(iserror(vlookup('" & hoja1 & "'!r[-4]c[-4],'" & hoja2 & "'!r2c[-5]:indirect(r30c3),1,false)),""ninguna"",'" & hoja1 & "'!r[-4]c[-4])"
Como aquí está saliendo todo el texto junto, quizás no se lea bien.
La idea es separar los bloques, entre comillas, de la parte fija con la variable:
"=if(........" & variable1 & "............." & variable2 & "..............."
