• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bir Sonraki Veriye Kadar Say

T

Talha1616

Katılım
9 Ağustos 2022
Mesajlar
49
Excel Vers. ve Dili
OFFICE 2016, INGILIZCE
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.
 

Ekli dosyalar

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

Genişletmek için tıkla ...
239456

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.
 
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.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...
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?
 

Ekli dosyalar

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.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...
Merhaba, bunun makrosunu nasıl yazabilirim.
Çok uğraştırıyorum kusura bakmayın.
 
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.
 
Bu işin piri @İdris SERDAR üstaddır. El atarsa çözülür bence.
 
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.
 
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?
 
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.
 
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.
 

Ekli dosyalar

Sağ taraftaki seçenekte SelectionChange seçili olacak onu da Change'ye çevirin
Genişletmek için tıkla ...

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

239500

J11'e

Kod: 
=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

Kod: 
=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.
 
Ali' Alıntı:
Formülle isterseniz

Ekli dosyayı görüntüle 239500

J11'e

Kod: 
=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

Kod: 
=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.
Genişletmek için tıkla ...
Merhaba kodunu yazdığınız excel kayıtlı ise atabilirmisiniz?
Çok teşekkür ederim bu arada.
Ellerinize sağlık.
 
Ali' Alıntı:
Dosya ektedir.
Genişletmek için tıkla ...
239509
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.239510
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst