Soru Sıra No

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Range("a2:a65536").ClearContents
    With Range("a2:a65536")
        .Formula = "=IF(b2="""","""",MAX(a$2:a2)+1)"
        .Value = .Value
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

arşiv Sayfamda yukarıda ki kod mevcut. Başka sayfalardan arşiv sayfasına veri aktardığım zaman exceli kapatıyor. Rica etsem yardımcı olabilir misiniz?

 

[YUSUF44]

Başka sayfalardan veri aktarırken aktarılan sayfada örneğinizdeki gibi sayfa olayına bağlı kodlar varsa sayfada işlem yaptırmadan önce

ApplicationEnableEvents = False

deyip sayfa olaylarını pasiflemeniz gerekir. İşlem sonrasında da

ApplicationEnableEvents = True

satırıyla tekrar aktifleştirmelisiniz.

Sayfa numarasını da aktarılan sayfadaki kodlarla değil aktarım sırasında aktarım kodlarına ilave ederek yapmalısınız.

 

[sirkülasyon]

Yusuf Abi
Teşekkür ederim