Gönderen Konu: [Çözüldü] Sayfa yenilemesi hakkında (Worksheet_Change çalışmıyor)  (Okunma sayısı 9551 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #1 : 15 Aralık 2010, 11:45:32 »
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?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #2 : 15 Aralık 2010, 11:48:32 »
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.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #3 : 15 Aralık 2010, 16:17:37 »
Aynı kodu modüle yazıp ve modülü bir düğmeye atayıp çalıştırabilirsiniz.
Sadece Target yerine ActiveCell yazacaksınız.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #4 : 15 Aralık 2010, 16:29:51 »
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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #5 : 15 Aralık 2010, 16:40:16 »
Bahsi geçen sayfaya veriyi yapıştırdığınızda çalışmıyor mu, anlamadım?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #6 : 15 Aralık 2010, 16:44:11 »
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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #7 : 15 Aralık 2010, 16:47:37 »
Yapıştırma işleminin de Change olayını tetiklemesi lazım.
Başka kodlar var mı dosyanızda?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #8 : 15 Aralık 2010, 16:50:45 »
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.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #9 : 15 Aralık 2010, 16:54:11 »
Kod: [Seç]
Application.EnableEvents = False
Kod: [Seç]
Application.ScreenUpdating = False
Yukarıdaki gibi kodlar varsa, Change olayını engelleyebilir. Kontrol eder misiniz?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #10 : 15 Aralık 2010, 17:04:56 »
üstat alttaki gibi var
Kod: [Seç]
Application.CutCopyMode = False

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #11 : 15 Aralık 2010, 17:10:10 »
Dosyanızı görme imkanım var mı?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #12 : 15 Aralık 2010, 17:15:10 »
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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1303
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfa yenilemesi hk
« Yanıtla #13 : 15 Aralık 2010, 17:19:08 »
Tamam.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa yenilemesi hk
« Yanıtla #14 : 15 Aralık 2010, 17:21:31 »
Ü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.]