• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Comboboxtaki seçili veriye, skor girmek ve Textboxta çıktı almak(Sf1’den çektiği veriye 2 adet skor girişi yapacağım; kayıtedip,txtboxta göstereceğim)

  • Konbuyu başlatan Konbuyu başlatan bkk
  • Başlangıç tarihi Başlangıç tarihi

bkk

Katılım
30 Aralık 2019
Mesajlar
186
Excel Vers. ve Dili
Ofis 2019
Merhabalar,
Combobox’ın sayfa1’den çektiği veriye tıkladığımda 2 adet skor girişi yapacağım;
bunu kaydedip, Textbox’da nasıl gösterebilirim ?
 

Ekli dosyalar

Merhaba;
Eki deneyin.
İyi çalışmalar.
 

Ekli dosyalar

Sn. Muygun eki henüz inceleyebildim, bir sorum olacaktı;
-listbox içerideki veriyi direk gösteriyor, bende skor girdiğimde mükerrer iki isim bulunmuş oluyor, comboboxtan zaten isim alıyoruz skor girildiğinde sadece bizim seçtiğimiz ve skor girdiğimiz isimleri yazabilir mı?
 
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa2!A3:A" & Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
Call listbox1_doldur
ListBox1.ListIndex = 0

Buradaki sayfa adını değiştirdiğimde istediğim sonucu elde ettim :)
 
Merhabalar,
Aynı formda skor girişini manüel değilde ;
"+" ve "-" şeklinde her skora iki buton versek, "+" butonuna tıkladığında "geçti", "-" butonuna tıkladığında "kaldı" yazabilir mi listbox'a ?
 

Ekli dosyalar

Merhaba;
Son eklediğiniz ekte kod falan yok (sanırım kendiniz halledeceksiniz)
Ben userformda Label1 ve Label2 ekleyerek işlemi bunlara yazdırdım.
Benim uygulamamda Listbox vardı siz yine Textbox yapmışsınız. Siz bunu TextBox3 e yansıtın.
İyi çalışmalar.

Private Sub CommandButton1_Click()
Label1 = "GEÇTİ"
End Sub

Private Sub CommandButton2_Click()
Label1 = "KALDI"
End Sub

Private Sub CommandButton3_Click()
Label2 = "GEÇTİ"
End Sub

Private Sub CommandButton4_Click()
Label2 = "KALDI"
End Sub
 
Merhaba;
Bu eki deneyin.
İyi çalışmalar.
 

Ekli dosyalar

Geri
Üst