Comboboxa sayfa / stündan veri aktarma.

[semihcan1991]

Arkadaşlar Merhaba,

Veriler kısmındaki bilgileri tabloda bulunan comboboxlara nasıl aktarabilirim kodu nereye ne şekilde yazmam gerekiyor.

 

[vardar07]

Userform kod bölümüne ekleyin.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "veriler!c2: c5"
ComboBox2.RowSource = "veriler!d2: d5"
ComboBox3.RowSource = "veriler!e2: e5"
ComboBox5.RowSource = "veriler!a2: a5"
ComboBox6.RowSource = "veriler!b2: b5"
End Sub

 

[semihcan1991]

çok teşekkür ederim vardar07. tarih kısmındaki veriyi bir tarih kutusu olarak açabilirmiyim. elle yazılmak yerine tarihi seçmek gibi.

 

[semihcan1991]

Userform kod bölümüne ekleyin.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "veriler!c2: c5"
ComboBox2.RowSource = "veriler!d2: d5"
ComboBox3.RowSource = "veriler!e2: e5"
ComboBox5.RowSource = "veriler!a2: a5"
ComboBox6.RowSource = [B]"veriler!b2: b5"[/B]
End Sub

b2: b5 " burdaki kodda demek istenen 5 satıra kadar alınmasını vardar bey bende yazdığım kodları öğrenmek istiyorum. ondan soruyorum. kodları alıp kopyalıyorum ama ne işe yaradığınıda öğrenmek gerek tabi

 

[vardar07]

TextBox10 'u Kaldırıp Yerine DTPicker ekleyebilirsin en basiti bu.

 

[vardar07]

b2: b5 " burdaki kodda demek istenen 5 satıra kadar alınmasını vardar bey bende yazdığım kodları öğrenmek istiyorum. ondan soruyorum. kodları alıp kopyalıyorum ama ne işe yaradığınıda öğrenmek gerek tabi

Evet b5 e kadar istersen 50 yap

 

[semihcan1991]

TextBox10 'u Kaldırıp Yerine DTPicker ekleyebilirsin en basiti bu.

nasıl ve nerden ekleyebilirim.

 

[semihcan1991]

vede userforma girdiğim verileri kayıt sayfasına nasıl kaydedebilirim. Alttaki listboxta filtreye göre nasıl listeleyebilir.

 

[vardar07]

Resimdekini uygula.

 

[semihcan1991]

çok kolay ve anlaşılır oldu bu ekledim sn. vardar. Yavaş yavaş sayende bunu tamamlayabilirim.

 

[vardar07]

Bildiğimiz kadar yardımcı oluruz.

 

[semihcan1991]

bilgisi girilmemiş!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
Me.Controls("ComboBox" & X).SetFocus
Exit Sub
End If
Next

Select Case CommandButton1.Caption
Case "KAYDET"
Satir = S1.Cells(Rows.Count, 1).End(3).Row + 1

With S1
.Cells(Satir, 1) = Satir - 1
.Cells(Satir, 2) = ComboBox2.Text
.Cells(Satir, 3) = ComboBox3.Text
.Cells(Satir, 4) = ComboBox4.Text
.Cells(Satir, 5) = ComboBox5.Text
.Cells(Satir, 6) = ComboBox6.Text
.Cells(Satir, 7) = ComboBox7.Text
End With

UserForm_Initialize

MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation

Case "DEĞİŞTİR"

With S1
.Cells(Bul.Row, 2) = ComboBox2.Text
.Cells(Bul.Row, 3) = ComboBox3.Text
.Cells(Bul.Row, 4) = ComboBox4.Text
.Cells(Bul.Row, 5) = ComboBox5.Text
.Cells(Bul.Row, 6) = ComboBox6.Text
.Cells(Bul.Row, 7) = ComboBox7.Text
End With

UserForm_Initialize

MsgBox "Seçtiğiniz kayıt bilgileri değiştirilmiştir!", vbInformation
End Select
End Sub

daha önceki listbox kaydet butonunda bu kodları buldum ama bunlar satıra nasıl aktarıyor ne anlama geliyor çözemedim.

 

[semihcan1991]

Arkadaşlar;

Ekteki dosyada kaydet / düzenle / sil işlemi kaldı yardımcı olabilecek ustalar varmıdır.

 

[semihcan1991]

dosyanın son halini ekledim.

 

[semihcan1991]

konuya hala yanıt beklemekteyim arkadaşlar teşekkürler.