Stránka 1 z 1

vkládání vzorců

Napsal: 16 čer 2009 10:19
od Branscombe
Ahoj, zase jsem bezradný :-(

Potřeboval bych makro které mi vloží do buňky (M33) vzorec (=KDYŽ(NEBO($AC33="";$AC33=0);"";KDYŽ(Main!$A$1=PRAVDA;$AC33;KDYŽ(Main!$B$1=PRAVDA;INDEX($B:$C;POZVYHLEDAT($AC33;$B:$B;0);2))))) pouze za podmínky že je buňka X33 vyplněna.

A takto by to makro mělo vložit na celý list. Mám vyplněno třeba X33 až X5000 a potřebuji ten vzorec vložit do buněk M33 až M5000

Poradíte mi někdo ??

Re: vkládání vzorců

Napsal: 16 čer 2009 10:58
od mike007
Proč zrovna makro? Proč si do M33 nedáš vzoreček?

=KDYŽ(X33="";"";KDYŽ(NEBO($AC33="";$AC33=0);"";KDYŽ(Main!$A$1=PRAVDA;$AC33;KDYŽ(Main!$B$1=PRAVDA;INDEX($B:$C;POZVYHLEDAT($AC33;$B:$B;0);2)))))

Tady je makro:

Sub vzorecek()
For a = 33 To Range("x65536").End(xlUp).Row
If Cells(a, 24) <> "" Then Cells(a, 13).FormulaR1C1 = "=IF(OR(RC29="""",RC29=0),"""",IF(Main!R1C1=TRUE,RC29,IF(Main!R1C2=TRUE,INDEX(C2:C3,MATCH(RC29,C2,0),2))))"
Next a
End Sub

Re: vkládání vzorců  Vyřešeno

Napsal: 16 čer 2009 11:08
od Branscombe
Nádhera... Díky moc.

Nemůžu tam dát jen vzoreček, jelikož někdy budu mít na listu třeba jen 200 záznamů a jindy zase třeba 30.000 záznamu a pak kdyby byl vzoreček na všech řádcích už na začátku tak by ten soubor byl brutálně velký. Takže ještě jednou díky moc.

Re: vkládání vzorců

Napsal: 16 čer 2009 11:24
od mike007
Soubor bude velký, až tam pomocí makra natáhneš všude vzoreček... :wink:
Tomu se prostě nevyhneš.