ÇOKETOPLA da #BAŞV! hatası

[zaruri]

Ekde 2 adet dosyamız var. bir tanesi döküm aldığımız Kitap1 diğeri ise raporlama yapdığımız; SATIŞ RAPORU. Bu iki dosyayı değişik makrolarla yıllardır kullanıyoruz. Sadeleştirmek adına yola çıktık, her şey güzel gidiyorken. Kitap1 'in güncelleşmiş halini rapora aktardığımızda tabloda #BAŞV! hatası vermekte. ÇOKETOPLA değişiklikleri hesaplayamıyor gibi anlaşılıyor, bizler başka bir yol, bir hesap yolu arıyor ve yardımlarınızı bekliyoruz.

 

[Muzaffer Ali]

Merhaba.

Module1 deki kodları aşağıdaki ile değiştirin.

Sub Makro_Satış_Aktar_Kitap1()
    Application.ScreenUpdating = False
    Set evn = Workbooks.Open(ThisWorkbook.Path & "\Kitap1.xlsm")
    ActiveSheet.Cells.Copy ThisWorkbook.Sheets(2).Range("A1")
    evn.Close True
    Range("A5").Select
    MsgBox "Kitap1." & vbLf & " SATIŞ VERİLERİ " & vbLf & " GÜNCELLENDİ.!!!", vbOKOnly + vbInformation
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[zaruri]

Muzaffer Ali Hocam, ilginize teşekkür ederim.
Çok verimli bir yardım oldu.
Elinize emeğinize sağlık.
İşlerimiz sayenizde kolaylaşıyor.
Eksik olmayın.