Soru Eğersay formülünün makro ifadesi

[dengeceteris]

Sevgili Uzman arkadaşlarım bir dosya yüklemedim basitçe burada ifade edebilirim diye..:

B2 hücresinden aşağıya doğru uzanan stok kayıtlarımda (5-10 bin satır aralığında) Excelde A2 hücresine aşağıdaki formülü uyguluyorum ve bunu yaklaşık 10 bin satıra kadar kopyalıyorum. Aynı şeyi makro ile ifade etmek istesem nasıl yapabilirim.

=EĞERSAY($B$2:B2;B2)&B2

 

[Korhan Ayhan]

Makro kaydet yöntemini kullanabilirsiniz.

 

[dengeceteris]

Korhan hocam Makro kaydet de amacım formüllerin yapıştırılmasını otomatik hale getirmekten ziyade tamamen makro ile nasıl ifade edebilirim diye düşünmüştüm. Bunu istememin sebebi ise birden fazla sayfam var. Bu da dosyamı biraz kasıyor. Tşk ederim ilginiz için

 

[Korhan Ayhan]

Bir yönlendirme daha tavsiye edeyim.

WorksheetFunction.Countif kullanımını araştırınız

 

[dengeceteris]

Korhan hocam kendim yazmaya çalıştım araştırdım ama aşağıdaki kadar yazabildim sonrası fiyasko.. değişik varyasyonlar deniyorum ama bir türlü olmadı. Bende ki bilgiyle bu kadar oluyor.

For x = 2 To son
If Cells(x, 2) <> "" Then
s1.Cells(x, 1) = WorksheetFunction.CountIf.s1.Cells(x, 2), s1.Range("B2")
Next

 

[Suskun]

Kodlarınızı aşağıdaki kodlarla değiştirin

For x = 2 To Son
If Cells(x, 2) <> "" Then
  s1.Cells(x, 1) = WorksheetFunction.CountIf(s1.Range(s1.Cells(2, 2),s1. Cells(x, 2)), s1.Cells(x, 2)) & s1.Cells(x, 2)
  ' Yada Aşağıdaki şekilde
  's1.Range("A" & x) = WorksheetFunction.CountIf(s1.Range("B2:B" & x), s1.Range("B" & x)) & s1.Range("B" & x)
 End If
Next

 

[dengeceteris]

Sevgili Hocam çok tşk ederim kodlarınız işimi gördü. Korhan hocam balık tutmayı öğren dedi ama yine de sistemi öğrenmiş oldum

 

[Suskun]

Rica ederim. Kolay gelsin.