• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Listbox - Textbox

istiklal

Yeni Üye
Katılım
11 Nis 2019
Mesajlar
34
En iyi yanıt
0
Puanları
8
Yaş
49
Konum
Malatya
Ad Soyad
İlhan Yüksel
Office Vers.
Microsoft Office 2016 TR
Yüklenici Sayfası 2. satırdan başlayarak D sütunundan S sütununa kadar bilgi var
Listboxta da seçili satırı 4. sütundan itibaren
Textbox2 den Textbox17' ye kadar sıralı bir şekilde tek seferde çift tık ile nasıl aktarabilirim? Saygılarımla
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
452
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Soru net değil...
Sayfadan Listbox'a mı alacaksınız?
Listbox'a alınmış veriyi çift tıklayarak Textboxlara mı alacaksınız?

Aşağıdaki kodla Listboxtaki veriyi çift tıklama ile Textbox lara alırsınız.

Private Sub ListBox1_DblClick(ByVal Cancel As msForms.ReturnBoolean)
sat = ListBox1.ListIndex
Controls("TextBox2") = ListBox1.List(sat, 3)
End Sub

Not Listboxta sütun no sıfır ile başlar yani (sat, 3) ile çift tıklanan listbox1 satırının 4. sütunu alınır.

Controls("TextBox2") = ListBox1.List(sat, 3)

diğerlerinide (kırmızı alanları değiştirerek çoğaltın

yada;
Private Sub ListBox1_DblClick(ByVal Cancel As msForms.ReturnBoolean)
sat = ListBox1.ListIndex
for ni=2 to 17
Controls("TextBox" & i) = ListBox1.List(sat, i+1)
next i
End Sub

Gibi bir döngü ile uygulayabilirsiniz.
İyi çalışmalar.
 

istiklal

Yeni Üye
Katılım
11 Nis 2019
Mesajlar
34
En iyi yanıt
0
Puanları
8
Yaş
49
Konum
Malatya
Ad Soyad
İlhan Yüksel
Office Vers.
Microsoft Office 2016 TR
Teşekkür ederim ustam
 
Üst Alt