Temat: Nadanie zmiennej odpowiedniego zakresu.
autofiltr - excel
...faktycznie trochę zawile to tłumaczyłem, ale cieszę się że się wyjaśniło :) - dodanie tego zakresu nie jest mi potrzebne także wywaliłem ten zapis.
Dzisiaj sprawdziłem w pracy na wolniejszym kompie i śmiga w locie (bo w domu na Core2Duo to wszystkie makra mi śmigają, a potem w pracy się okazuje że wykonują się z 5 - 10 sek. :).
zakres = nothing - oczywiscie zeruje na koncu makra po potrzebnych petlach.
Tak wygląda część makra odpowiedzialna za obliczenie urlopów i chorób (istotne było aby liczył np. urlopy tylko w dni pracujące - czyli jeżeli w kolumnie C jakakolwiek wartość (tam są dni wolne wpisane) żeby nie liczył wtedy UW w kolumnie D):
Dim zakres As Range
Dim komórka As Range
Dim uw As Integer
Dim ch As Integer
Dim ch1 As Integer
ch1 = 0
ch = 0
uw = 0
'ZNALEZIENIE ZAKRESU
With ActiveSheet.AutoFilter.Range
Set zakres = .Offset(1, 0).Resize(.Rows.Count - 1,...
Źródło: forum.idg.pl/index.php?showtopic=134264