SAYFADAN VERİYİ ÇIKARMA

[mraltin]

SAYFADAN VERÝYÝ ÇIKARMA

arkadaşlar 2 tane userformum var.Dayimin galerisi cin yapiyorm,ve ikide sayfam var(veritabani icin) sorum;Galeri oto girislerini Sayfa1 de satilan otolari Sayfa2 de tutuyorum.yapmak istedigim otomobil eger satilmis ise (satis userformundan) oto girislerinin oldugu sayfadan silinsin sadece satilanlarin bulundugu sayfada kaldin.
şimdiden tesekkur ediyorum. :kafa:

 

[idogus]

bununla ilgili bir örnek gönderirsen yardımcı olmaya çalışırız. Bunu yapabilmek için otoları girdiğin benzersiz bir veri olması gerekir (mesela Þasi no gibi)

 

[Ongun]

Sheets("Sayfa1").Select
For a = 2 To Cells(65536, 2).End(xlUp).Row
If Sayfa1.Cells(a, 2) = TextBox13.Text And Sayfa1.Cells(a, 4) = TextBox2.Text And Sayfa1.Cells(a, 5) = TextBox3.Text Then Rows(i & ":" & i).Delete Shift:=xlUp
Next

Bu kodu kendi kodunuza göre uyarlıyabilirsiniz. UserForm2 nin KAYDET bütonuna yazabilirsiniz. Eşitliğin sağlandığı sayfa1 deki satırı olduğu gibi siliyor. Bir deneyin. Kolay Gelsin

 

[mraltin]

Sn.İdogus ve ongun İkinizede tesekkur ediyorum.
Sn.Ongun gonderdiginiz kodu uyarlayamadim orada Textbox13.Text ve Textbox3.Text var bunlar benim formumda yok ve ben yeniyi ayrıntılı anlamiyorum.Daha acik yazarsaniz sevinirim.

 

[Ongun]

Sn. mraltin
UserForm1 ve UserForm2 deki "kaydet" bütonuna ait kodlarınızı gönderirseniz yardımcı olmaya çalışayım. bu şekilde anlatmak çok zor. Çünkü For döngüsünün çalışabilmesi için satılan araçları "kayıtlı araçlar sayfasında" buldurmamız lazım. Selamlar.

 

[mraltin]

ARAÇ SATIÞ FORMUNDAKİ KAYIT BUTONUNDAKİ KODLAR
If ad_txt.Text = "" Or kimlik_no_txt.Text = "" Then
MsgBox "Primary KEY BOÞ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("SATIS").Columns("A")) + 1
Sheets("SATIS").Cells(dene, 1) = satis_tarih_txt.Text
Sheets("SATIS").Cells(dene, 2) = ad_txt.Text
Sheets("SATIS").Cells(dene, 3) = soyad_txt.Text
Sheets("SATIS").Cells(dene, 4) = mus_ev_txt.Text
Sheets("SATIS").Cells(dene, 5) = musteri_cep_txt.Text
Sheets("SATIS").Cells(dene, 6) = musteri_adres_txt.Text
Sheets("SATIS").Cells(dene, 7) = kefil_ad_txt.Text
Sheets("SATIS").Cells(dene, 8) = kefil_tel_txt.Text
Sheets("SATIS").Cells(dene, 9) = dosya_no_txt.Text
Sheets("SATIS").Cells(dene, 10) = kimlik_no_txt.Text
Sheets("SATIS").Cells(dene, 11) = musteri_aciklama_txt.Text
Sheets("SATIS").Cells(dene, 12) = plaka_txt.Text
Sheets("SATIS").Cells(dene, 13) = marka_cmb.Text
Sheets("SATIS").Cells(dene, 14) = model_txt.Text
Sheets("SATIS").Cells(dene, 15) = renk_txt.Text
Sheets("SATIS").Cells(dene, 16) = satis_txt.Text
Sheets("SATIS").Cells(dene, 17) = sorun_txt.Text


MsgBox "KAYIT İÞLEMİ TAMAMLANDI", vbi, "...........OTO GALERİ"

End If
End Sub

