Güncellemedeki Sorun

[İsmail Küçükşengün]

Merhabalar;

Aşağıdaki kod ile, userform üzerinden liste sayfasındaki verileri
değiştirmek istiyorum.

Private Sub CommandButton65_Click()
On Error Resume Next
If ComboBox1.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If

?????????????
?????????????????????



sat = ComboBox1.ListIndex + 2

Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select
........................
......................

Yukarıdaki kod.da Combobox.ta veri yoksa "Önce Bul ile bulmalısınız"

uyarısından sonra, Combobox.ta veri varsa ve Bul ile veriler textboxlara getirildikten sonra değiştirmek için

??????????? işaretli boşluğa ne gibi bir ilave gereklidir.

Şimdiden Teşekkürler...

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız.

 

[İsmail Küçükşengün]

Sayın Leventm;

İlginize teşekkür ederim.

Sorun Dava Takip Programında ortaya çıktı.
Şöyleki; Form.19 da Combobox ile seçilen kişiye ait veriler, Bul butonu ile
textboxlara getiriliyor. Burada ilgili kişiye ait bilgileri aşağıdaki kod ile güncelleştiriyorum. Buraya kadar sorun yok.


Private Sub CommandButton65_Click()
On Error Resume Next

sat = ComboBox1.ListIndex + 2

Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select

Cells(sat, "a") = TextBox2.Value
Cells(sat, "b") = TextBox3.Value
If TextBox4 <> "" Then Cells(sat, "c") = TextBox4.Text
If TextBox5 <> "" Then Cells(sat, "d") = TextBox5.Text
If TextBox6 <> "" Then Cells(sat, "e") = TextBox6.Text
If TextBox7 <> "" Then Cells(sat, "f") = TextBox7.Text
If TextBox8 <> "" Then Cells(sat, "g") = TextBox8.Text
Cells(sat, "h") = TextBox9.Value
Cells(sat, "ı") = TextBox10.Value
If TextBox26 <> "" Then Cells(sat, "j") = TextBox26.Text
If TextBox27 <> "" Then Cells(sat, "k") = TextBox27.Text
If TextBox28 <> "" Then Cells(sat, "l") = TextBox28.Text
If TextBox29 <> "" Then Cells(sat, "m") = TextBox29.Text
If TextBox11 <> "" Then Cells(sat, "n") = TextBox11.Text
If TextBox12 <> "" Then Cells(sat, "o") = TextBox12.Text
Cells(sat, "p") = TextBox13.Value
If TextBox14 <> "" Then Cells(sat, "q") = TextBox14.Text
If TextBox15 <> "" Then Cells(sat, "r") = TextBox15.Text
If TextBox16 <> "" Then Cells(sat, "s") = TextBox16.Text
If TextBox17 <> "" Then Cells(sat, "t") = TextBox17.Text
If TextBox18 <> "" Then Cells(sat, "u") = TextBox18.Text
If TextBox19 <> "" Then Cells(sat, "v") = TextBox19.Text * 1
If TextBox20 <> "" Then Cells(sat, "w") = TextBox20.Text * 1
If TextBox21 <> "" Then Cells(sat, "x") = TextBox21.Text * 1
If TextBox22 <> "" Then Cells(sat, "y") = TextBox22.Text * 1
If TextBox23 <> "" Then Cells(sat, "z") = TextBox23.Text * 1
If TextBox24 <> "" Then Cells(sat, "aa") = TextBox24.Text * 1
If TextBox25 <> "" Then Cells(sat, "ab") = TextBox25.Text


MsgBox "Dava Bilgileri GÜNCELLEŞTİRİLMİŞTİR.İyi Çalışmalar Dilerim", vbInformation, "Sn. " & Application.UserName

UserForm_Activate
End Sub


Fakat Combobox ve texboxlar boş olduğu zaman, güncelle butonuna basıldığında,
bu kez liste sayfasının başlıklarını siliyor.

Yani combobox ve textboxlar boş iken bu güncelle butonuna yanlışlıkla basıldığında;
Önce " Aradığınız veriyi bul ile getiriniz." diye bir uyarı vermesi, herhangibir işlem yapmaması, ancak veriler getirildikten sonra kodun buna göre çalışması için
kodda nasıl bir değişiklik yapılmalıdır.

