[Yardım]  Worksheet Calculate

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Worksheet Calculate

İleti#1)  erseldemirel2 » 29 Tem 2020 15:20

Arkadaşlar ekteki dosyada J1 De Rakamla kaç adet iş listelendiği yazmasını istiyorum. Sayfada herhangi bir filrteleme çalışınca J1 hücresinin değişmesi lazım. Kontrol edebilirmisiniz? Ne öneriyorsunuz? Sayfa kodunda Worksheet Calculate ile oluyor ama elle çalıştırmak gerekiyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Worksheet Calculate

İleti#2)  tasad » 29 Tem 2020 17:11

Dosya ekte.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 28
İleti: 647
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Worksheet Calculate

İleti#3)  erseldemirel2 » 29 Tem 2020 17:57

Sayın tasad, Teşekkür ederim ama sayfada formül olmayacak. Sadece kod ile çözülmesi lazım.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Worksheet Calculate

İleti#4)  tasad » 29 Tem 2020 18:43

Kod ile çalışıyor.Filtreleme yapınca j1 e yazıyor.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 28
İleti: 647
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Worksheet Calculate

İleti#5)  erseldemirel2 » 29 Tem 2020 18:47

Evet ama I1 de formül var calculate tetikleyen. I1 boş olacak. Yani tetikleme sayfadaki formül haricinde yapılması lazım mümkünse
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Worksheet Calculate

İleti#6)  tasad » 29 Tem 2020 20:37

Filtreleme yaptıktan sonra herhangi bir hücreye tıklarsanız çalışır.Başka bir çözüm bulamadım.
Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("TCCB").Range("J1") = WorksheetFunction.Subtotal(103, Sayfa2.Range("A3:A65536")) & " ADET İŞ LİSTELENDİ"
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 28
İleti: 647
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Worksheet Calculate

İleti#7)  erseldemirel2 » 29 Tem 2020 22:06

Evet araştırmaya devam etmek lazım. Sayfada formül kullanmadan "workbook calculate" çalıştırmak
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Worksheet Calculate

İleti#8)  feraz » 29 Tem 2020 23:51

Merhaba.
Alttaki kodları bir modüle ekleyip deneyiniz.

Resim

Kod: Tümünü seç
Sub Auto_Open()
    sure
End Sub

Kod: Tümünü seç
Sub sure()
    Application.OnTime Now + TimeValue("00:00:02"), "xx"
End Sub


Kod: Tümünü seç
Sub xx()
    sure
    Sheets("TCCB").Range("J1") = WorksheetFunction.Subtotal(103, Range("A3:A65536")) & " ADET ÝÞ LÝSTELENDÝ"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6258
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Worksheet Calculate

İleti#9)  feraz » 29 Tem 2020 23:56

XX sub içindeki koda sayfa adı yazılmamış,eklendi.

Kod: Tümünü seç
Sub Auto_Open()
    sure
End Sub


Kod: Tümünü seç
Sub sure()
    Application.OnTime Now + TimeValue("00:00:02"), "xx"
End Sub


Kod: Tümünü seç
Sub xx()
    sure
    Sheets("TCCB").Range("J1") = WorksheetFunction.Subtotal(103, Sheets("TCCB").Range("A3:A65536")) & " ADET İŞ LİSTELENDİ"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6258
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Worksheet Calculate

İleti#10)  erseldemirel2 » 30 Tem 2020 00:02

Sayın Feraz teşekkür ederim. Bu yöntemle çalışıyor fakat bu dosya çok büyük ve 2 saniyede bir olan tetiklemeden olumsuz etkileniyor. Birşeyler yazarken yada ok tuşları ile dolaşırken excel takılıyor. Arka planda TIME olması yorucu oluyor.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Worksheet Calculate

İleti#11)  erseldemirel2 » 30 Tem 2020 00:03

Bu dosya derken aslı olan dosyayı kastettim. Binlerce satır ve sağa doğruda onlarca sütunu var. Time olayı çok yoruyor kasıyor
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Worksheet Calculate

İleti#12)  feraz » 30 Tem 2020 02:24

erseldemirel2 yazdı:Sayın Feraz teşekkür ederim. Bu yöntemle çalışıyor fakat bu dosya çok büyük ve 2 saniyede bir olan tetiklemeden olumsuz etkileniyor. Birşeyler yazarken yada ok tuşları ile dolaşırken excel takılıyor. Arka planda TIME olması yorucu oluyor.

Rica ederim üstad evet tetikleme olayına katılıyorum.Bende fazla birşey bilmiyorum.Tek sayfa olarak olsaydı sorunsuz çalışırdı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6258
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Worksheet Calculate

İleti#13)  erseldemirel2 » 30 Tem 2020 08:59

Sanırım sadece filtreleme yapınca excelde bir tetikleme olmuyor.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 874
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

cron
Bumerang - Yazarkafe