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

[Bülent Öztürk]

Şu şekilde işinize yarar mı?

Kod: [Seç]

Option Explicit
Dim i As Long

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("E2:E65536")) Is Nothing Then
    For i = 1 To Range("E65536").End(3).Row
    Cells(i, "f") = WorksheetFunction.VLookup(Cells(i, "e"), Sheets("Skont").Range("a:b"), 2, 0)
    Next
End If
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub



[drejan62]

Tamamdır üstad
Teşekkürler.
 

[Bülent Öztürk]

Rica ederim. 
Çalışmalarınızda başarılar.

[gnasuh]

Merhaba,
Yardıma ihtiyacım var. Ekte excel dosyasında sayfa 1 ve 2 de açıklama yaptım. Yapmak istediğim iki change makrosunu aynı sayfada çalıştırmak, düşeyara ve kopyalama ile hücreye veri geldiğinde change makrosu çalışmıyor. Çözüm bulabilir miyiz?

[gnasuh]

Yardım edecek yok mu?

[Bülent Öztürk]

Merhaba,

İşlemi yapacak olan makroyu bir modüle yazın.
Sayfaların change olaylarına da makroyu çağırın.

Bu şekilde sayfa içeriği değiştiğinde yine makronun çalışacaktır.