ComboBox ile çağrılan veriyi değişitirp kaydetmek

[Hakan ERDOST]

Private Sub ComboBox28_Change()

With Sheets("VERİ")
For Each bul In .Range("C2:C" & Sheets("VERİ").Range("A65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox28.Value) Then

TextBox1 = bul.Offset(0, -2).Value
TextBox2 = bul.Offset(0, 0).Value
TextBox3 = bul.Offset(0, -1).Value
TextBox4 = bul.Offset(0, 1).Value
TextBox5 = bul.Offset(0, 2).Value
ComboBox1 = bul.Offset(0, 3).Value
ComboBox2 = bul.Offset(0, 4).Value
TextBox6 = bul.Offset(0, 5).Value
ComboBox3 = bul.Offset(0, 6).Value
ComboBox4 = bul.Offset(0, 7).Value
ComboBox5 = bul.Offset(0, 8).Value
ComboBox6 = bul.Offset(0, 9).Value
ComboBox7 = bul.Offset(0, 10).Value
ComboBox8 = bul.Offset(0, 11).Value
ComboBox9 = bul.Offset(0, 12).Value
TextBox7 = bul.Offset(0, 13).Value
TextBox8 = bul.Offset(0, 14).Value
ComboBox10 = bul.Offset(0, 15).Value
ComboBox11 = bul.Offset(0, 16).Value
ComboBox12 = bul.Offset(0, 17).Value
ComboBox13 = bul.Offset(0, 18).Value
ComboBox14 = bul.Offset(0, 19).Value
ComboBox15 = bul.Offset(0, 20).Value
ComboBox16 = bul.Offset(0, 21).Value
ComboBox17 = bul.Offset(0, 22).Value
ComboBox18 = bul.Offset(0, 23).Value
TextBox9 = bul.Offset(0, 24).Value
TextBox10 = bul.Offset(0, 25).Value
ComboBox27 = bul.Offset(0, 26).Value
TextBox12 = bul.Offset(0, 27).Value
TextBox13 = bul.Offset(0, 28).Value
ComboBox19 = bul.Offset(0, 29).Value
ComboBox20 = bul.Offset(0, 30).Value
ComboBox21 = bul.Offset(0, 31).Value
ComboBox22 = bul.Offset(0, 32).Value
TextBox14 = bul.Offset(0, 33).Value
TextBox15 = bul.Offset(0, 34).Value
TextBox16 = bul.Offset(0, 35).Value
TextBox17 = bul.Offset(0, 36).Value
TextBox18 = bul.Offset(0, 37).Value
ComboBox23 = bul.Offset(0, 38).Value
ComboBox24 = bul.Offset(0, 39).Value
ComboBox25 = bul.Offset(0, 40).Value
ComboBox26 = bul.Offset(0, 41).Value
TextBox19 = bul.Offset(0, 42).Value
TextBox20 = bul.Offset(0, 43).Value
TextBox21 = bul.Offset(0, 44).Value
TextBox22 = bul.Offset(0, 45).Value
TextBox23 = bul.Offset(0, 46).Value

End If
Next bul
End With

End Sub

kodu ile forma çağırdığım verileri değiştirmek istiyorum.Bul butonu ile değil de combobox ile veri getirildiği için sorun oluyor.

 

[Hakan ERDOST]

Örnek dosya ekte.

 

[vardar07]

Sizdeki Güncelle/Değiştir kodlarını aşağıdaki düzenleyip deneyiniz.

Private Sub CommandButton3_Click()
Dim bul As Range
Set bul = Range("C2:C65536").Find(ComboBox28)
 If Not bul Is Nothing Then
        bul.Offset(0, -2).Activate
      bul.Offset(0, 0) = TextBox2.Value
bul.Offset(0, 0).Value = TextBox2.Value
bul.Offset(0, 1).Value = TextBox3.Value
bul.Offset(0, 1).Value = TextBox4.Value
bul.Offset(0, 2).Value = TextBox5.Value
bul.Offset(0, 3).Value = ComboBox1.Value
bul.Offset(0, 4).Value = ComboBox2.Value
bul.Offset(0, 5).Value = TextBox6.Value
bul.Offset(0, 6).Value = ComboBox3.Value
bul.Offset(0, 7).Value = ComboBox4.Value
bul.Offset(0, 8).Value = ComboBox5.Value
bul.Offset(0, 9).Value = ComboBox6.Value
bul.Offset(0, 10).Value = ComboBox7.Value
bul.Offset(0, 11).Value = ComboBox8.Value
bul.Offset(0, 12).Value = ComboBox9.Value
bul.Offset(0, 13).Value = TextBox7.Value
bul.Offset(0, 14).Value = TextBox8.Value
bul.Offset(0, 15).Value = ComboBox10.Value
bul.Offset(0, 16).Value = ComboBox11.Value
bul.Offset(0, 17).Value = ComboBox12.Value
bul.Offset(0, 18).Value = ComboBox13.Value
bul.Offset(0, 19).Value = ComboBox14.Value
bul.Offset(0, 20).Value = ComboBox15.Value
bul.Offset(0, 21).Value = ComboBox16.Value
bul.Offset(0, 22).Value = ComboBox17.Value
bul.Offset(0, 23).Value = ComboBox18.Value
bul.Offset(0, 24).Value = TextBox9.Value
bul.Offset(0, 25).Value = TextBox10.Value
bul.Offset(0, 26).Value = ComboBox27.Value
bul.Offset(0, 27).Value = TextBox12.Value
bul.Offset(0, 28).Value = TextBox13.Value
bul.Offset(0, 29).Value = ComboBox19.Value
bul.Offset(0, 30).Value = ComboBox20.Value
bul.Offset(0, 31).Value = ComboBox21.Value
bul.Offset(0, 32).Value = ComboBox22.Value
bul.Offset(0, 33).Value = TextBox14.Value
bul.Offset(0, 34).Value = TextBox15.Value
bul.Offset(0, 35).Value = TextBox16.Value
bul.Offset(0, 36).Value = TextBox17.Value
bul.Offset(0, 37).Value = TextBox18.Value
bul.Offset(0, 38).Value = ComboBox23.Value
bul.Offset(0, 39).Value = ComboBox24.Value
bul.Offset(0, 40).Value = ComboBox25.Value
bul.Offset(0, 41).Value = ComboBox26.Value
bul.Offset(0, 42).Value = TextBox19.Value
bul.Offset(0, 43).Value = TextBox20.Value
bul.Offset(0, 44).Value = TextBox21.Value
bul.Offset(0, 45).Value = TextBox22.Value
End If
End Sub

 

[Hakan ERDOST]

bul.Offset(0, 1).Value = TextBox3.Value
bul.Offset(0, 1).Value = TextBox4.Value

Kod için teşekkürler, bu satır dikkatimden kaçmış tekrar teşekkürler sayın vardar07.

 

[Ömer BARAN]

Merhaba.

Kodlarda ve nesne adlarında değişiklikler yaptım.
Ekli belgeyi denersiniz. Belge içerisine açıklama yazdım.
.

 

[Hakan ERDOST]

Teşekkürler Ömer bey.

 

[Hakan ERDOST]

Ömer bey bir sorum olacaktı.Çalışma kitabımda 10'dan fazla sayfa var ve form açılışta comboboxa (veri sayfası seçili değilse açılışta) diğer sayfalardan ver alıyor veya boş geliyor. Kodda Select/Actiate kullanmanızı önermem demişsiniz. Konuya çok da hakim değilim. Ne önerirsiniz?

Çalışma kitabımı her kapattığımda hangi sayfa açıksa dönüşte o sayfayla başlıyor ve o sayfa veri sayfası değilse Userformdaki Comboboxa ilgili (açılıştaki sayfanın) bölümleri geliyor.

 

[vardar07]

Private Sub UserForm_Initialize() Kodu altındaki

If Sheets("VERİ").Cells(i, 3) <> "" Then BUL.AddItem [COLOR="Red"][B]Sheets("VERİ").[/B][/COLOR]Cells(i, 3)

satırındaki kırmızılı yeri istediğiniz şekilde düzenlerseniz istediğiniz sayfadan veri alır.

 

[dellerlim]

Merhaba.

Kodlarda ve nesne adlarında değişiklikler yaptım.
Ekli belgeyi denersiniz. Belge içerisine açıklama yazdım.
.

1- Bu gönderdiğiniz ek dosyada kodlar kısmında Userform3 ve Userform7 diye formlar var ancak kendileri yok.

2- Excel dosyası açılınca makro çalıştırılamıyor diyor.

Hazırlamış olduğunuz dosya için teşekkür ederim.

 

[stoylovvv]

Merhaba Sayın Ömer bey ve diğer Üstadlarım

Ekli olan YONETIM dosyasında iki adet verilerin girileceği (FIRMA ve STOKKARTI) adında usurform olusturdum. Bu usurformlarda yapılan kaydet, güncelle / değiştir ve sil işlemlerinde dataların tutulacağı Veritabanı1 isminde birde mdb dosyası oluşturdum. Veritabanı1.mdb dosyasının içerisinde Tablo1 ve Tablo2 isminde tablolarım var. Yönetim dosyasındaki ‘’FIRMA’’ userform daki veriler Veritabanı1 deki ‘’Tablo1’’ STOKKARTI usurformundaki veriler ise Tablo2 ye kayıt edilecektir. Sizlerin oluşturmuş olduğu örneği incelediğimde verilerin kayıt, güncelle / değiştir ve sil gibi işlemleri ListView üzerinden seçerek yapılmakta. Benim istediğim ise Bu işlemleri ListView kullanmadan TextBox2 üzerinden yapması.
Bir diğer yapmayı düşündüğüm işlem ise STOKKART userformunda ComboBox2 -3 ve 4 veriyi (Tedarikçiyi seçip) Tablo1 den alıp, Yine Aynı Toblo1 üzerinde bulunan (ilgili kişi, Telefon Numarası ve e-mail) gibi verileri TextBox8 den başlayıp sırası ile ilgili bilgileri getirmesini istiyorum. Bu konuda yardımlarınızı esirgemeseniz minnettar olurum. Şimdiden yardımlarınız için teşekkür ederim.

 

[stoylovvv]

Veritabanı1.mdb dosyası eklenmiştir.