MS Excel - Pętle w kodzie - jak tworzyć i prawidłowo wykorzystać (VBA)

[@piotrekmajkowski5422]

Dzięki. Bardzo fajne powtórzenie na szybko. 😀

[@kajetaneczka]

generalnie super i dziekuje za materiał. bardzo pomocny :)
I niestety taki świeżak jak ja musi sie mocno skupić i troche jeszcze doinformować

[@mikoaj]

Fajny film a po za tym mam pytanie :)
Czym funkcjonalnie różni się ten kod(I ten kod "sub"i ten funkcji jest zapisany w module klasy ,a nie zwykłym module ):
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub nowy()
MsgBox "witaj"
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
od
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function nowy()
MsgBox "witaj"
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
I ten kod i ten jest zapisany w module klasy ,a nie zwykłym module

[@damianmiagala9651]

Cześć, mam następujące pytanie. Co tydzień dostaję pliczek excela wypełniony danymi, w którym to muszę przekopiować daną komórkę (C30) do innego pliku jako nowy wiersz. Czy ten proces da się zautomatyzować? Jeśli tak to proszę o jakąś podpowiedź w postaci kodu(makra), z góry bardzo dziękuję za odzew, pozdrawiam.

[@AltkomAkademiaPolska]

Cześć.
Trochę mało danych, ale na pewno się da 😉
Sub WklejanieKomorkiDoNowegoWiersza()

Dim wbDocelowySkoroszyt As Workbook
Dim wiersz As Long
'plik żródłowy musi by aktywny
ActiveWorkbook.Worksheets(1).Range("c30").Copy ' kopiuje z komórki C30 z aktywnego skoroszytu

Set wbDocelowySkoroszyt = Workbooks("Docelowy.xlsx") ' tu podajemy nazwę pliku docelowego, musi być otwarty

wiersz = 1 ' od którego wiersza sprawdzamy pusty wiersz

Do While wbDocelowySkoroszyt.Worksheets(1).Cells(wiersz, 1).Value "" 'przeszukuje kolumnę 1, jak trafi na pustą komórkę to przerwie
wiersz = wiersz + 1
Loop

wbDocelowySkoroszyt.Worksheets(1).Cells(wiersz, 1).PasteSpecial ' wkleja
End Sub
Pozdrawiam Paweł 😊