Textboxda alt satıra geçme

[fehdur]

Sheets("Anasayfa").TextBox6.Text = ""
If OptionButton1.Value = True Then
Sheets("Anasayfa").TextBox6.Text = Label1.Caption
Else
If OptionButton2.Value = True Then
Sheets("Anasayfa").TextBox6.Text = Label2.Caption
Else
End If
End If

Koduyla Optionbutton değerlerini textboxa yazdırıyorum ama yapmak istediğim optionbutton2 değerini textbox6 'nın bir alt satırına -üstdeki değeri bozmadan- yazdırmak.Vbcrlf komutu ile yapıldığını biliyorum ama koda uyarlayamadım.

 

[Korhan Ayhan]

Böyle olabilir mi?

Sheets("Anasayfa").TextBox6.Text = Sheets("Anasayfa").TextBox6.Text & vbLf & Label2.Caption

 

[fehdur]

Böyle olabilir mi?

Sheets("Anasayfa").TextBox6.Text = Sheets("Anasayfa").TextBox6.Text & vbLf & Label2.Caption

oldu ama Textbox6 nın ilk satırındaki değer siliniyor.İlk satırda Label1 değeri var

 

[fehdur]

Aslında toplamda 10 label var.1-5 arası 1.satıra, 5-7 arası 2.satıra, 7-10 arası label değerini de textbox'ın 3. satırına yazdırmaya çalışıyorum.

 

[Korhan Ayhan]

Örnek dosya paylaşınız.

 

[fehdur]

Dosyayı ekliyorum ama üzerinde çalışılacak.

 

[fehdur]

Düzeltilmiş dosyayı yeniden gönderiyorum.

 

[Korhan Ayhan]

Öncelikle sayfadaki TextBox nesnesinin özellikler bölümünden "MultiLine" özelliğini TRUE olarak ayarlayınız.

Sonrasında kodu çalıştırmayı deneyiniz.

 

[fehdur]

Multiline özelliği açık .Birinci,ikinci ve üçüncü satırdan herhangi birini yazıyor ama üçünü birden yazmıyor

 

[Korhan Ayhan]

Yazıyor. Ama siz aralara bir boş satır eklediğiniz için görünmüyordur. Alta doğru ilerlerseniz görebilirsiniz.

 

[fehdur]

Yazıyor. Ama siz aralara bir boş satır eklediğiniz için görünmüyordur. Alta doğru ilerlerseniz görebilirsiniz.

Haklıymışsınız.Yazıyormuş

 

[Saban Sertkaya]

 

[fehdur]

Saban Bey Ekli dosyadaki çalışmayı Userform üzerinde bulunan listboxda gerçekleştirmek istiyorum.Formüllerin yerine kod kullanılacak.Düşeyara ile yapılabilirmi..Zamanınız varsa bir bakın.Çalışmada Comboboxdaki isimler değiştikçe G:K sütunlarındaki değerler değişmekte

INTERNET.9.xlsm dosyasını indir - download

INTERNET.9.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Orion1]

İsterseniz scrollbar özelliğini seçip oradanda açılan pencereye 2-fmscrollbarr vertical seçerek textboxa birde scrollbar ekleyebilirsiniz.

 

[Saban Sertkaya]

Formüllerinizde hiçbir değişiklik yapmadım. 1 Userform ekleyip Combobox'a N2'yi gösterdim. İnceleyiniz.

INTERNET.9.xlsm dosyasını indir - download

INTERNET.9.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[fehdur]

Çalışmanızı Listbox yerine Listview ile yapmaya karar verdim.kodu uyarlayamadım.Kod:
ListView1.RowSource = "Tahsilat!G2:K" & Sheets("Tahsilat").[G1048576].End(xlUp).Row

 

[Saban Sertkaya]

Listview'i çok tavsiye etmem. Listbox candır. Bilginize...
Bir de..
Çok fazla fikir değişikliği yapmayın bence.
Birşey yapmaya başlamadan önce plan yapın ki, tekrar tekrar en başa dönme durumuna düşmez ve daha az sorun ile karşılaşırsınız.
Şahsi tavsiyemdir..

 

[fehdur]

Formüllerinizde hiçbir değişiklik yapmadım. 1 Userform ekleyip Combobox'a N2'yi gösterdim. İnceleyiniz.

INTERNET.9.xlsm dosyasını indir - download

INTERNET.9.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Çalışmanızı Listbox yerine Listview ile yapmaya karar verdim.kodu uyarlayamadım.Yanlış KOD:
ListView1.RowSource = "Tahsilat!G2:K" & Sheets("Tahsilat").[G1048576].End(xlUp).Row

 

[fehdur]

Çalışmanızı Listbox yerine Listview ile yapmaya karar verdim.kodu uyarlayamadım.Yanlış KOD:
ListView1.RowSource = "Tahsilat!G2:K" & Sheets("Tahsilat").[G1048576].End(xlUp).Row

Tamam tavsiyenize uyup listbox ile devam edeyim.Listviewi kenarlık yapılabildiği için istemiştim.

 

[Saban Sertkaya]

Listview her pc'de çalışmaz, tavsiyem o yüzdendir. (Eklenti yüklemek gerekir)
Mesela bende yok