Wow! Jestem pod wrażeniem ogromnej wiedzy! Właśnie tego szukałem :) Korzystając z okazji jeszcze zapytam - co dopisać do kodu aby go zapętlić i automatycznie utworzyć kilka folderów? Przykładowo tak jak na filmie: - Folder 1 - Folder 2 - Folder 3 Jednak z tą różnicą, że nazwy folderów chciał bym pobierać z excela (będą zawsze w określonej kolumnie)
Dziękuję za komentarz :) Jeśli chodzi o automatyczne tworzenie folderów, gdzie ich nazwy znajdują się w poszczególnych komórkach danej kolumny można to zrobić np. tak : 1) Utworzyć pętlę FOR NEXT, która będzie wykonywała tworzenie folderów od i = 1 do ilości wierszy znajdujących się w kolumnie z nazwami katalogu. Film, gdzie można zobaczyć jak zliczać ilości takich wierszy jest tutaj: ua-cam.com/video/TkdGGY_f2lY/v-deo.html 2) W pętli utworzyć zmienną, która będzie odpowiedzialna za nazwę folderu np. nazwaFolderu = Worksheets("Arkusz1").Range("A" & i) - gdzie zmienna "i" (licznikowa), będzie pozwalała przesuwać się o 1 wiersz w dół. Przykładowy wzór: Sub przyklad() 'deklaracja zmiennych 'zaplanowany kod ' i teraz pętla: For i = i to ..... ' w miejsce kropek jeden ze sposobów zliczania wierszy nazwaFolderu = Worksheets("Arkusz1").Range("A" & i) 'kod tworzący foldery, który należy zmodyfikować, aby nie wyskakiwał za każdym razem Msgbox z informacją o utworzeniu katalogu. Next i 'dalszy kod procedury End Sub Powodzenia i miłego EXCEL-owania :)
następny bardzo dobry film o VBA gratuluję olbrzymiej wiedzy i sposobu jej przekazywania :)
Dziękuję bardzo :)
Bardzo przydatny film :)
Dziękuję :)
Wow!
Jestem pod wrażeniem ogromnej wiedzy!
Właśnie tego szukałem :)
Korzystając z okazji jeszcze zapytam - co dopisać do kodu aby go zapętlić i automatycznie utworzyć kilka folderów?
Przykładowo tak jak na filmie:
- Folder 1
- Folder 2
- Folder 3
Jednak z tą różnicą, że nazwy folderów chciał bym pobierać z excela (będą zawsze w określonej kolumnie)
Dziękuję za komentarz :)
Jeśli chodzi o automatyczne tworzenie folderów, gdzie ich nazwy znajdują się w poszczególnych komórkach danej kolumny można to zrobić np. tak :
1) Utworzyć pętlę FOR NEXT, która będzie wykonywała tworzenie folderów od i = 1 do ilości wierszy znajdujących się w kolumnie z nazwami katalogu. Film, gdzie można zobaczyć jak zliczać ilości takich wierszy jest tutaj:
ua-cam.com/video/TkdGGY_f2lY/v-deo.html
2) W pętli utworzyć zmienną, która będzie odpowiedzialna za nazwę folderu np. nazwaFolderu = Worksheets("Arkusz1").Range("A" & i) - gdzie zmienna "i" (licznikowa), będzie pozwalała przesuwać się o 1 wiersz w dół.
Przykładowy wzór:
Sub przyklad()
'deklaracja zmiennych
'zaplanowany kod
' i teraz pętla:
For i = i to ..... ' w miejsce kropek jeden ze sposobów zliczania wierszy
nazwaFolderu = Worksheets("Arkusz1").Range("A" & i)
'kod tworzący foldery, który należy zmodyfikować, aby nie wyskakiwał za każdym razem Msgbox z informacją o utworzeniu katalogu.
Next i
'dalszy kod procedury
End Sub
Powodzenia i miłego EXCEL-owania :)
Zapraszam do obejrzenia filmu:
ua-cam.com/video/UF0sbfJSQo4/v-deo.html
Pozdrawiam