Sayaç konusunda yardım

[lwnti]

Merhaba,

Bir konuda yardıma ihtiyacım var. sheet1'deki verilerin içinden aynı satıda bulunan c2+d2 hücre değeri (galatasaray+hagi gibi veya fenerbahçe+aykut) , sheet2'deki büyük bir arşiv datası içinde aynı satırda birlikte kaç defa geçiyor? Yani bir sayaç eklemek istiyorum. Bunun sonucunu sheet1'deki her satırın sonunda (k sütunu mesela) göstersin istiyorum. Hiç yoksa "0" olarak göstersin. Macro olarak nasıl yazılabilir?

Şimdiden çok teşekkür ediyorum.

 

[Ergün Güler]

Merhaba,

Bir konuda yardıma ihtiyacım var. sheet1'deki verilerin içinden aynı satıda bulunan c2+d2 hücre değeri (galatasaray+hagi gibi veya fenerbahçe+aykut) , sheet2'deki büyük bir arşiv datası içinde aynı satırda birlikte kaç defa geçiyor? Yani bir sayaç eklemek istiyorum. Bunun sonucunu sheet1'deki her satırın sonunda (k sütunu mesela) göstersin istiyorum. Hiç yoksa "0" olarak göstersin. Macro olarak nasıl yazılabilir?

Şimdiden çok teşekkür ediyorum.

Selam,
Ben de benzer çalışmalar yapıyorum. kastettiğiniz "sheet2'deki büyük bir arşiv datası içinde" neler var? Sayfa2'deki verilerin dizilişi Sütun mu ? satır mı? yoksa tablo mu? ve yine bir hücre içinde veriler birleşik mi? yoksa ayrı ayrı mı? Örnek dosya gönderirseniz yardımcı olabiliriz?
İyi çalışmalar.

 

[lwnti]

Dosya hesaplar arası para transferi bilgileri var. Borçlu bir hesap ve alıcı mevcut. Datada bir hesabın değişik alıcılara para transferi var. Yapmak istediğim ise bir hesaptan daha önce o alıcıya kaç defa para transferi yapıldığını saymak. Data biraz büyük, yaklaşık 300bin kayıt. Örnek dosya da ekledim.

 

[İhsan Tank]

Dosya hesaplar arası para transferi bilgileri var. Borçlu bir hesap ve alıcı mevcut. Datada bir hesabın değişik alıcılara para transferi var. Yapmak istediğim ise bir hesaptan daha önce o alıcıya kaç defa para transferi yapıldığını saymak. Data biraz büyük, yaklaşık 300bin kayıt. Örnek dosya da ekledim.

merhaba
veri sayfasının G2 hücresine

=EĞER(YADA($C2="";$F2="");"";TOPLA.ÇARPIM((arşiv!$C$2:$C$300000=$C2)*
(arşiv!$F$2:$F$300000=$F2)))

bu formülü yazıp aşağıya doğru çeker misiniz

 

[lwnti]

Çok teşekkür ederim İhsan Bey. Bu örnekte formülle çalışmak mı daha hızlı sonuç verir yoksa macro ile çalışmak mı? Yani 300bin kayıt arasında kontrol yapılacak çünkü.

 

[İhsan Tank]

Çok teşekkür ederim İhsan Bey. Bu örnekte formülle çalışmak mı daha hızlı sonuç verir yoksa macro ile çalışmak mı? Yani 300bin kayıt arasında kontrol yapılacak çünkü.

doğru seçim makrodur. formül çift sayım yaptığı için kasacaktır.
alternatif olarak formül kullanabilirsiniz.

 

[lwnti]

Merhaba İhsan Bey,

Bu formülü http://www.excel.web.tr/f157/topla-carpym-formulu-ve-bunu-makroya-cevirmek-resimli-t85538.html linkindeki irfancantr nickli arkadaşın dosyası ile macroya çevirmeye çalıştım ama bir yerde hata yapıyorum sanırım, macroyu çalıştırmayı beceremedim. Bu yazdığınız formülün macro kodunu yazabilir misiniz?

 

[Mahir64]

Merhaba İhsan Bey,

Bu formülü http://www.excel.web.tr/f157/topla-carpym-formulu-ve-bunu-makroya-cevirmek-resimli-t85538.html linkindeki irfancantr nickli arkadaşın dosyası ile macroya çevirmeye çalıştım ama bir yerde hata yapıyorum sanırım, macroyu çalıştırmayı beceremedim. Bu yazdığınız formülün macro kodunu yazabilir misiniz?

MErhaba
Bunu denermisiniz

Sub Hesapla()
Application.ScreenUpdating = False
Range("G2:G25").Select
Selection.ClearContents
For i = 2 To 25
Cells(i, 7).Select
ActiveCell.FormulaR1C1 = _
"=IF(OR(RC3="""",RC6=""""),"""",SUMPRODUCT((arşiv!R2C3:R300000C3=RC3)*(arşiv!R2C6:R300000C6=RC6)))"
Next i
Range("G2:G25").Value = Range("G2:G25").Value
Application.ScreenUpdating = True
End Sub

 

[lwnti]

Çok teşekkür ederim sayın Black Lord, sonuç mükemmel. İhsan Bey'e de ayrıca teşekkürler.

 

[Mahir64]

Çok teşekkür ederim sayın Black Lord, sonuç mükemmel. İhsan Bey'e de ayrıca teşekkürler.

Ben sadece kodları sizin dosyanıza uyarladım
Kolay gelsin
İyi çalışmalar :hey:

 

[lwnti]

Merhaba,

Kod ile ilgili şöyle küçük bir sorun çıktı. 1.ci sheet'e bir dosyadan aldığım veriyi copy-paste ile girip macro'yu çalıştırdığımda hesaplama hücresine koddaki =if(or... formülünü yazıyor, paste special-value ile veriyi eklediğimde macro sorunsuz çalışıyor. Bu nasıl düzeltebilir?

 

[Mahir64]

Merhaba,

Kod ile ilgili şöyle küçük bir sorun çıktı. 1.ci sheet'e bir dosyadan aldığım veriyi copy-paste ile girip macro'yu çalıştırdığımda hesaplama hücresine koddaki =if(or... formülünü yazıyor, paste special-value ile veriyi eklediğimde macro sorunsuz çalışıyor. Bu nasıl düzeltebilir?

Merhaba
Sorunuzdan ben bir şey anlayamadım!

 

[lwnti]

Dosyada 2 sayfa var. 2.ci sayfa (arşiv) sabit veriden oluşuyor. Ben sadece 1.ci sayfaya veri giriyorum yani kıyaslamak istediğim bilgileri ekliyorum. Ekleyeceğim veriyi başka bir excel tablosundan copy yaparak alıyorum ve 1.ci sayfaya past ile ekliyorum, böyle yapınca sorun çıkarıyor ve macro çalışmıyor(hesaplama yapmıyor ve G hücresinde hesap sonucu yerine kodun içinde yazılı olan formülü gösteriyor). Veriyi Past special-value seçeneğiyle eklediğimde ise macro düzgün çalışıyor. Sorun rakamların uyumsuzluğundan kaynaklanıyor olabilir mi? Yani koddaki formül, 1.ci sayfaya paste kullanarak eklediğim rakamları metin olarak gördüğü için olabilir mi?