Soru Mükerrer kayıt sorunu ve satır silmek

[mukoli]

Ekteki dosyada rapor userform dan seçtiğim kişinin kayıtını silmek sadece.
Sıra no mu olması gerekir id mi bilmiyorum .

İkinci yapmak istediğim izin giriş userfom var izin girişi yaptıgım personelin mükerrer giriş olmaması için izin başlangıç ve bitiş tarihi kontrol ederek EĞER varsa aynı tarih uyarı vermesi sağlanabilirmi. Teşekkür ediyorum şimdiden
Yardımcı olursanız sevinirim

 

[mukoli]

Günceldir

 

[mukoli]

2 gündür uğraşıyorum çözemedim

 

[TiOr]

Selam,
Ekte dosyanızı paylaşıyorum.
Silme işlemi tamam gibi fakat mükerrer tarihte sadece izin başlangıç tarihine işlem yapabildim
Kontrol eder, dönüş yaparsınız.
İyi çalışmalar.

 

[mukoli]

Merhaba hocam elinize sağlık silme işlemi listboxdan siliyor kayıtlar sayfasından silmesi lazım hocam . Mükerrer kayıt işi olmuş teşekkür ederim . Sadece silme işlemi kaldı ona el atarsanız çok sevinirim

 

[TiOr]

Selam,
Gündüz fazla vaktim yoktu dönüş yapamadım.
Dosyanız ektedir.
Umarım işlem tamamdır
Hayırlı akşamlar...

Mükerrer kayıt için aşağıdaki kod kullanılmıştır;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 3 And süt = 5 And Cells(sat, süt) <> "" Then
If WorksheetFunction.CountIf(Range("E3:E" & sat - 1), Cells(sat, süt)) >= 1 Then
MsgBox (" Bu Tarih Girişi Daha Önce Yapılmış."), vbCritical
Cells(sat, süt) = ""
End If
End If
End Sub

Silme İşlemi için aşağıdaki kod kullanılmıştır;

Private Sub CommandButton2_Click() 'SİL
Dim bul As Range, satir As Long
    With Me.ListBox1
        If .ListIndex <> -1 Then
            satir = .ListIndex
            If MsgBox("Silinsin mi?", vbQuestion + vbYesNo, "Silme") = vbYes Then
                Set bul = Sheets("KAYITLAR").Range("B:B").Find(.List(satir, 0), LookAt:=xlWhole)
                If Not bul Is Nothing Then Sheets("KAYITLAR").Rows(bul.Row).Delete
                If satir <> -1 Then
                    .RemoveItem satir
                    MsgBox "Silindi"
                End If
            End If
        End If
    End With
    Set bul = Nothing
End Sub

 

[mukoli]

hocam çok teşekkür ederim . mükerrer kayıt çalışıyor fakat satır silme doğru çalışmadı farklı satırı siliyor

 

[TiOr]

Çalışmamasının imkanı yok. Valla bende çalışıyor listboxtan seçim yapıp sil dediğim de kayıtlar sayfasında ki karşılığını siliyor. Bende çalışan sizde neden çalışmaz anlamış değilim.

 

[TiOr]

Kayıtlar sayfasına gelin geliştirici visual basic forms userforms1 e tıklayın f5 yapın sayfa üstünde iken kontrol edin birde.

 

[mukoli]

Hocam aynı tc oldugu karşılıgını silmiyor başlangıç tarihini değiştirin aynı kişinin o şekilde görebilirsiniz

 

[mukoli]

Gördüğünüz gibi hocam ben hatica 05.03.2016 olan satırı silmek istedim 04.03.2016 olanı sildi

 

[TiOr]

Selam,
İl satır mükerrer olduğu için doğru işlem yapmıyordu.
İl satıra sıra no ekledim doğru işlemi bu sefer gerçekleştirdi sanırım.
Kontrol edip dönüş yaparsın.

Bu başlıkları kendin düzeltirsin. Sıra no eklediğim için başlıklar değişti. Açınca anlayacaksın.


Bilgi ver sonrasında ilk satıra otomatik sıra no atması için dosyada işlem yapacam.

 

[mukoli]

Günaydın hocam çook teşekkürler şimdi doğru şekilde siliyor. sabırsızlıkla bekliorum sağolun

 

[TiOr]

Selam,
İşlem tamam sıra numarasını da otomatik atıyor. Başlıkları da düzenledim. Düzgün ve doğru veriyi şu an siliyor. Mükerrerde tamam. Ben dediklerini yaptım
Fakat ado kodlama var sanırım. Bu yüzden fazla detayını bilemiyorum.
Mesela şu an listboxta eksik sütun gösteriyor. İzin türünü bir türlü gösteremedim ve ayrıca ComboBox lara veriyi yanlış getiriyor sıra numarası eklediğim için. Özetle bu kısmı düzeltemedim.

Benden bu kadar gerisini kendin biliyorsan düzenlersin veya yeni bir konu aç farklı kişiler destek versin.
İyi çalışmalar...

 

[mukoli]

Çok teşekkürler hocam herşey tamam onu ben ayarlarım ellerinize sağlık

 

[TiOr]

Rica ederim. Dosyanı düzenleyin ce paylaşırsan sevinirim. Nerede eksik kalmışım öğrenmek isterim. Esenle kal...

 

[mukoli]

tabiki hocam teşekkür ederim

 

[mukoli]

Evet hocam düzenlemeyi yaptım . İncelerseniz

 

[TiOr]

Güzel oldu Güle güle kullan...
Değişikliği tam olarak hangi satırda yaptın kod kısmında?

Ben burayı değiştirmiştim ama sonuç alamadım geri kalan kısmında da bir değişiklik göremedim

Private Sub ListBox1_DblClick(ByVal Cancel As msForms.ReturnBoolean)
    On Error Resume Next
    n = ListBox1.ListIndex
    ComboBox1.Value = ListBox1.List(n, 1)
    ComboBox2.Value = ListBox1.List(0, 2)
    ComboBox3.Value = ListBox1.List(0, 3)
 
End Sub

 

[mukoli]

ub Combo(ByVal Tablo As String)

Dim Muko As Double
    On Error Resume Next
    If Tablo = "" Then Tablo = syfaADo
    
    With Me
        .ComboBox1.Column = con.Execute("select distinct F2 from (" & Tablo & ") where F2 is not null").GetRows   " F1 alanları değiştirdim"
        .ComboBox2.Column = con.Execute("select distinct F3 from (" & Tablo & ") where F3 is not null").GetRows
        .ComboBox3.Column = con.Execute("select distinct F4 from (" & Tablo & ") where F4 is not null").GetRows
        
    End With

Sub Listbox()
 
    sql = "select f1,f2,f3,f4,format([f5],""dd.mm.yyyy""),format([f6],""dd.mm.yyyy""),f7,f8 from " & syfaADo & " where not isnull(f2)"    "Buradaki bilgileri "
 
    With Me
        If .ComboBox1.Text <> "" Then sql = sql & " and f2 like '" & .ComboBox1.Value & "'"                                         "  ve Buradaki bilgileri"
        If .ComboBox2.Text <> "" Then sql = sql & " and f3 like '" & .ComboBox2.Value & "'"
        If .ComboBox3.Text <> "" Then sql = sql & " and f4 like '%" & .ComboBox3.Value & "%'"