sağındaki hücrede x olan hücreleli nasıl toplarız

[balıkcı]

:? A sutunundaki sayıları, sağındaki hücrede x varsa c1 hücresine topla.
Makro ile bu formülü yazmama yardımcı olacak arkadaşlara simdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş modüle ekleyin ve çalıştırın.

Sub TOPLA()
[C1] = ""
For i = 1 To 65536
If Cells(i, 2).Value = "x" Then
A = Cells(i, 1)
[C1] = [C1] + A
End If
Next
End Sub

 

[balıkcı]

Teşekkürler.

 

[Seyit Tiken]

Makrosuz Alternatif. Ekteki Dosyayı İnceleyiniz.

 

[balıkcı]

Makrosuz Alternatif. Ekteki Dosyayı İnceleyiniz.

Teşekkür ederim sn Seyit Tiken.

 

[medfad]

Merhaba;
Uzun zamandır arama sonuçları inceliyorum tam istediğim bir sonuç buldum anacak burda da ekli dosya yok. makrosuz çözümü yazabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyada fonksiyonlar ile iki farklı çözüm öneriyorum istediğinizi kullanabilirsiniz.

 

[mehmett]

Toplanacak değerler A1:A100 aralığında, X'ler B1:B100 aralığında ise aşağıdaki fonksiyonu kullanın;

=TOPLA.ÇARPIM((A1:A100)*(B1:B100="X"))

 

[medfad]

Merhaba
gelen cevaplar işimi görmedi ölcüt hücresindeki ölçüt olarak alacağım karakter sabit değil. Örnek gerekirse hücrede 200 EU veya 200 01 EU farklı olabiliyor değeri var. benim istediğim hücre içerisinde EU varsa(eu karekteri geçiyorsa) toplama yapsın istemiştim.teşekkür eder iyi çalışmalar dilerim.

 

[Recep İpek]

Ekteki örnek size bu konuda fikir verebilir.

 

[medfad]

merhaba
ripek teşekkür ederim. örnek dediğiniz gibi bir fikir verdi.