Satır Silme Hk

[bulentkars]

Arkadaşlar Merhaba

Excel de 2 sayfam var Özet ve Satış sayfası Özet sayfasının B5 Satırına Hesap kodu girdiğimde girdiğim hesap kodunu Satış sayfasının a sutununda arıyacak eğer aynı kottan varsa satış sayfasında ilgili kodu silecek.Eğer yoksa Uyarı verecek.Bu konuda yardımcı olursanız sevinirim.Şimdiden Teşekküreler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub sil()
Set s1 = Sheets("Satış")
Set s2 = Sheets("Özet")
For i = 2 To s1.[A65536].End(3).Row + 1
If s1.Cells(i, 1).Value = s2.[B5].Value Then
s1.Rows(i).Delete
MsgBox s2.[B5].Value & "  Numaralı kayıt silindi.", vbInformation
Exit Sub
End If
Next
MsgBox s2.[B5].Value & "  Numaralı kayıt bulunamadı.", vbInformation
End Sub

 

[bulentkars]

Sayın Dede Çok Teşekkür ederim

 

[bulentkars]

Sayı Dede merhaba

Makro olmuş fakat satış sayfasında sadece 1-6 satırlarda gi verileri okuyor satış sayfasında 1200 satırım olabılıyor.

 

[dEdE]

Sayı Dede merhaba
Makro olmuş fakat satış sayfasında sadece 1-6 satırlarda gi verileri okuyor satış sayfasında 1200 satırım olabılıyor.

Merhaba,
Haklısınız, yukarıdaki kodu değiştirdim.