[dominik-ortyl]

Mam do zrobienia program w VBA, który będzie wstawiał dane z formularza do Excela, macie może jakieś poradniki czy kursy żeby to jakoś ogarnąć, gdyz do tej pory nie miałem styczności z VBA i programowaniem? #programowanie #vba #excel

[KwasneJablko]

@dominik-ortyl: to powodzeniem życzę. Nie wiem jaki masz termin rej pracy ale sam nie ogarniesz

[dominik-ortyl]

@KwasneJablko: Styczeń ( ͡° ͜ʖ ͡°) jak na razie mam już gotową część graficzną (bo najfajniej się robiło), a z wprowadzaniem danych jestem na etapie, że po kliknięciu przycisku dodaje mi dane z textboxów i comboboxów do określonych miejsc w arkuszu, teraz się męcze z tym żeby po wciśnięciu przycisku czyściło pola formularza i następne dane dodawało w wierszu niżej

[Bluzgowy]

@dominik-ortyl Czyszczenie robisz poprzez Text box.text=""

[KwasneJablko]

@dominik-ortyl to chyba wystarczy Ci wstawienie nowego wiersza po prostu, wtedy nie musisz nic czyścić tylko to co już ram masz zjedzie na dół i będziesz miał czyste pole

[dominik-ortyl]

@KwasneJablko: Tylko nie wiem jak dodawać dane do nowego wiersza

[DarkAlchemy]

@dominik-ortyl: spokojnie z czymś takim skończysz jutro ;)

Jak kolega @Bluzgowy powiedział, TextBoxy czyść przez ustawienie ich wartości na "" a co do następnych wierszy to niech za każdym uruchomieniem formularza kod szukał pierwszego pustego wiersza i jego numer zapisywał w zmiennej, np. tak:
NextRow = Sheets("Data").Range("B" & rows.count).End(xlUp).Row + 1

Potem po wciśnięciu guzika dodawaj dane, czyści pola i dodawaj 1 do zmiennej NextRow :)

[Bluzgowy]

@dominik-ortyl najpierw wstaw nowy wiersz a w kodzie wpisz na sztywno by zawsze dodawał w wierszu drugim dane skopiowane z formularza

[dominik-ortyl]

@DarkAlchemy: Dobra, pokombinuje jakoś z tym, chociaż nie mam pojęcia jak to wkomponować w całość, ale tak najlepiej się nauczyć (⌐ ͡■ ͜ʖ ͡■)

[L.....n]

@dominik-ortyl: Możesz stworzyć całego userforma do wprowadzania danych i potem zwykłe odwołanie się do nowej komórki.

Co do nowego wiersza, to możesz użyć np. NazwaWorkBooka.Worksheet(???).range("A1").currentregion.rows.count +1
(zakładając, że zacząłeś od a1)

[L.....n]

@dominik-ortyl: czyszczenie możesz zrobić masowo np. poprzez vba.unload me (tak jakbyś wyszedł ze wszystkich procedur funkcji itp.)

[dominik-ortyl]

@Lubie_Budyn: @DarkAlchemy: Czyszczenie ogarnąłem, ale z tym nowym wierszem to nawet nie wiem gdzie to wprowadzić szczerze powiedziawszy

[L.....n]

@dominik-ortyl: możesz dać pod private subem zmienną np.
dim NewRow as Long

NewRow = NazwaWorkBooka.Worksheet(1).range("A1").rows.count +1

i potem zamiast np. range("E3") dajesz range("E"&NewRow)

[L.....n]

@dominik-ortyl: wg mnie tak to powinno działać ( ͡° ͜ʖ ͡°)

[L.....n]

NewRow = NazwaWorkBooka.Worksheet(1).range("A1").rows.count +1

@dominik-ortyl:
NewRow = NazwaWorkBooka.Worksheets(1).range("A1").currentregion.rows.count +1 oczywiście :P

[dominik-ortyl]

@Lubie_Budyn: cały czas wyskakuje bug przy kompilacji :(

[L.....n]

@dominik-ortyl: pokaż

[dominik-ortyl]

@Lubie_Budyn: Pewnie dlatego ze źle dałem nazwy

[L.....n]

@dominik-ortyl: musisz zdefiniować zeszyt1 jeżeli chcesz użyć tej nazwy. Najłatwiej będzie zamiana Zeszyt1 na ThisWorkBook, albo Dim Zeszyt1 as Workbook i potem set Zeszyt1 = ThisWorkBook

[dominik-ortyl]

@Lubie_Budyn: Działa, wielkie dzięki! :)

[patatier]

@dominik-ortyl weźże wstaw tam with Block do arkusza 1 bo patrzeć się na to nie da XD.

I nie używaj "" tylko vbnullstring.