Makro ile diğer sayfadan satır silme

[kesikbey]

Arkadaşlar sorunum, Başka sayfadan çekilen bilgilerin diğer sayfaya kopyalanırken, bu satırların ilk satırdan silinmesi. örnek dosyada açıklama mevcut. İlgilenen arkadaşlara şimdiden teşekkrler...

 

[Orion1]

AKTAR butonuna basınca,id no msh sayfasından siliniyor.
dosyanız ektedir.

Set k = Sheets("msh").Range("O2:O" & Sheets("msh").Rows.Count) _
.Find(Sheets("RAPOR").Cells(i, "O").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("msh").Range("B" & k.Row & ":O" & k.Row).Delete xlUp
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End If

 

[kesikbey]

Satır silme

Orion1 arkadaşım tek kelimeyle harika olmuş, teşekkür ederim...Bu çalışma sayfası tahsildar makbuzu olacak.Bu benim işimi görür.
Ancak birde buna RAPOR sayfasında Makbuz nosu girince TAHSİLAT TARİHİ ve İRSALİYE TARİHİ sütünlarına otomatik tarih ekleyen makroları ekledim ama hata verdi. Bunun sebebi ne olabilir acaba?
İlgine ve emeğine tekrar teşekkürler, eline sağlık..

 

[Orion1]

otomatik tarih ekleyen makroları siliniz.