Co w przypadku kiedy w zakresie A1:A30 w A14 komórka jest pusta?
Nic.
Lista to lista. Jak jest dziura w liście, to są dwie listy.
Dlatego tak ważny jest dokładny opis problemu. Po podaniu definicji listy można przystąpić do rozwiązywania problemu, inaczej zawsze się pojawi kolejne a co w przypadku...
napisał: Trebor postów: 1209
umieszczony: 16 października 2009 17:13
Wpisać na listę można jeszcze innym sposobem np.
PrivateSub UserForm_Initialize() Dim i AsByte With Sheets("Arkusz1")
For i = 1 To 30 If .Cells(i, "A") <> "" Then cboxListaDruga.AddItem .Cells(i, "A") Next i
cboxListaPierwsza.List = cboxListaDruga.List
EndWith EndSub
Hej
napisał: methos postów: 8
umieszczony: 16 października 2009 15:28
Thx!
A dodatkowe pyt: Co w przypadku kiedy w zakresie A1:A30 w A14 komórka jest pusta?
napisał: Rycho postów: 291
umieszczony: 16 października 2009 14:56
Hej, Cytat:
jak zrobić, aby lista wyświetlała tyle wierszy ile jest wypełnionych komórek
W zał troszkę inna wersja.
Mam nadzieję, że również się przyda. :)
PS - wybór jest ograniczony do 10 wierszy :| - jeśli jest potrzeba więcej to trzeba zmienić w kodzie.
Bardziej zaawansowanych prosiłbym o ewentualną zmianę lub podpowiedź jak zrobić, aby lista wyświetlała tyle wierszy ile jest wypełnionych komórek w kolumnie 1.
Witam
Proszę o pomoc w napisaniu następującego makra
Arkusz1
A1 wartość Polska
A2 wartość Francja
A3 wartość Niemcy
Arkusz2
A1 - komórka docelowa
W Arkusz2 CommandButton uruchamiający makro wyświetlające UserForm z trzema CheckBox: Polska, Francja, Niemcy i klawiszem "OK"
Po zaznaczeniu wybranych CheckBox na UserForm i kliknięciu w OK makro z odpowiednich komórek w Arkusz1 weźmie wartości komórek, połączy je i wklei do A1 w Arkusz2
Np. Zaznaczenie na UserForm Polski i Niemiec spowoduje że wartość A1 w Arkusz2 będzie "Polska Niemcy" itd
Mój problem polega na tym że opisów w Arkusz1 będzie więcej a co za tym idzie ChckBoxów na UserForm też i nie potrafię napisać takiego makra które będzie analizowało wiele możliwości zaznaczeń na UserForm.