makro ile eğersay

[bunyaming]

Merhaba,

aşağıda ki gibi bir kod ile eğersay yaptırmak istiyorum ama hata veriyor.

sanırım sayfa yolunu yanlış yazıyorum.(data sayfasından aralığa bakıp mevcut sayfadaki ölçüte göre sayacak)

nasıl düzenlemeliyim?

teşekkürler

Private Sub CommandButton1_Click()

sonsatir = Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To sonsatir

Cells(i, 3) = WorksheetFunction.CountIf(Sheets("DATA").Range("F1:F5000"), Range(i, 2))

Next i

End Sub

 

[Ömer BARAN]

Merhaba.

-- Sonuçların yazılacağı sayfa aktif olan sayfa ise Activesheet.Range(i, 2)
-- Sonuçların yazılacağı sayfa aktif değilse Sheets("......").Range(i, 2)
gibi ilave yapın.
.

 

[bunyaming]

Merhaba.

-- Sonuçların yazılacağı sayfa aktif olan sayfa ise Activesheet.Range(i, 2)
-- Sonuçların yazılacağı sayfa aktif değilse Sheets("......").Range(i, 2)
gibi ilave yapın.
.

Ömer Hocam Merhaba

cevap için teşekkürler fakat çalışmadı yine

dosyayı eklesem vaktiniz varsa birde ilave soru yöneltsem yardımcı olabilirmisiniz

teşekkürler

 

[Ömer BARAN]

Ekleyin bakayım.

 

[bunyaming]

Ekleyin bakayım.

teşekkürler Hocam

bu dosyayı bu hale emek vererek Sayın Turist ve Sayın Haluk hocalarım getirdi

fakat bitmedi daha çok işlem yapmam gerekiyor

pivot ile aslında 2 dakika ama ne hikmetse kabul görmüyor

dosya da bilgi sayfasında açıklamaya çalıştım hocam

sonraki aşama da

belirtmediğim bir soruyuda burada belirtmek istiyorum

hesaplamalar yapıldıktan sonra kritere göre sıraya koyabilirmiyiz hocam

örneğin fiili maliyete göre tedarikçileri veya sefer sayısına göre vs

teşekkürler

 

[Ömer BARAN]

Daha net açıklayın bence.
Konu açılış mesajındaki sorunuzla ilgili dosyada bir kod göremedim.
Onu halledelim, ardından açıklamanıza göre diğer şeylere de halledebilirsem bakayım.

 

[bunyaming]

Daha net açıklayın bence.
Konu açılış mesajındaki sorunuzla ilgili dosyada bir kod göremedim.
Onu halledelim, ardından açıklamanıza göre diğer şeylere de halledebilirsem bakayım.

Hocam o orjinal dosya diye başka dosya ekledim

bilgi sayfasında yer alan tedarikçi isimlerine göre data sayfasından eğer say yaptırmak istiyorum (nasıl yapıldığınıda dosya yolu yazarsanız öğrenirim)

vba da acemiyim!

yardımcı olabilirseniz sevinirim

teşekkürler

 

[bunyaming]

Hocam o orjinal dosya diye başka dosya ekledim

bilgi sayfasında yer alan tedarikçi isimlerine göre data sayfasından eğer say yaptırmak istiyorum (nasıl yapıldığınıda dosya yolu yazarsanız öğrenirim)

vba da acemiyim!

yardımcı olabilirseniz sevinirim

teşekkürler

belirtmeyi unuttum hocam özür diliyorum data sayfasında "f" sütununda sayacak

 

[Ömer BARAN]

Olması gereken sonuçları yazmadığınız için sormam gerek;
Aşağıdaki formülleri BİLGİ sayfasında ilgili hücrelere uygulayıp aşağı doğru kopyalayınca istenilen sonuçları veriyor mu?
-- C2 için: =EĞERSAY(DATA!$F$3:$F$19;B2)
-- D2 için: =DÜŞEYARA($Y$1;FİYAT!$A$3:$B$5;2)
-- E2 için: =TOPLA.ÇARPIM((DATA!$F$3:$F$19=B2)*(DATA!$J$3:$J$19=$Y$1)*(DATA!$L$3:$L$19))
.

 

[bunyaming]

Olması gereken sonuçları yazmadığınız için sormam gerek;
Aşağıdaki formülleri ilgili hücrelere uygulayıp aşağı doğru kopyalayınca istenilen sonuçları veriyor mu?
-- C2 için: =EĞERSAY(DATA!$F:$F;B2)
-- D2 için: =DÜŞEYARA($Y$1;FİYAT!$A$3:$B$5;2)
-- E2 için: =TOPLA.ÇARPIM((DATA!$F$2:$F$19=B2)*(DATA!$J$2:$J$19=$Y$1)*(DATA!$L$2:$L$19))

hocam

eğersay ve düşeyara ile istediğim sonuçlara ulaştım
yalnız problem şu ki;
benden istenen çıkan rakamları büyükten küçüğe sıralamam (dolayısıyla ilgili tedarikçilerde sıralanacak) ve formülle sonuç çıktıktan sonra sırala dediğimde alakasız sonuçlar çıkıyor. Makro ile belki çözülebilir diye araştırıyorum.(diğer ikisini sıralayamadığım için e2 kısmını hiç denemedim)

