Bir Sonraki Veriye Kadar Say

[Talha1616]

Merhabalar,
Ekte bıraktığım excele göre B Sütununda birden fazla veri varsa D Sütunundaki verileri sayacak, örneğin:

B D

150 TON Draw
Pıerce
Trım

200 TON Draw
Cam Trım

150 TON= 3
200 TON= 2 Olacak şekilde bunun formülünü nasıl yazabilirim?

Excelde daha iyi açıklanıyor.
Destekleriniz için teşekkür ederim.

 

[YUSUF44]

Böyle çalışmaktansa sol taraftaki boş hücreleri de doldurmak daha kolay olmaz mı?

https://www.excel.web.tr/threads/birlestirilmis-huecreler.199551/

 

[Talha1616]

Böyle çalışmaktansa sol taraftaki boş hücreleri de doldurmak daha kolay olmaz mı?

https://www.excel.web.tr/threads/birlestirilmis-huecreler.199551/

Merhabalar Yusuf Bey.
İstediğim formül tam olarak şöyle:
Şimdi 900 TON seçili 3 tane operasyon ekledim. 900 ton= 3 adet
sonra altına hemen 200 ton seçildiğinde yine 3 operasyon
150 ton seçildğinde 2 adet.

Her seferinde farklı olacağı için soldaki hücreleri dolu bırakmak doğrudan sayıyı etkiler diye düşünüyorum.
Yani istediğim B Hücresinde veri varsa Bir sonraki B hücresindeki veriye kadar D hücresini say, baya bir kurcaladım ama bulamadım bir türlü.
Teşekkürler.

 

[YUSUF44]

Ben de onun kolay yolunun sol taraftakileri de doldurmak olduğunu söylüyorum zaten. Eğer iki sütun da dolu olursa ister fomülle, ister özet tabloyla, isterseniz makroyla istediğiniz sonucu elde etmek çok daha kolay olur.

Önerdiğim konuyu incelerseniz aynı sizin isteğinize benzer dosyanın özet hücreleri doldurarak ve özet tabloyla yapılmış sonucunu görebilirsiniz.

 

[Talha1616]

Ben de onun kolay yolunun sol taraftakileri de doldurmak olduğunu söylüyorum zaten. Eğer iki sütun da dolu olursa ister fomülle, ister özet tabloyla, isterseniz makroyla istediğiniz sonucu elde etmek çok daha kolay olur.

Önerdiğim konuyu incelerseniz aynı sizin isteğinize benzer dosyanın özet hücreleri doldurarak ve özet tabloyla yapılmış sonucunu görebilirsiniz.

Merhaba inceledim, ve tabloyu yaptım şuan sayabiliyorum.
Ama bağlı olan ana tablom sürekli değişeceği için bu sayma tablomu nasıl otomatik sürekli güncelleyebilirim?

 

[YUSUF44]

Sheet3'teki tabloda bir hücre seçince üstte Tablo Tasarımı ve Sorgu menüleri açılıyor. Sorgu menüsünde "Yenile" düğmesi var. Oraya basıp yenileyebilirsiniz. İsterseniz bu işlemi makroyla otomatik yapabilirsiniz.

 

[Talha1616]

Sheet3'teki tabloda bir hücre seçince üstte Tablo Tasarımı ve Sorgu menüleri açılıyor. Sorgu menüsünde "Yenile" düğmesi var. Oraya basıp yenileyebilirsiniz. İsterseniz bu işlemi makroyla otomatik yapabilirsiniz.

Merhaba, bunun makrosunu nasıl yazabilirim.
Çok uğraştırıyorum kusura bakmayın.

 

[YUSUF44]

Makro kaydet ile aynı işlemleri yapın. Kodlar oluşacaktır. Daha sonra oluşan kodları sayfanın aktif edilmesi olayına bağlayabiliriz. Bende veri kaynağı olmadığından sorguyu yenileyemedim.

 

[Talha1616]

Refresh diyorum ancak verileri güncellemiyor.

 

[Talha1616]

 

[YUSUF44]

Bu işin piri @İdris SERDAR üstaddır. El atarsa çözülür bence.

 

[Talha1616]

Herşeyi tamamladım tek bir sıkıntı kaldı.
Makroyu nasıl yazacağım.

Sub DEGER_DEGISIM()
'
' DEGER_DEGISIM Macro
'

