Vyhledat řádek a vložit hodnotu Vyřešeno

[VALL]

Ahoj,

Řeším následující. Poteřbuji makrem najít řádek dle zadaných kritérií a vložit do průsečíku řádku a pevně daného sloupce hodnotu.
Přesně popsané v přiloženém souboru.

[Reklama]

[Azuzula]

Co třeba takhle?

Najdi řádek_kReseni (1).xlsm

(114.75 KiB) Staženo 36 x

[VALL]

Ahoj,
Díky za zajímavé řešení. Snažil jsem se pochopit a rozluštit první část kódu a musím tě požádat, zda by jsi mě vysvětlila, co ten kód vlastně udělá.
samozřejmě jsem první použil nápovědu a web, ale stejně bych požádal.... :).

For a = 9 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(a, 1).Select

[Azuzula]

-Je to cyklus "For Next" - v mém podpisu jsou weby kde se dají najít i příklady
-"a" je proměnná do které se počítá (za každé proběhnutí jednoho cyklu) další číslo (v příkladech tam mají proměnnou "i" ale je jedno jak se pojmenuje)
-"Cells(Rows.Count, 1).End(xlUp).Row" spočítá počet neprázdných buněk ve sloupku 1, takže spočítá číslo poslední buňku s daty.
-"Cells(a,1).select" za "a" se dosadí číslo cyklu v tomto případě (první řádek je č. 9 a s každým proběhnutím cyklu je tam dosazeno +1)

Snad jsem to vysvětlila srozumitelně a snadno to pochopíš

[VALL]

díky, chápu.
ještě bych požádal jednu radu.
Potřebuji do proměnné d vložit aktuální rok. udělal jsem to následovně a vždy error.

d = year(today()) - zkoušel jsem i předřadit worksheetfunction. a nic

[Azuzula]

d = Year(Now)