Temat: Makro - wstawianie warości w komórki przy warunku

Witajcie,

może ktoś z Was będzie mi w stanie pomóc: w kolumnie AG arkusza w komórkach od AG2 do AG7 muszę wstawić liczby porządkowe od 1 do 6 przy założeniu, że kod musi sprawdzić czy w kolumnie K jest co najmniej 6 komórek z danymi - wtedy wstawiamy wartości od 1-6. Jeżeli jest 5 komórek z danymi wstawić należy od 1 do 5 itd. Do tej pory stosowałem poniższe rozwiązanie, ale niestety w końcowej fazie obliczeń znalazłem braki tej metody (przy mniej niż 6 komórkach wstawia wartości od 1 do 6:( ):
Range("AG2").Select
ActiveCell.FormulaR1C1 = "1"
Range("AG3").Select
ActiveCell.FormulaR1C1 = "2"
Range("AG4").Select
ActiveCell.FormulaR1C1 = "3"
Range("AG5").Select
ActiveCell.FormulaR1C1 = "4"
Range("AG6").Select
ActiveCell.FormulaR1C1 = "5"
Range("AG7").Select
ActiveCell.FormulaR1C1 = "6"

Plików, które muszę tak zmodyfikować jest kilka tysięcy, a powyższy kod odpowiada tylko za numeracje komórek. Niestety nie mogę trafić na rozwiązanie tego tematu w VBA, a za mało jeszcze wiem o VBA by samemu rozwiązać problem.
Z góry dziękuję za pomoc.Ten post został edytowany przez Autora dnia 03.11.16 o godzinie 12:38

Temat: Makro - wstawianie warości w komórki przy warunku

Jak sam chcesz do tego usiąść to musisz się trochę nauczyć o: deklaracji zamiennych, zamiennych obiektowych, pętlach i ich typach. Poczytaj o funkcji Dir() lub o kontrolce FSO. Dodatkowo o warunkach IF/Case. Literatury nie brak na ten temat, czy pisanej czy w helpie dołączonym do instalacji jak i na MSDNie.

Tutaj widzę parę wersów z nagrywarki bo żadna to metoda. Aby się jednak zmierzyć z zadaniem to należy się zmobilizować i wkuć parę zasad obowiązujących w tym języku, bo nagrywarka wszystkiego nie potrafi.

Jak nie, bo ci na naukę szkoda czasu i nerwów, to tak jak idziesz do lekarza z bólem zęba, zamiast samemu sobie gmerać, to zleć komuś pracę, zapłać ciesząc się rozwiązaniem.

Temat: Makro - wstawianie warości w komórki przy warunku

Jak najbardziej się z Tobą zgodzę: muszę usiąść (i też to robię) trochę nauczyć się o: deklaracji zamiennych, zamiennych obiektowych, pętlach i ich typach. Poczytaj o funkcji Dir() lub o kontrolce FSO. Dodatkowo o warunkach IF/Case. itp
Jak najbardziej są to wersy z nagrywarki - ponieważ tak udało mi się tą część kodu rozwiązać. To nie jest tak że nic poza tym nie mam. W skrypcie działa mi min. otwieranie wszystkich plików z katalogu, wykonywanie na nich obliczeń, import arkusza ze wzorcowego skoroszytu itd... ( w oparciu o literaturę, helpy, wpisy na forach - również Twoje) i jakoś to działa (zapewne nie jest zoptymalizowane).

Jednak z problemem z tematu nie mogę sobie poradzić - z tego względu założyłem ten wątek z prośbą o pomoc. Oczywiście najprościej było by zlecić - ale chyba też chcę czegoś się nauczyć przy okazji.

Temat: Makro - wstawianie warości w komórki przy warunku

Napisałem ci hasła "klucze", na które musisz zwrócić szczególnie uwagę.
Trzymam kciuki za naukę i rozwiązanie problemu.