Formülle sıralama bu şekilde olabiliyorsa beni büyük bir dertten kurtarırsınız

tekrar teşekkürler

 

[Ömer BARAN]

Sıralama kriteri nedir?
B sütununda isimler, C'de sefer sayıları, D'de fiyatlar E'de ise tutarlar var.
Hangi sütuna göre sıralanacak, artan/azalan hangi yönde sıralanacak?

 

[bunyaming]

Sıralama kriteri nedir?
B sütununda isimler, C'de sefer sayıları, D'de fiyatlar E'de ise tutarlar var.
Hangi sütuna göre sıralanacak, artan/azalan hangi yönde sıralanacak?

hocam 3 seçenek yapacağım
seçenekler c,d,e başlığı olacak
büyükten küçüğe sıralanacak
b sütununda ki verilerde bu seçeneğe göre güncellenecek (tabi diğerleride)

teşekkürler

 

[Ömer BARAN]

Ekteki belgeye bir bakıp, denemeler yapın bakalım.
Sıralama kriterini listeleme sonrasında da değiştirebilirsiniz.
Hesaplamalar G1'deki seçim değiştiğinde yapılıyor.

 

[bunyaming]

Ekteki belgeye bir bakıp, denemeler yapın bakalım.
Sıralama kriterini listeleme sonrasında da değiştirebilirsiniz.
Hesaplamalar G1'deki seçim değiştiğinde yapılıyor.

hocam mükemmel çalışıyor emeğinize sağlık
sizden son bir ekleme rica etsem son bir sıralama eki, kızmayın lütfen
f1 hücresine fark başlığı tanımlasak
rakam d hücresi-e hücresi işleminin sonucunu gösterse bunu da yine büyükten küçüğe kritere göre sıralasak çokmu şey istemiş olurum sizden
bu saate kadar uğraştınız hakkınızı Helal edin

sonsuz teşekkürler

 

[Ömer BARAN]

-- D sütununda, FİYAT sayfasındaki tek fiyat değil de bulunan fiyat x sefer sayısı hesaplanacaksa ilgili kod satırında aşağıdaki kırmızı kısmı ekleyin.

With Sheets("BİLGİ").Range("D2 : D" & bilgison)
.Formula = "=C2*VLOOKUP($Y$1,FİYAT!$A$3:$B$" & fiyatson & ",2)"
.Value = .Value
End With

-- F1'e bir başlık yazın ve FORMÜLLER menüsündeki AD TANIMLAMA kısmını açıp kriter ismini verdiğim AD TANIMLAMAsına ait formülü =BİLGİ!$C$1:$F$1 olarak değiştirin.
Böylece G1'deki listede eklediğiniz başlık da görünür. Makroda da, aşağıdaki kırmızı satırın üstüne mavi olanları ekleyin.

With Sheets("BİLGİ").Range("F2:F" & bilgison)
.Formula = "=D2-E2" : .Value = .Value
End With

kritersut = WorksheetFunction.Match([G1], [A1:F1], 0)

 

[bunyaming]

-- D sütununda, FİYAT sayfasındaki tek fiyat değil de bulunan fiyat x sefer sayısı hesaplanacaksa ilgili kod satırında aşağıdaki kırmızı kısmı ekleyin.

-- F1'e bir başlık yazın ve FORMÜLLER menüsündeki AD TANIMLAMA kısmını açıp kriter ismini verdiğim AD TANIMLAMAsına ait formülü =BİLGİ!$C$1:$F$1 olarak değiştirin.
Böylece G1'deki listede eklediğiniz başlık da görünür. Makroda da, aşağıdaki kırmızı satırın üstüne mavi olanları ekleyin.

hocam çok teşekkürler çalıştı yalnız tek problem kaldı
örneğin mardin filtrelediğimde
listelenen 3 tedarikçi var ama farkda dolu olarak 5 hücre gösteriyor
son halini ekliyorum yine

teşekkürler

 

[Ömer BARAN]

Önce, sayfayı yenileyerek bir önceki cevabımı tekrar kontrol edin.
Yaptığım ekleme/değişikliği görmemiş olabilirsiniz.

Combobox_Change kod blokunun sonuna eklenen satırdaki kırmızı kısmı değiştirin.
Range("C2:F" & Rows.Count).ClearContents

İyi sabahlar.
.

 

[bunyaming]

Önce, sayfayı yenileyerek bir önceki cevabımı tekrar kontrol edin.
Yaptığım ekleme/değişikliği görmemiş olabilirsiniz.

Combobox_Change kod blokunun sonuna eklenen satırdaki kırmızı kısmı değiştirin.
Range("C2:F" & Rows.Count).ClearContents

İyi sabahlar.
.

tamamdır Hocam kusursuz çalışıyor

elinize, emeğinize sağlık

çok teşekkürler

iyi pazarlar