Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 15 Aralık 2010, 11:37:29
-
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
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
-
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?
-
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.
-
Aynı kodu modüle yazıp ve modülü bir düğmeye atayıp çalıştırabilirsiniz.
Sadece Target yerine ActiveCell yazacaksınız.
-
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
-
Bahsi geçen sayfaya veriyi yapıştırdığınızda çalışmıyor mu, anlamadım?
-
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
-
Yapıştırma işleminin de Change olayını tetiklemesi lazım.
Başka kodlar var mı dosyanızda?
-
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.
-
Application.EnableEvents = False
Application.ScreenUpdating = False
Yukarıdaki gibi kodlar varsa, Change olayını engelleyebilir. Kontrol eder misiniz?
-
üstat alttaki gibi var
Application.CutCopyMode = False
-
Dosyanızı görme imkanım var mı?
-
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
-
Tamam.
-
Ü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.]
-
Şu şekilde işinize yarar mı?
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
-
Tamamdır üstad
Teşekkürler.
:cicek1
-
Rica ederim. :cicek1
Çalışmalarınızda başarılar.
-
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?
-
Yardım edecek yok mu?
-
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.