Satır Silme

[iplikci_80]

Arkadaşlar örnek olarak göndermiş olduğum çalışmada, veri tabanı sayfasında personel özlük bilgileri var yılılk izin bölümünde personellerin yıllık izin durumları takip edilmektedir. Burada yapmak istediğim şey veri tabanı sayfasının J sütununa bir tarih değeri girildiğinde o personelin bulunduğu satırı ve yıllık izin sayfasında da o personelin bulunduğu satırın silinmesini istiyorum. Yardımcı olursanız mutlu olurum. Herkese teşekkürler

 

[usubaykan]

Arkadaşlar örnek olarak göndermiş olduğum çalışmada, veri tabanı sayfasında personel özlük bilgileri var yılılk izin bölümünde personellerin yıllık izin durumları takip edilmektedir. Burada yapmak istediğim şey veri tabanı sayfasının J sütununa bir tarih değeri girildiğinde o personelin bulunduğu satırı ve yıllık izin sayfasında da o personelin bulunduğu satırın silinmesini istiyorum. Yardımcı olursanız mutlu olurum. Herkese teşekkürler

Merhaba;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Evet    As String, _
    Sat     As Long, Bul As Range
On Error GoTo Son
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
Evet = MsgBox(Target.Offset(0, -8) & " SİLİNİYOR ?", vbYesNo, "ARŞİVE EKLEME....")
If Evet = vbYes Then
    Sat = Sheets("ARŞİV").Cells(Rows.Count, "B").End(3).Row + 1
    Range("A" & Target.Row & ":CP" & Target.Row).Copy Sheets("ARŞİV").Cells(Sat, "A")
    Application.EnableEvents = False
 [COLOR=red]       Set Bul = Sheets("YILLIKİZİN").Cells.Find(what:=Cells(Target.Row, "B"), LookIn:=xlValues, Lookat:=xlWhole)
            If Not Bul Is Nothing Then
                Sheets("YILLIKİZİN").Rows(Bul.Row).Delete
[/COLOR]                Rows(Target.Row).Delete
        End If
    Application.EnableEvents = True
End If
Son:
End Sub

şeklinde deneyin.

 

[iplikci_80]

Ardığınız zaman ve emek için çok teşekkür ederim.

 

[Hayalhanem]

Sayın iplikçi_80

bu çalışma şimdiye kadar aradığımın en iyisi, bunun son halini paylaşırsanız çok sevinirim.
Teşekkürler