Çoketopla Vba

[Volkan1107]

Arkadaşlar Merhaba;

2021 sayfasında bulunan ürün miktarı kg hücresine giriş yapınca 2021 Özet Rapor sayfasına miktarlar ürün koduna göre ay bazında düşmektedir. Bu işlemi vba kodları ile yapabilirmiyim, formdaki konuları inceledim bir tanesinde kilogramı getirttim ama aylara göre yapamadım. Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Özet tablo kullanmayı denediniz mi?

 

[Volkan1107]

Özet tablo kullanmayı denediniz mi?

Rapora birden fazla kişi giriş yapabiliyor özet tablo çok kullanışlı olmuyor.

 

[Korhan Ayhan]

Ne anlamda kullanışlı olmuyor?

 

[Volkan1107]

Ne anlamda kullanışlı olmuyor?

Veri giren arkadaşlar karıştırabiliyor. Özet tablo ile yapabiliyorum vba kod ile yapılabilirmi yada mantığını gösteren bir örnek olursa çalışacağım, tarih kısmında zorluk çekiyorum

 

[Korhan Ayhan]

Elbette yapılabilir.

Fakat biz üyelerimize genellikle en efektif ve kolay yolu önermeyi ve öğretmeyi hedefliyoruz.

Excel size bu kolaylığı sağlamışken kullanmakta fayda var.

Ama ben genellikle kime özet tablo önerdiysem genellikle bu tepkiyi alıyorum. Excel severler sanırım özet tabloya ısınamadı.

Bana sorarsanız oldukça pratik ve kullanışlı bir araçtır.

 

[Volkan1107]

Elbette yapılabilir.

Fakat biz üyelerimize genellikle en efektif ve kolay yolu önermeyi ve öğretmeyi hedefliyoruz.

Excel size bu kolaylığı sağlamışken kullanmakta fayda var.

Ama ben genellikle kime özet tablo önerdiysem genellikle bu tepkiyi alıyorum. Excel severler sanırım özet tabloya ısınamadı.

Bana sorarsanız oldukça pratik ve kullanışlı bir araçtır.

Teşekkürler Korhan Bey

 

[Korhan Ayhan]

Dosyanızda ürün adı alanını nereden alıyorsunuz?

 

[Volkan1107]

 

[Korhan Ayhan]

Peki ürün kodlarını kendiniz mi yazacaksınız, yoksa onlarda dinamik şekilde güncellenecek mi?

 

[Volkan1107]

Peki ürün kodlarını kendiniz mi yazacaksınız, yoksa onlarda dinamik şekilde güncellenecek mi?

Kendim yazacağım farklı kodlarda olacak.

 

[Korhan Ayhan]

Deneyiniz.

 

[Volkan1107]

Deneyiniz.

Korhan Bey;

Çok iyi olmuş emeğinize sağlık çok teşekkürler, ilave olarak buton olmadan olabilir mi?

Ayrıca bu tarz çalışmalar yapabilmem için nereden başlamalıyım önerebileceğiniz bir kaynak var mı?

 

[Korhan Ayhan]

Buton olmadan olabilir.

Ama kodu tetiklemek için bir olay gerekiyor. Siz nasıl olsun istiyorsunuz?

Öğrenmek için elbette temelden başlamalısınız. Bununla ilgili olarak aşağıdaki konuyu inceleyiniz.

Soru ve yardım süreci hakkında bir öneri

Bir öneri Defalarca sorulan sorulara, benzer açılan konulara, adminler için cevap vermek sıkıcı olabilir tahmin edebiliyorum. Peki, aslında bunların bir çoğu, forumda nasıl aratacağını bilmemekten kaynaklandığını düşünüyorum. Uzmanlar için; Açılan konu, bir formül yada bir kod yapısı...

www.excel.web.tr

 

[Volkan1107]

Buton olmadan olabilir.

Ama kodu tetiklemek için bir olay gerekiyor. Siz nasıl olsun istiyorsunuz?

Öğrenmek için elbette temelden başlamalısınız. Bununla ilgili olarak aşağıdaki konuyu inceleyiniz.

Soru ve yardım süreci hakkında bir öneri

Bir öneri Defalarca sorulan sorulara, benzer açılan konulara, adminler için cevap vermek sıkıcı olabilir tahmin edebiliyorum. Peki, aslında bunların bir çoğu, forumda nasıl aratacağını bilmemekten kaynaklandığını düşünüyorum. Uzmanlar için; Açılan konu, bir formül yada bir kod yapısı...

www.excel.web.tr

Örnek olarak Sayfa 2021 E6 dan sonraki hücrelere değer girdiğimde tetikleyebilir miyiz?

 

[Korhan Ayhan]

2021 isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    If Intersect(Target, Range("E6:E" & Rows.Count)) Is Nothing Then Exit Sub
    For Each Veri In Application.Intersect(Target, Range("E6:E" & Rows.Count))
        If Veri.Value <> "" Then
            Call Module1.Ozet_Tablo_Olustur
            Exit For
        End If
    Next
End Sub

 

[Volkan1107]

2021 isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    If Intersect(Target, Range("E6:E" & Rows.Count)) Is Nothing Then Exit Sub
    For Each Veri In Application.Intersect(Target, Range("E6:E" & Rows.Count))
        If Veri.Value <> "" Then
            Call Module1.Ozet_Tablo_Olustur
            Exit For
        End If
    Next
End Sub

Korhan Bey oluyor, tüm yardımlarınız için çok teşekkür ederim.