[Çözüldü] Sayfa yenilemesi hakkında (Worksheet_Change çalışmıyor)

[drejan62]

Merhabalar
Aşağıdaki kodlarla (hüseyin beyin yardımı ile) rapor sayfasında makro ile güncelleme yapmak istiyorum fakat, e sütununda bulunan mevcut verilerin karşılığığını kendiliğinden hesaplamıyor ya veriyi kendim tekrar girmem gerek yada her hücreyi tıklamam gerekiyor.
Ne yapmam gerekirki veri girişi yada hücreye tıklamadan kendiğilinden makro çalışsın

Kod: [Seç]

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Intersect(Target, Range("E2:E65536")) Is Nothing Then
            If Target = "" Then Exit Sub
                If WorksheetFunction.CountIf(Sheets("Skont").Range("a:a"), Cells(Target.Row, "e")) > 0 Then
                Cells(Target.Row, "f") = WorksheetFunction.VLookup(Cells(Target.Row, "e"), Sheets("Skont").Range("a:b"), 2, 0)
                       End If
        End If
End Sub

[Bülent Öztürk]

Merhaba Ercan Bey,

Sayfanın Worksheet_Change olayına yazılan kodun özelliğidir zaten sayfada meydana gelecek bir değişiklikte çalışmak.
Sizin tam olarak yapmaya çalıştığınız nedir?

[drejan62]

Merhaba Ercan Bey,

Sayfanın Worksheet_Change olayına yazılan kodun özelliğidir zaten sayfada meydana gelecek bir değişiklikte çalışmak.
Sizin tam olarak yapmaya çalıştığınız nedir?

Üstad bir başka çalışma kitabından verileri alıy makronun yazıldığı çalışma kitabının rapor sayfasına kopyalıyorum.
Bu kopyalamadan sonra f sütununa e sütunundaki verilerin karışılığını Skont sayfasından bularak getirmesini istiyorum.

Veya makro ile daşeyarayı Sayfanın kod bölümüne değilde modül içerisine yazabilirmiyiz acaba?
Formül ile yapmak istediğim; f sütununa =düşeyara(e2;"Skont!"a:b;2)
bu formülü f sütununda en son dosu satıra kadar çokaltan bir makro yazabilirmiyiz.

[Bülent Öztürk]

Aynı kodu modüle yazıp ve modülü bir düğmeye atayıp çalıştırabilirsiniz.
Sadece Target yerine ActiveCell yazacaksınız.

[drejan62]

Sağol üstad,
peki sayfa güncellemelerde neden kendiliğinden değişmiyor acaba
illaki her hücreye verimi girmek lazım. Oysa kopyalama yöntemi ile yüzlerce veri zaten girilmiş durumda

[Bülent Öztürk]

Bahsi geçen sayfaya veriyi yapıştırdığınızda çalışmıyor mu, anlamadım?

[drejan62]

Bahsi geçen sayfaya veriyi yapıştırdığınızda çalışmıyor mu, anlamadım?

Evet üstat verileri sayfaya yapıştırıyorum ama makro çalışmıyor.
Fakat ilgili hücreye çift tıklama yaptığımda makro çalışıyo

[Bülent Öztürk]

Yapıştırma işleminin de Change olayını tetiklemesi lazım.
Başka kodlar var mı dosyanızda?

[drejan62]

Yapıştırma işleminin de Change olayını tetiklemesi lazım.
Başka kodlar var mı dosyanızda?

Evet üstat  başka kodlarda var, en azından ilgili safaya alınacak dökümleri makro ile aldırıyorum.

[Bülent Öztürk]

Kod: [Seç]

Application.EnableEvents = False

Kod: [Seç]

Application.ScreenUpdating = False
Yukarıdaki gibi kodlar varsa, Change olayını engelleyebilir. Kontrol eder misiniz?

[drejan62]

üstat alttaki gibi var

Kod: [Seç]

Application.CutCopyMode = False

[Bülent Öztürk]

Dosyanızı görme imkanım var mı?

[drejan62]

Dosyanızı görme imkanım var mı?

Dosya  çok büyük  ben örnek bir dosya hazırlayayım aynı hata orda da olursa onu göndereyim üstad

[Bülent Öztürk]

Tamam.

[drejan62]

Üstad fazla detaya gerek kalmadı
Ekteki dosyanın sayfa3 de e sütununu rapor sayfasına kendimizde kopyala yapıştır dedğimizde makrolar çalışmıyor.
İllaki e sütnunudaki hücrelere çift tıklamamız gerekiyor.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]