veri satırı silme

[ordulu82]

arkadaşlar dosyada veri sayfası ve bir de işten çıkanların kaydedildiği sayfa var. çıkış sayfasına girdiğim isimlerin veri sayfasından otomatik olarak silinmesini nasıl sağlayabilirim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub ÇIKANLARI_SİL()
    Dim S1, S2, X, BUL
    
    Set S1 = Sheets("veri")
    Set S2 = Sheets("çıkış")
    
    For X = 6 To S2.Cells(Rows.Count, "B").End(3).Row
        Set BUL = S1.Range("B:B").Find(S2.Cells(X, "B"), , , xlWhole)
        If Not BUL Is Nothing Then
            S1.Range("B" & BUL.Row & ":E" & BUL.Row).Delete xlShiftUp
        End If
    Next
        
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ordulu82]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub ÇIKANLARI_SİL()
    Dim S1, S2, X, BUL
    
    Set S1 = Sheets("veri")
    Set S2 = Sheets("çıkış")
    
    For X = 6 To S2.Cells(Rows.Count, "B").End(3).Row
        Set BUL = S1.Range("B:B").Find(S2.Cells(X, "B"), , , xlWhole)
        If Not BUL Is Nothing Then
            S1.Range("B" & BUL.Row & ":E" & BUL.Row).Delete xlShiftUp
        End If
    Next
        
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Hocam bu kod tüm satırı mı siliyor yoksa seçili hücreleri mi

 

[Korhan Ayhan]

Merhaba,

B:E aralığını siliyor.

Tüm satırı silmesini istiyorsanız aşağıdaki satırı;

S1.Range("B" & BUL.Row & ":E" & BUL.Row).Delete xlShiftUp

Bununla değiştirin;

BUL.EntireRow.Delete

 

[ordulu82]

Merhaba,

B:E aralığını siliyor.

Tüm satırı silmesini istiyorsanız aşağıdaki satırı;

S1.Range("B" & BUL.Row & ":E" & BUL.Row).Delete xlShiftUp

Bununla değiştirin;

BUL.EntireRow.Delete

Üstad bu kodu tam olarak nereye yazıcaz. parantezin içine mi.
Ben koddaki "E" harfini silinecek sütun artsın diye BDC yaptım. sanki oldu gibi ama neyi sildi onu Allah bilir

 

[Korhan Ayhan]

Merhaba,

Bir önceki mesajımda kırmızı renkli satırı kod içinde bulup silin ve yerine mavi renkli satırı ekleyin.

 

[ordulu82]

Merhaba,

Bir önceki mesajımda kırmızı renkli satırı kod içinde bulup silin ve yerine mavi renkli satırı ekleyin.

Teşekkür ederim Korhan Hocam
Bir de rica etsem şu linke bakabilirmisniz. http://excel.web.tr/f14/rapor-kesintisi-hesaplama-t119169.html Çok uğraştırıcak bir işlemse fazla uğraşmayın ben başka bir çözüm bulmaya çalışayım