'
Range("B13").Select
ActiveWorkbook.Save
Sheets("Sheet4").Select
Range("Table3__2[[#Headers],[Column1]]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("E10").Select
End Sub


Bu kod elımde var ama soylekı bu kod sadece kaydettiğim presleri kaydediyor.
Bunu sadece değer değiştirdiğimde güncelleme şeklinde ayarlamam gerek.

 

[Talha1616]

Sub GUNCEL_DEGER()

' GUNCEL_DEGER Macro
'
' Keyboard Shortcut: Ctrl+J
'
Range("F10").Select
ActiveWorkbook.Save
Sheets("Sheet4").Select
Range("Table3__2[[#Headers],[Column1]]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("G6").Select
End Sub


Makroyu yazdım, ancak şu ctrl+j yerine her hücreyi değiştirdiğimde otomatik macroyu çalıştırsın istiyorum nasıl yapılabilir?

 

[YUSUF44]

Değiştireceğinizi söylediğiniz hücrenin bulunduğu sayfa adına sağ tıklayıp "Kod görüntüle"yi seçin
Açılan sayfada üst bölümde General yazan seçeneği WorkSheet yapın
Sağ taraftaki seçenekte SelectionChange seçili olacak onu da Change'ye çevirin
Alt kısma

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

satırları eklenecek. O satırların arasına

call GUNCEL_DEGER

satırını ekleyin.

Böylece sayfadaki her değişiklikte makro çalışacak.

Ancak bu durumu istemeyiz. Çünkü çalışmanızı zorlaştırır. Onun yerine belirli hücrelerde değişiklik olunca çalışması istenir.

Bunun için de Private satırından sonra aşağıdaki satırı ekleyin:

if intersect(target, [A1:A100]) is nothing then exit sub

Bu satır ile A1:A100 aralığındaki hücreler değişince makronun çalışmasını sağladık. Siz kendinize göre hangi hücreler değişince çalışmasını istiyorsanız hücre aralığını dğeiştirebilirsiniz.

 

[Talha1616]

Merhaba Yusuf Bey dönüşünüz için çok teşekkür ederim.
Dediklerinizi aynen yaptım, ancak şöyle bir sıkıntı var, A1:A12 Hücrelerimde hepsinde data valıdatıon mevcut hücreye tıkladığım an sonuca gidiyor veri değişikliği yapamıyorum.
Excel dosyam ektedir.

 

[YUSUF44]

Sağ taraftaki seçenekte SelectionChange seçili olacak onu da Change'ye çevirin

Diye belirtmiştim. Siz öyle yapmış ama hem SelectionChange hem de Change olayına aynı kodları eklemişsiniz. SelectionChange kodlarını silin.

 

[Ali]

Formülle isterseniz



J11'e

=EĞER(EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0)<0;BAĞ_DEĞ_DOLU_SAY($D$4:$D$12)+1+EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0);EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0))

yazıp aşağı doğru çekiniz.

J24 hücresine

=EĞER(EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0)<0;BAĞ_DEĞ_DOLU_SAY($D$21:$D$29)+1+EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0);EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0))

yazıp aşağı doğru çekiniz.

 

[Talha1616]

Formülle isterseniz

Ekli dosyayı görüntüle 239500

J11'e

=EĞER(EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0)<0;BAĞ_DEĞ_DOLU_SAY($D$4:$D$12)+1+EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0);EĞERHATA(KAÇINCI(I12;$B$4:$B$12;0);0)-EĞERHATA(KAÇINCI(I11;$B$4:$B$12;0);0))

yazıp aşağı doğru çekiniz.

J24 hücresine

=EĞER(EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0)<0;BAĞ_DEĞ_DOLU_SAY($D$21:$D$29)+1+EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0);EĞERHATA(KAÇINCI(I25;$B$21:$B$29;0);0)-EĞERHATA(KAÇINCI(I24;$B$21:$B$29;0);0))

yazıp aşağı doğru çekiniz.

Merhaba kodunu yazdığınız excel kayıtlı ise atabilirmisiniz?
Çok teşekkür ederim bu arada.
Ellerinize sağlık.

 

[Ali]

Dosya ektedir.

 

[Talha1616]

Dosya ektedir.

Ali Bey tekrardan merhaba kodunuzu aldım sondan başa değer değiştirince uygun sayıyor ancak fotoğrafını attığım şekilde yapınca sayılar farklılaşıyor hep en son seçilen doğru diğerleri yanlış oluyor, sizce nasıl çözülebilir? Hep en altta seçilen seçenek doğru sayıyor. Saygılar.