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

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

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

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • 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 #15 : 15 Aralık 2010, 17:37:45 »
Ş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

=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 #16 : 15 Aralık 2010, 17:56:59 »
Tamamdır üstad
Teşekkürler.
 :cicek1

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

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • 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
Rica ederim.  :cicek1
Çalışmalarınızda başarılar.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı gnasuh

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Gürcan Nasuh
  • Doğum Yılınız: 1989
  • İl / İlçe: İstanbul / Çekmeköy
  • İşletim Sisteminiz: windows 10
  • Mesleğiniz: muhasebe
  • Office Versiyonunuz: 2010
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?

Çevrimdışı gnasuh

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Gürcan Nasuh
  • Doğum Yılınız: 1989
  • İl / İlçe: İstanbul / Çekmeköy
  • İşletim Sisteminiz: windows 10
  • Mesleğiniz: muhasebe
  • Office Versiyonunuz: 2010
Yardım edecek yok mu?

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

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • 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
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.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")