Doplňování baličáku

[Syny09]

Dobrý den, potřeboval bych poradit s automatickým doplňováním balícího listu, potřebuji aby když se např. do buňky A12 napíše typ který je shodný s tím co je v listu typy a automaticky doplnit sloupec Pcs, váha, a rozměry kartonů. Zkoušel jsem funkci SVYHLEDAT ale pokud není nic vyplněno tak to hází křížky #### a potom mi to nesčítá na konci listu váhu a tu potřebuji průběžně kontrolovat. Nejlepší by asi bylo nějaké makro, ale nějak nemůžu přijít na to jak ošetřit aby když se změní ve 12 řádku aby to vyplňovalo data pouze ve 12 řádku a potřebuju to na všech 522 řádků, takže nějaký if nebo Když nepřipadá v úvahu. Máte někdo nějaký nápad či návrh? Předem děkuji.

[Reklama]

[Azuzula]

Zdravím,
řešila bych to funkcí "CHYBHODN" nebo "KDYŽ", vzorec do buňky "G14" je následující:
=CHYBHODN(SVYHLEDAT(A14;Typy!$A$2:$H$30;3;0);0)
nebo
=KDYŽ(A14="";0;SVYHLEDAT(A14;Typy!$A$2:$H$30;3;0))
Do ostatních buněk to už zvládnete upravit sám, co?

[Syny09]

Děkuji za radu, ještě bych se chtěl zaptat, když chci deklarovat proměnou pro celý list tak ji píšu do General, napíšu:

Kód: Vybrat vše

Dim pal
pal = 1

a při jakékoli změně na listu to zahlásí:
invalid outside procedure
Nevíte někdo proč?

[cmuch]

To se znací takto

Kód: Vybrat vše

Const pal As Integer = 1

[Syny09]

jenze ja tu promenou potrebuju menit a to jaksi s konstantou nelze

[cmuch]

Tak pak bude jen

Kód: Vybrat vše

Dim pal as integer

a hodnota se bude nastavovat v jednotlivých makrech.