Sorumda ilk yazdığım kod işe yaramadı.

Teşekkürlerimle.

Sorumda ilk yazdığım kodun çalışması için.

 

[YAKAKENTİM]

For no = 1 To 24
If Controls("TextBox" & no).Value = Empty Then
MsgBox ("silme işlemi için gerekli tüm bölümlerin dolu olması gerekir." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
Controls("TextBox" & no).SetFocus
Exit Sub
End If

combobox için ise

if combobox1="" Then msgbox"lütfen bir seçim yapın"

 

[İsmail Küçükşengün]

Sn. Yakakentim;

İlginize teşekkürler.

Fakat BUL ile bulduğumuz verilere göre, bazı textboxlar boş olabiliyor.
Bu sefer silme işlemini hiç yapamayız.

Bu yüzden, (bir önceki mesajımda yazdığım kod'a " ÖNCE BUL İLE BULMALISINIZ"
şeklinde mesaj ile, şayet bul ile veriler bulunursa değiştir işlemi yapılması için
ilave gerekir.) diye düşünüyorum.

 

[İsmail Küçükşengün]

Kodun başına aşağıdaki şekilde değişiklik yaptım.Combobox boş ise uyarı veriyor.
Private Sub CommandButton65_Click()
On Error Resume Next
If ComboBox1 = "" Then MsgBox ("lütfen bir seçim yapın"), vbExclamation, "Dikkat !"
Exit Sub

Buraya kadar tamam.

Fakat Combo.dan verileri bulduğumuzda, değiştir işlemi olmamakta.
Veriler bulunduktan sonra, değiştir kodunun çalışması için yukarıda başlangıç
bölümünü yazdığım kodu nasıl devam ettirmeliyiz.

 

[YAKAKENTİM]

EK

ÖRNEK DOSYA OLMADIĞI İÇİN (VE BU KONUDA PEK'DE İYİ OLDUĞUM SÖYLENEMEZ) ANLAYAMIYORUM AMA GEÇEN HAFTA SAYIN LEVENT BEYİN YARDIMLARIYLA YAPTIĞIM B İR FORMDA BUNA BENZER BİR GÜNCELLE BUTONU KULLANMIŞTIK BELK SİZE BİR FİKİR VERİR

 

[İsmail Küçükşengün]

Sn. Yakakentim,

Bu örnek işime yarayabilir. Fakat VBA şifreli.

 

[YAKAKENTİM]

özür dilerim 4682

 

[İsmail Küçükşengün]

Sayın yakakentim.

Gönderdiğin örnek hakikaten çok güzel.
Fakat dosyanızdaki kodları uyguladığım halde, sorunum çözülmedi.
Sayın Abdi tarafından gönderilen

Dim a As Integer

For a = 2 To 16
If Controls("textbox" & a).Value = "" Then
GoTo son
Else
sat = ListBox1.ListIndex + 2
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("müvekkiller").Select
ListBox1.RowSource = ""
Rows(sat).Delete
MsgBox "Müvekkil Bilgileri Silinmiştir.", , "İcra Takip Programı"
UserForm_Activate
Exit For
End If
Next
GoTo atla

son:
Call MsgBox("Sillinecek veri bulunamadı", vbInformation, "Dikkat")
TextBox2.SetFocus
atla:
For a = 2 To 16
Controls("textbox" & a).Value = ""
Next
TextBox2.SetFocus

End Sub

Koduyla hem Güncelle, hem de Sil Kodlarımı hallettim.

Sn.Yakakentim ve Abdi'ye Teşekkürlerimi sunuyorum.

 

[YAKAKENTİM]

Sorunu halletmenize gerçekten çok sevindim benimde bir ricam olacak konunun tartışıldığı bu başlığın adını Güncelle ve Sil olarak deyiştirebilirsek ileride arama motorunu kullanarak bulmamız daha kolaylaşır.(tabi bunu başlığı açanmı yoksa moderatörlermi yapabilir bilemiyorum).

Hepinize sevgiler.. :hey: