Kako pomoću makronaredbe odrediti sljedeću slobodnu ćeliju u stupcu
U mnogim makronaredbama podatke treba stalno dodavati. Zatim je potrebno odrediti sljedeću ćeliju u stupcu u koji možete unijeti podatke. To možete riješiti pomoću Excel formule.
Međutim, ako želite odrediti posljednju ćeliju u makronaredbi, potrebne su vam VBA naredbe. Postoji nekoliko pristupa rješavanju problema. Evo prikladnog makroa:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile As Long
Ako je Val (lijevo (Application.Version, 2))> 11 Zatim
Maksimalna linija = 1048576
Drugo
Maksimalna linija = 65536
Završi ako
Postavi ćeliju = ćelije (Maxzeile, 1). Kraj (xlUp) .Offset (1, 0)
MsgBox "Sljedeća besplatna ćelija je" & cell.Address (False, False)
Kraj podm
Nakon pokretanja, makronaredba određuje sljedeću slobodnu, neiskorištenu ćeliju u stupcu A. Adresa ove ćelije prikazuje se u prozoru.
Makronaredba adresira posljednji redak u stupcu A aktivne tablice i, odatle, određuje zadnju ćeliju koja se koristi gore. Kako bi makro funkcionirao u Excelu do verzije 2003, kao i u Excelu od verzije 2007, na početku se pravi odgovarajuća razlika. Ovo razlikovanje slučajeva potrebno je jer se broj dostupnih linija povećao s verzijom 2007 sa 65536 na 1048576.
Ako želite pronaći slobodnu ćeliju u stupcu umjesto slobodne ćelije u stupcu A, zamijenite prvi broj 1 u zagradama nakon naredbe Stanice brojem odgovarajućeg stupca.
Savjet: Ako želite znati kako unijeti i pokrenuti makroe u Excelu, ovdje ćete pronaći kratak opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
