satır silme makrosu

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;
iki sayfalı bir çalışma kitabında birinci sayfada veri listesi var,ikinci sayfada hareketler var.
verilerin stok kodları b sütununda.hareketlerin stok kodları da b sütununda.
yapmak istediğim ikinci sayfaya bir hareket girdiğimde b sütunundaki stok kodunu birinci sayfada kontrol etsin ve eğer birinci sayfada b sütununda o stok kodu var ise birinci sayfadaki ilgili satırı komple silsin ve boşluk bırakmasın.
konu hakkında değerli fikirlerinizi paylaşırmısınız lütfen.

 

[gkseren]

Sn. hikmet bey

Sayfa1'de 100 satırlık veri olduğunu düşünerek aşağıdaki kodların işe yarayacağını düşünmekteyim:

varStokKod = ActiveCell
Sheets("Sayfa1").Select
For i% = 1 To 100
If Cells(i%, 2) = varStokKod Then
Rows(i%).Select
Selection.Delete Shift:=xlUp
End If
Next i%

 

[hikmet]

sn.gkseren;
emeğiniz ve ilginiz için teşekkür ederim gerçekten kullanışlı bir makro oldu işime yaradı sağolun varolun.