******
GALERİ GİRİÞ FORMUNAKİ KAYIT
Private Sub kaydet_cmd_Click()
If sira_no_txt.Text = "" Or plaka_txt.Text = "" Then
MsgBox "Primary KEY BOÞ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("DATA").Columns("A")) + 1
sira = sira_no_txt
Sheets("DATA").Cells(dene, 1) = sira_no_txt.Text
Sheets("DATA").Cells(dene, 3) = plaka_txt.Text
Sheets("DATA").Cells(dene, 4) = marka_cmb.Text
Sheets("DATA").Cells(dene, 5) = model_yili_txt.Text
Sheets("DATA").Cells(dene, 6) = km_txt.Text
Sheets("DATA").Cells(dene, 7) = silindir_txt.Text
Sheets("DATA").Cells(dene, 8) = yakit_cmb.Text
Sheets("DATA").Cells(dene, 9) = motor_txt.Text
Sheets("DATA").Cells(dene, 10) = renk_txt.Text
Sheets("DATA").Cells(dene, 39) = karoser_cmb.Text
Sheets("DATA").Cells(dene, 38) = arac_bilgi_txt.Text
Sheets("DATA").Cells(dene, 40) = durum_cmb.Text
Sheets("DATA").Cells(dene, 41) = model_txt.Text
Sheets("DATA").Cells(dene, 42) = kisi_no_cmb.Text ' frame 3
Sheets("DATA").Cells(dene, 43) = firma_txt.Text
Sheets("DATA").Cells(dene, 44) = kisi_ad_txt.Text
Sheets("DATA").Cells(dene, 45) = tel_ev_txt.Text
Sheets("DATA").Cells(dene, 46) = tel_is_txt.Text
Sheets("DATA").Cells(dene, 47) = tel_cep_txt.Text
Sheets("DATA").Cells(dene, 48) = adres_txt.Text
Sheets("DATA").Cells(dene, 49) = banka_cmb.Text
Sheets("DATA").Cells(dene, 50) = hesap_txt.Text
Sheets("DATA").Cells(dene, 2) = galeri_tarih_txt.Text
Sheets("DATA").Cells(dene, 51) = satis_txt.Value
If abs_ch = True Then
Sheets("DATA").Cells(dene, 11) = "VAR"
End If
If abs_ch = False Then
Sheets("DATA").Cells(dene, 11) = "YOK"
End If
sira_no_txt.Text = sira + 1
plaka_txt.Text = ""
MsgBox "Kayıt işlemi Tamamlandı", vbInformation
plaka_txt.Value = ""
marka_cmb.Value = ""
End If
End Sub

 

[Ongun]

Araçın girişinde ve çıkışında yani satılmasında plaka no değişmiyor ise, öncelikle yapmamız gereken satış bilgilerinin olduğu UserForm üzerinde bulunan plakaya ait plaka_txt.Text kutusunu düzenleyelim. aynı zamanda plaka numarasının doğru yazılıp yazılmadığını kontrol etmiş olursunuz.

Private Sub plaka_txt_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("DATA").Select
For dene = 1 To Cells(65536, 2).End(xlUp).Row
If Sheets("DATA").Cells(dene, 3) <> plaka_txt.Text Then _
MsgBox "PLAKA NUMARASI BULUNAMADI. KONTROL EDİNİZ", 48, "DİKKAT": _
plaka_txt.Text = "": Exit For
Next
End Sub

Yukarıdaki kodu satışlara ait UserForm üzerindeki "plaka_txt.Text" kutusunun koduna yapıştır.

Daha sonra ise satışlara ait Userform`un olduğu kaydet bütonunun kodunu aşağıdaki ile değiştir.
ARAÇ SATIÞ FORMUNDAKİ KAYIT BUTONUNDAKİ KODLAR
If ad_txt.Text = "" Or kimlik_no_txt.Text = "" Then
MsgBox "Primary KEY BOÞ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("SATIS").Columns("A")) + 1
Sheets("SATIS").Cells(dene, 1) = satis_tarih_txt.Text
Sheets("SATIS").Cells(dene, 2) = ad_txt.Text
Sheets("SATIS").Cells(dene, 3) = soyad_txt.Text
Sheets("SATIS").Cells(dene, 4) = mus_ev_txt.Text
Sheets("SATIS").Cells(dene, 5) = musteri_cep_txt.Text
Sheets("SATIS").Cells(dene, 6) = musteri_adres_txt.Text
Sheets("SATIS").Cells(dene, 7) = kefil_ad_txt.Text
Sheets("SATIS").Cells(dene, 8) = kefil_tel_txt.Text
Sheets("SATIS").Cells(dene, 9) = dosya_no_txt.Text
Sheets("SATIS").Cells(dene, 10) = kimlik_no_txt.Text
Sheets("SATIS").Cells(dene, 11) = musteri_aciklama_txt.Text
Sheets("SATIS").Cells(dene, 12) = plaka_txt.Text
Sheets("SATIS").Cells(dene, 13) = marka_cmb.Text
Sheets("SATIS").Cells(dene, 14) = model_txt.Text
Sheets("SATIS").Cells(dene, 15) = renk_txt.Text
Sheets("SATIS").Cells(dene, 16) = satis_txt.Text
Sheets("SATIS").Cells(dene, 17) = sorun_txt.Text


MsgBox "KAYIT İÞLEMİ TAMAMLANDI", vbi, "...........OTO GALERİ"

Sheets("DATA").Select
For dene = 1 To Cells(65536, 2).End(xlUp).Row
If Sheets("DATA").Cells(dene, 3) = plaka_txt.Text Then Rows(i & ":" & i).Delete Shift:=xlUp : MsgBox "ARAÇA AİT BİLGİLER GİRİÞ SAYFASINDAN SİLİNMİÞTİR.", 16, "UYARI"
Next

End If
End Sub

Yinede çalışmanın bir örneğini farklı kaydet ki kodlamada hata yapılmış olabilir ne olur ne olmaz. Ben her zaman böyle yaparım. çalışmanı korumuş olursun. Yani önce bir dene oluyorsa ANA ÇALIÞMA SAYFASINDA DÜZENLERSİN. kOLAY GELSİN