Copiar formulas a hoja excel con MACRO
La situación se trata de que creo formulas desde la una MACRO para copiar a una hoja de excel, pero se me presenta inconvenientes al hacerlo de dos formas. Por ejemplo, a través de un ciclo for deseo copiar la siguiente formula en la columna O, partiendo de la fila 7 : =SI(O(D7="ED";D7="DE";D7="AP";D7="DD";D7="EG";D7="PP";D7="PD";D7="SB";D7="SE";D7="GP");I7;0) y la 1° forma en hacerlo desde la Macro es asi:
For asig = 7 To 50
Sheets(HojaDestino).Cells(asig, 15) = "=SI(O(D" & asig & "=""ED""" & "," & "D" & asig & "=""DE""" & "," & "D" & asig & "=""AP""" & "," & "D" & asig & "=""DD""" & "," & "D" & asig & "=""EG""" & "," & "D" & asig & "=""PP""" & "," & "D" & asig & "=""PD""" & "," & "D" & asig & "=""SB""" & "," & "D" & asig & "=""SE""" & "," & "D" & asig & "=""GP""" & ")" & "," & "I" & asig & "," & "0)"
next
pero al hacerlo, veo en las donde supuestamente se copiarían y aparecen como #¿NOMBRE?, y para que se vean bien, debo seleccionar la celda con doble click y luego enter, de esa forma se arregla, pero eso debo hacerlo celda por celda, lo cual sería una perdida de tiempo.
Y la 2° forma que lo hago es agregándole FormulaLocal, pero para que copie bien la formula debo configurar en Panel de Control(win 7)->Configuración regional de idiomas, en la pestaña Formatos, seleccionando configuración adicional y cambio el símbolo decimal de coma "," por un punto "." y el símbolo separador de miles lo cambio de un punto "." por una coma"," de no ser así se cae el programa. La 2° forma en lo hago es la siguiente:
For asig = 7 To 50
Sheets(HojaDestino).Cells(asig, 15).FormulaLocal = "=SI(O(D" & asig & "=""ED""" & "," & "D" & asig & "=""DE""" & "," & "D" & asig & "=""AP""" & "," & "D" & asig & "=""DD""" & "," & "D" & asig & "=""EG""" & "," & "D" & asig & "=""PP""" & "," & "D" & asig & "=""PD""" & "," & "D" & asig & "=""SB""" & "," & "D" & asig & "=""SE""" & "," & "D" & asig & "=""GP""" & ")" & "," & "I" & asig & "," & "0)"
next
Que solución se podría dar para evitar estos inconvenientes, espero su pronta ayuda, desde ya, gracias.
