Koşullu Satır Silme

[excellkurdu]

Merhaba Arkadaşlar,
Sayfa1 de C6 dan başlayan aşağıya doğru tarihlerin olduğu bir sütünum var. Sayfa2 deki F1 hücresine yazdığım tarihi Sayfa1 deki C sütunundan bulup o tarihin olduğu tüm satırları komple silmek (sadece içerik yazıları değil) istiyorum. Bunu kod ile nasıl sileriz?
Aynı sayfada olursa aşağıdaki kod;Ama bunu Sayfa1 ve Sayfa2 ye nasıl uyarlıyacağız?

Sub SatirSil_Dataferomen()
For x = [A1000].End(3).Row To 2 Step -1
If Cells(x, "C") = Cells(1, "F") Or Cells(x, "F") = Cells(1, "C") Then Rows(x).Delete
Next
End Sub

Benzer konu: http://www.excel.web.tr/f48/ko-ullu-durumlara-gore-satir-silme-makro-t51644.html

 

[suleyman242]

Merhaba Arkadaşlar,
Sayfa1 de C6 dan başlayan aşağıya doğru tarihlerin olduğu bir sütünum var. Sayfa2 deki F1 hücresine yazdığım tarihi Sayfa1 deki C sütunundan bulup o tarihin olduğu tüm satırları komple silmek (sadece içerik yazıları değil) istiyorum. Bunu kod ile nasıl sileriz?
Aynı sayfada olursa aşağıdaki kod;Ama bunu Sayfa1 ve Sayfa2 ye nasıl uyarlıyacağız?

dosya ekte incelermisin
ben dosyayı hazırlarken galiba düzenleme yapmıssınız

 

[excellkurdu]

dosya ekte incelermisin
ben dosyayı hazırlarken galiba düzenleme yapmıssınız

Aynen hocam 4 saattir formül yazıyorum deniyorum. beceremiyorum.
Örneğinizi Hemen bakıyorum hocam.

 

[excellkurdu]

Hocam çalıştı ama ufak sorunum var. sizin örneğinizi isteğime göre değiştirdim. Sil deyince aynı sayfadan siliyor. dataferomen den sil olarak nasıl olur?
Birde silmek istiyormusunuz sorunca Hayır seçeneği yok. Bunu da eklerseniz sevinirim

 

[suleyman242]

Hocam çalıştı ama ufak sorunum var. sizin örneğinizi isteğime göre değiştirdim. Sil deyince aynı sayfadan siliyor. dataferomen den sil olarak nasıl olur?
Birde silmek istiyormusunuz sorunca Hayır seçeneği yok. Bunu da eklerseniz sevinirim

Sub SatirSil_Dataferomen()
Dim x, i
Set s6 = Sheets("FeromenFORM")
Set s7 = Sheets("Dataferomen")
sonsatir = s7.[c65536].End(3).Row
[COLOR="Red"]If MsgBox("silmek istiyormusun ?", vbCritical + vbYesNo, " UYARI") = vbYes Then[/COLOR]
    MsgBox "1 nolu sayfada C sutununda " & s6.Cells(1, "F").Value & "tarihini içeren satırlar silinecektir! "
    For x = sonsatir To 6 Step -1
    If s7.Cells(x, "C").Value = s6.Cells(1, "F").Value Then
        [COLOR="Red"][B]s7.Select[/B][/COLOR]
        Rows(x & ":" & x).Select
        Selection.Delete Shift:=xlUp
    End If
    Next
    MsgBox "Satırlar silindi sıra numarasından kontrolu gerçekleştiriniz "
    For i = 2 To [A65536].End(3).Row - 1
    If (s7.Cells(i, "A").Value + 1) <> s7.Cells(i + 1, "A").Value Then
    s7.Cells(i, "A").Interior.Color = 255
    s7.Cells(i + 1, "A").Interior.Color = 255
    End If
    Next i
    [A1].Select
    [COLOR="Red"]Else
    MsgBox "Silme işleminden vazgeçildi "
    End If[/COLOR]
End Sub

 

[excellkurdu]

Süleyman Bey Hakkınızı helal edin, son bir şey daha istesem kızmazsınız umarım. İşlem sonrası aynı sayfada kalsın. Yani silinince Dataferomen e gitmesin. Data olan sayfaları bozulmasınlar diye gizliyeceğim.

 

[suleyman242]

İşlem sonrası aynı sayfada kalsın. Yani silinince Dataferomen e gitmesin. Data olan sayfaları bozulmasınlar diye gizliyeceğim.

s6.select  ' belirtilen sayfayı aktif hale getirir
[A1].select ' A1 hücresini seçer

bu kodu kodun en son iki satırındaki End if ile End Sub arasına ilave ediniz

 

[excellkurdu]

Süleyman Bey Allah Razı olsun, güzel oldu. Hakkınızı helal edin yordum sizi.

 

[suleyman242]

Süleyman Bey Allah Razı olsun, güzel oldu. Hakkınızı helal edin yordum sizi.

Cümlemizden Allah Razı olsun Hayırlı günler.