Proszę o pomoc przy rozwiązaniu zadania.

Question

Witam :)
Dostałem do wykonania zadanie w visual basicu do zrobione lecz kompletnie nie wiem jak się do tego zabrać wywala mi cały czas błędy. Jestem w tym totalnie zielony...

Tutaj zadanie: https://megawrzuta.pl/download/dc9fc55eabfd756e0f35ade76d137f80.html

Prefiksy oraz przyciski dodałem lecz chodzi o samo programowanie.

Dodałem już cześć kodu:

Private_sub frmRowery_Initialize()
    Call deAktywuj
    arRowery = Application.CountA(Sheets("Rowery").Range("A:A"))
    arRodzaj = Application.CountA(Sheets("Rodzaje").Range("A:A"))
    lstRowery.RowSource = "Rowery!A2:E" & arRowery
    comRodzajRoweru.RowSource = "Rodzaje!B2:B" & arRodzaj
End Sub

lecz wywala mi błąd "Invalid outside procedure".

Bardzo proszę o pomoc.

Answer 1

Już podaję rozwiązanie: nauka. Konfucjusz: "Powiedz mi, a zapomnę. Pokaż – zapamiętam...."

Comments

Nie chciałem gotowego rozwiązania tylko jak to ugryźć.. Ale na szczęście już się znalazła dobra duszyczka