Numeros consecutivos insert. Formula en una macro
Hola expertos.
A ver is echáis una manilla.. Que estoy atascado !
Tengo que "terminar" esta macro (que se que está mal...)
Sub insertar_formula()
Range("B21").Select
For i = 1 To 94
Range("B21").formula = "=+IF('PURE'!G21<>"""",'PURE'!b21,"""")"
Next
End Sub
¿Qué tengo que cambiar para que me haga ese bucle en 94 filas pero cambiando de B21 a B22, B23, B24 ... Etc?
Muchas gracias por adelantado
A ver is echáis una manilla.. Que estoy atascado !
Tengo que "terminar" esta macro (que se que está mal...)
Sub insertar_formula()
Range("B21").Select
For i = 1 To 94
Range("B21").formula = "=+IF('PURE'!G21<>"""",'PURE'!b21,"""")"
Next
End Sub
¿Qué tengo que cambiar para que me haga ese bucle en 94 filas pero cambiando de B21 a B22, B23, B24 ... Etc?
Muchas gracias por adelantado
1 respuesta
Respuesta de Cadipas spain
1
Cambia por este otro código:
Sub insertar_formula()
For r = 21 To 94
Cells(r, 2).Formula = "=+IF('PURE'!G21<>"""",'PURE'!b21,"""")"
Next
End Sub
Sub insertar_formula()
For r = 21 To 94
Cells(r, 2).Formula = "=+IF('PURE'!G21<>"""",'PURE'!b21,"""")"
Next
End Sub
Fenómeno !
Pero necesitaría que también cambiase el 21 de dentro de la fórmula IF.
A 22, 23, 24.....
¡ Que estoy más parado que la economía española !
Gracias otra vez y sobre todo por la rapidez.
Pero necesitaría que también cambiase el 21 de dentro de la fórmula IF.
A 22, 23, 24.....
¡ Que estoy más parado que la economía española !
Gracias otra vez y sobre todo por la rapidez.
Prueba esto:
Sub insertar_formula()
For r = 21 To 94
miformula = "=+IF('PURE'!RC[5]<>"""",'PURE'!RC,"""")"
Cells(r, 2).Formula = miformula
Next
End Sub
Sub insertar_formula()
For r = 21 To 94
miformula = "=+IF('PURE'!RC[5]<>"""",'PURE'!RC,"""")"
Cells(r, 2).Formula = miformula
Next
End Sub
Fantástico.. va perfecto.
Ahora ya la duda final:
Esta macro empieza en la celda B21 hasta la 94. Hasta aquí perfecto !
PERO... ¿y si quiero que "miformula" empiece a buscar en la hoja PURE 4 lineas antes?. Es decir, desde la G17 (y luego G18.. g19...)
Yo ya me rio.. pero me estoy volviendo loco..
A ver si me explico mejor.. ¿podría hacerse algo así?
miformula = "=+IF('PURE'!RC-4[5]<>"""",'PURE'!RC-4,"""")"
Ahora ya la duda final:
Esta macro empieza en la celda B21 hasta la 94. Hasta aquí perfecto !
PERO... ¿y si quiero que "miformula" empiece a buscar en la hoja PURE 4 lineas antes?. Es decir, desde la G17 (y luego G18.. g19...)
Yo ya me rio.. pero me estoy volviendo loco..
A ver si me explico mejor.. ¿podría hacerse algo así?
miformula = "=+IF('PURE'!RC-4[5]<>"""",'PURE'!RC-4,"""")"
Veo que intentas comprender, pero solo intentas... JA JA JA, perdón pero no me estoy riendo de ti, simplemente es que estoy un poco graciosillo... intentalo de la siguiente manera..
Sub insertar_formula()
For r = 21 To 94
miformula = "=+IF('PURE'!R[-4]C[5]<>"""",'PURE'!R[-4]C,"""")"
Cells(r, 2).Formula = miformula
Next
end sub
' Suerte
Sub insertar_formula()
For r = 21 To 94
miformula = "=+IF('PURE'!R[-4]C[5]<>"""",'PURE'!R[-4]C,"""")"
Cells(r, 2).Formula = miformula
Next
end sub
' Suerte
Se me olvido decirte, que si das por terminada la pregunta, cierra y valora.
Funciona perfecto, eres rápido y encima con "buen rollo".
Que echen a Bill Gates y te contraten ya
Un millón de gracias desde Madrid
Que echen a Bill Gates y te contraten ya
Un millón de gracias desde Madrid
