Makroyla şartlı sayma

[salih31]

sayfa1'de A,B,C,D,E sütunlarını tarafayarak
A1=makina B1=kirada C1=parkta D1: İstanbul olmdugunda 1 say bu işlemi aşagı dogru tarayıp toplam adedii sayfa2'de A1 hücresine yazmak istiyorum yardımcı olursanız sevinirim saygılar.

 

[Ömer BARAN]

Merhaba.

Bunun için makro yerine aşağıdaki formülü kullanabilirsiniz.
Verilerin 1 - 1000 satır aralığında yer aldığı düşünülürse aşağıdaki gibi sonuç almanız gerekir.

Sorun yaşarsanız, gerçek belgenizle aynı yapıda bir örnek belge ekleyin.
.

=[COLOR="Red"]TOPLA.ÇARPIM[/COLOR](([COLOR="darkorange"]Sayfa1![/COLOR]$[B][COLOR="blue"]A[/COLOR][/B]$1:$[B][COLOR="blue"]A[/COLOR][/B]$1000="[B]makina[/B]")*([COLOR="darkorange"]Sayfa1![/COLOR]$[COLOR="blue"][B]B[/B][/COLOR]$1:$[COLOR="blue"][B]B[/B][/COLOR]$1000="[B]kirada[/B]")*([COLOR="darkorange"]Sayfa1![/COLOR]$[COLOR="blue"][B]C[/B][/COLOR]$1:$[B][COLOR="blue"]C[/COLOR][/B]$1000="[B]parkta[/B]")*([COLOR="DarkOrange"]Sayfa1![/COLOR]$[B][COLOR="blue"]D[/COLOR][/B]$1:$[B][COLOR="Blue"]D[/COLOR][/B]$1000="[B]İstanbul[/B]"))

 

[salih31]

teşekkürle,r yalnız bu işlemi makroda yaptırmak istiyorum onu nasıl yapabiliriz??

 

[Ömer BARAN]

Merhaba.

Basitçe; Sayfa2 A1 hücresine, sayım sonucu aşağıdaki şekilde yazdırılabilir.
İsterseniz A:A, B:B .... gibi de kullanabilirsiniz ama hesaplama alanını aşağıdaki gibi (1-1000'inci satır aralığı) sınırlandırmanızı öneririm.
.

[B]Sub SAYIM()[/B]
Sheets("Sayfa2").[A1] = Evaluate("=SUMPRODUCT((Sayfa1!A[B][COLOR="Blue"]1[/COLOR][/B]:A[B][COLOR="blue"]1000[/COLOR][/B]=""makina"")*(Sayfa1!B[B][COLOR="blue"]1[/COLOR][/B]:B[COLOR="blue"][B]1000[/B][/COLOR]=""kirada"")*(Sayfa1!C[B][COLOR="blue"]1[/COLOR][/B]:C[B][COLOR="blue"]1000[/COLOR][/B]=""parkta"")*(Sayfa1!D[B][COLOR="blue"]1[/COLOR][/B]:D[B][COLOR="blue"]1000[/COLOR][/B]=""İstanbul""))")
[B]End Sub[/B]

 

[salih31]

teşekkürler. birde masa üstünde veri adlı kapalı excel dosyasının içinde ki sayfa1'den açık olan excel dosyamın sayfa1'ine tüm verileri nasıl çekerim.