değiştir butonu neden sadece textboxları çalıştırıyor...

[bulentc76]

aşağıdaki kodları bulunan userformda değiştir butonu olan commandbutton 2 yi tıkladığımda textboxlara girilen veriler eskisiyle değiştirilirken.comboboxlardaki veriler hiç bir şekilde değişmiyor.
nedeni nedir acaba...

verilerimi bu kodlarla alıyorum ;
'kodlarıyla alıyorum. Listede ki verilerimide textboxlara;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = ListBox1.Column(0)
TextBox2.Value = ListBox1.Column(1)
TextBox3.Value = ListBox1.Column(2)
ComboBox1.Value = ListBox1.Column(3)
ComboBox2.Value = ListBox1.Column(4)
ComboBox3.Value = ListBox1.Column(5)
ComboBox4.Value = ListBox1.Column(6)
TextBox8.Value = ListBox1.Column(7)
TextBox9.Value = ListBox1.Column(8)
TextBox10.Value = ListBox1.Column(9)
End Sub


ve command 2 butonu kodlarıda bu

Private Sub CommandButton2_Click()
On Error Resume Next
If TextBox1.Value = "" Then
MsgBox "DİYORUM Kİ SEÇİM YAPSAN HA !!!NASIL OLUR ?"
Exit Sub
End If
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
SonSat = ListBox1.ListIndex + 2
For a = 1 To 10
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:L" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
tarih = TextBox1
TextBox2 = Format(tarih, "mmmm")
End Sub

Private Sub TextBox4_Change()
TextBox4 = Replace(TextBox4, "i", "İ")
TextBox4 = Replace(TextBox4, "ı", "I")
TextBox4 = StrConv(TextBox4, vbUpperCase)
End Sub


yardım ederseniz çok sevinirim...

 

[algil]

Sn. Bülentc76
kodunuzda aşağıdaki değişikliği deneyiniz.

.
.
.
For a = 1 To 10 
Cells(SonSat, a) = Controls("TextBox" & a) 
Cells(SonSat, a+3) = Controls("ComboBox" & a)
Next 
.
.
.

 

[bulentc76]

teşekkürederim.harikasınız...

 

[bulentc76]

peki combobox 5 eklediğimde neden çalışmıyor...sütun sayılarını tükseltiyorum ve veriyi çift tıklayarak çağırabiliyorum.Ama değiştir dediğimde ortada ne comboboxın verisi kalıyor nede değiştirmeden önceki veris,, hepsini siliyor ve diğer combo ve textboxlardaki verilerinde kayıt edildiği yeri kaaydırıyor.
Sebebini bulamadım... Yardım edermisiniz ?

 

[bulentc76]

herkese merhaba...sabahtan beri uğraşıyorum ama değiştir butonunu düzgün çalıştıramadım.Userformda hem textboxlar,hem de comboboxlar var. Verileri Listboxa çift tıklayarak çağırıyorum ama gerekli değişiklikleri userformda yaptıktan sonra değiştir butonuna tıklayınca veri kaybına ve verilerin kayıt sıralarının kaymasına yol açıyor...

Yardımcı olursanız çok sevinirim...

Sorunlu olan userformlar ekteki dosyada banka ve çeksenet sayfalarında işlem yapan userform 18 ve 20 dir.

Yardımcı olacak arkadaşlara şimdiden emekleri için teşekkürederim.Zira bu forumun üzerimdeki emeği büyüktür.Saygılarımla

 

[Levent Menteşoğlu]

Textboxlar ve comboboxlar karışık olarak yerleştirildiğinden aşağıdaki gibi bir döngü hatalı olur, sütunlar kayar, bunu engellemek için tek tek tanımlama yapmak durumundasınız.

[vb:1:e157bb237c]For a = 1 To 11
Cells(SonSat, a) = Controls("TextBox" & a)
Cells(SonSat, a + 4) = Controls("ComboBox" & a)
Next
[/vb:1:e157bb237c]

Kodları yukarıdakinin yerine aşağıdaki gibi düzenleyin.

[vb:1:e157bb237c]cells(sonsat,1)=textbox1
cells(sonsat,2)=textbox2
cells(sonsat,3)=textbox3
cells(sonsat,4)=combobox1
cells(sonsat,5)=combobox2
.
.
.
[/vb:1:e157bb237c]

 

[Levent Menteşoğlu]

Textboxlar ve comboboxlar karışık olarak yerleştirildiğinden aşağıdaki gibi bir döngü hatalı olur, sütunlar kayar, bunu engellemek için tek tek tanımlama yapmak durumundasınız.

[vb:1:6ec4f2c5b6]For a = 1 To 11
Cells(SonSat, a) = Controls("TextBox" & a)
Cells(SonSat, a + 4) = Controls("ComboBox" & a)
Next
[/vb:1:6ec4f2c5b6]

Kodları yukarıdakinin yerine aşağıdaki gibi düzenleyin.

[vb:1:6ec4f2c5b6]cells(sonsat,1)=textbox1
cells(sonsat,2)=textbox2
cells(sonsat,3)=textbox3
cells(sonsat,4)=combobox1
cells(sonsat,5)=combobox2
.
.
.
[/vb:1:6ec4f2c5b6]

 

[Levent Menteşoğlu]

Textboxlar ve comboboxlar karışık olarak yerleştirildiğinden aşağıdaki gibi bir döngü hatalı olur, sütunlar kayar, bunu engellemek için tek tek tanımlama yapmak durumundasınız.

[vb:1:7ed424ec93]For a = 1 To 11
Cells(SonSat, a) = Controls("TextBox" & a)
Cells(SonSat, a + 4) = Controls("ComboBox" & a)
Next
[/vb:1:7ed424ec93]

Kodları yukarıdakinin yerine aşağıdaki gibi düzenleyin.

[vb:1:7ed424ec93]cells(sonsat,1)=textbox1
cells(sonsat,2)=textbox2
cells(sonsat,3)=textbox3
cells(sonsat,4)=combobox1
cells(sonsat,5)=combobox2
.
.
.
[/vb:1:7ed424ec93]

 

[bulentc76]

peki kayıt sıralarınıda mecburen sıralımı yapıcam...Yani textbox 3 ün ardından textbox 5 değilde combobox 1 in verisi kayıt edilecek...
Listboxtaki sıra sanırım önemli değil ama kayıt sırasında değiştir butonunun düzgün kaydetmesi için sıralı olması lazım.Ben böyle anladım.
İyide herşey kayıt sırasına düzenlendi.Acaba text ve comboların yeri değiştiğinde veri kayıt sırasıda değişirmi. yoksa sayfa düzenini bozmama gerek yokmu.çünkü sizin dediğiniz gibi yaptım.bu seferde veriler sürekli farklı yere geliyor.mesela textbox 5 e gelmesi gereken veri combo 2 de ortaya çıkıyor.

Rahatsızlık verdiğim için özürdilerim ama en azında bir userformu ayarlasanız ben geri kalan userformları hallederdim levent bey.dediğinizi uyarlayamadımda.

Tekrar teşekkürederim.Saygılarımla...

 

[bulentc76]

Sayın Levent Hocam galiba hallettim ama bunun kaydı değiştir butonuna tıklayınca bayağı uzun sürüyor.Neden acaba ben mi yanlışlık yapıyorum...
Dediğiniz gibi sıralamayı başardım...
Tekrar teşekkürederim...