checkbox veri süzme

[bydogannn67]

Tesekkurler hocam çok güzel bi çalışma oldu sayenızde

 

[vardar07]

Rica ederim. Yalnız listelemede yılı kriter almaz. Yani Listede 2015 yılı birinci ayı ve2016 yılı birinci ayı varsa ikisinide listeler haberin olsun.

 

[bydogannn67]

Aslında üst tarafada textbox ekleyıp yılını girip ona göre aratma nıyetım var ama size sormaya yüzüm yok artık

 

[vardar07]

#5 nolu mesajdaki dosyada değişiklik yapıldı. Sizdeki ekle sil kodlarınıda ekleyip deneyiniz.

 

[bydogannn67]

tesekkürler hocam

 

[assenucler]

Teşekkür ve bir rica

Sayın vardar07,
Sayın bydogannn67,


Değerli üstadım, emek ve katkılarınız için teşekkürler.

bydoğannn67, dosyanız ilgimi çekti, son kodları takip edemez oldum.

Dosyanızın son halini rica etsem, ekleyebilir misiniz?

Sevgi ve saygılar.

 

[bydogannn67]

şirket bilgileri eklı kardeşim malesef yukleyemem ornek dosyalar eklı zaten takıpdığınız yerde bende sıze yardımcı olmak ısterım

 

[assenucler]

Öncelikle ilginiz ve yanıtınız için teşekkürler.

Üstadın size "Ekle" ve "Sil" kodlarını eklersiniz diye yazdığı mesaja ilişkin kodları ve nereye ekleneceğini yazabilirseniz memnun olurum.

Tekrar teşekkürler ve kolaylıklar dilerim.

 

[bydogannn67]

EKLE

Private Sub CommandButton81_Click()
Dim ad As String, s As Byte
Dim sat, son, deg, K As Integer
Dim sayfa As String
Sheets("RAPOR").Select
Application.ScreenUpdating = False

'*****verigir
If TextBox2 = "" Then MsgBox "Şirket Bilgisi Girmelisiniz", vbInformation: Exit Sub
son = Sheets("RAPOR").Cells(65536, "b").End(xlUp).Row + 1
Sheets("RAPOR").Cells(son, "a") = TextBox2

If TextBox3 = "" Then MsgBox "Kullanı Adı Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "b") = TextBox3

If TextBox4 = "" Then MsgBox "Muayene Tarihi Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "c") = TextBox4

If TextBox5 = "" Then MsgBox "Rapor Türü Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "d") = TextBox5

If TextBox6 = "" Then MsgBox "Teşhis Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "e") = TextBox6

If TextBox7 = "" Then MsgBox "Raporlu Tarih Aralığı Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "f") = TextBox7

If TextBox8 = "" Then MsgBox "Çalışabilir Tarihi Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "g") = TextBox8

If TextBox9 = "" Then MsgBox "Raporlu Gün Girmediniz", vbInformation: Exit Sub
Sheets("RAPOR").Cells(son, "h") = TextBox9
Sheets("RAPOR").Cells(son, "ı") = TextBox10
TextBox2 = Empty: TextBox3 = Empty: TextBox4 = Empty: TextBox5 = Empty: TextBox6 = Empty: TextBox7 = Empty: TextBox8 = Empty: TextBox9 = Empty

MsgBox "KAYIT İŞLEMİ YAPILMIŞTIR.", vbInformation

UserForm_Initialize
Application.ScreenUpdating = True
Sheets("GİRİŞ").Select
End Sub

SİL

Private Sub CommandButton116_Click()
 Set sayfa = Sheets("rapor")
 erb = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
 If erb = vbYes Then
 evn = ListView1.SelectedItem.Index + 1
 sayfa.Rows(evn).Delete
 End If
 
UserForm_Initialize
    Sheets("GİRİŞ").Select
End Sub

 

[vardar07]

Merhaba. Sil kodunu eğer ilk açılışta kullanacaksanız sorun olmaz ama süzme yaptıktan sonra yaparsanız hatalı yer siler bilginize.

 

[bydogannn67]

valla hocam dosyalar arasında araştırdım aldım kodu koydum baktım calıştı bende kalsın dedım

düzeltme yapabılırsenız mınnettar kalırım

 

[assenucler]

Bilgilendirmeniz için teşekkürler üstadım. Sağ olun var olun.

 

[vardar07]

Dosyanın son hali #5 nolu mesajda.