Eğersay Değişken

[tactless]

say = Application.WorksheetFunction.CountIf(Sheets("çıktı").Range("I2:I10000"), ">=30000") + 2

ifadesindeki 30000 ben değişken olarak yapmak istiyorum. Örneğin Range("A1") atamak.

Sürekli debug aldım. Yazım ifadesi nasıl olmalı?

Yardımlarınız için şimdiden tşkler.

Saygılarımla.

 

[Mustafa MUTLU]

[Sayfa1!A1] olarak denedin mi ?..

 

[İhsan Tank]

say = Application.WorksheetFunction.CountIf(Sheets("çıktı").Range("I2:I10000"), ">=30000") + 2

ifadesindeki 30000 ben değişken olarak yapmak istiyorum. Örneğin Range("A1") atamak.

Sürekli debug aldım. Yazım ifadesi nasıl olmalı?

Yardımlarınız için şimdiden tşkler.

Saygılarımla.

Merhaba

say = Application.WorksheetFunction.CountIf(Sheets("çıktı").Range("I2:I10000"),Sheets("[COLOR="Red"]çıktı[/COLOR]").Range("[COLOR="red"]A1[/COLOR]"))

Bu kod'u deneyin. Kırmızı yerleri istediğiniz ile ayarlayınız

 

[tactless]

Sanırım benim sıkıntım formülün çalışma mantığında, istediğim şöyle A1 hücresine yazdığım rakamın üstünde C:C tablo arasında kaç adet rakam var.!

Bunun hem excel hemde makro hali lazım.

Kafam formülle makro mantığı arasında karıştı

Yardımınızı rica ederim.

Saygılarımla.

 

[İhsan Tank]

Dosya ekler misiniz_?
Şunu istiyorum diye içinde açıklamalı

 

[Mahir64]

Sanırım benim sıkıntım formülün çalışma mantığında, istediğim şöyle A1 hücresine yazdığım rakamın üstünde C:C tablo arasında kaç adet rakam var.!

Bunun hem excel hemde makro hali lazım.

Kafam formülle makro mantığı arasında karıştı

Yardımınızı rica ederim.

Saygılarımla.

Merhaba,

Excel ve makro mantığı derken tam olarak neyi kastettiniz?

=EĞERSAY(C:C;A1)

 

[tactless]

Dosya ekler misiniz_?
Şunu istiyorum diye içinde açıklamalı

Üstad hem makro hemde formüllü örnek olursa sevinirim. Ama öncelikle makro tercihim

Yardımlarınız için Allah razı olsun.

Saygılarımla.

* dosyayı düzelttim. Ekte.

 

[tactless]

Merhaba,

Excel ve makro mantığı derken tam olarak neyi kastettiniz?

=EĞERSAY(C:C;A1)

Buldum

Formül:
=EĞERSAY(A2:A20;">="&O3) şeklinde yazmam gerekiyormuş.

Makro:
Application.WorksheetFunction.CountIf(Sheets("BJK").Range("A2:A20"), ">=" & Range("O3"))


Yardımlarınız için tşkler.

 

[İhsan Tank]

Üstad hem makro hemde formüllü örnek olursa sevinirim. Ama öncelikle makro tercihim

Yardımlarınız için Allah razı olsun.

Saygılarımla.

* dosyayı düzelttim. Ekte.

Merhaba
Formül için

WorksheetFunction.CountIf(Range("A:A") > Range("O1"))

Bunu kod için

Option Explicit

Sub say_61()
Dim ts, kaplan
ts = MsgBox("Sayıma Başlıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
kaplan = 0
For ts = 2 To Cells(1048576, "A").End(xlUp).Row
If Cells(ts, "A") >= Range("O3") Then
kaplan = kaplan + 1
End If
Next
Range("C2") = kaplan
Application.ScreenUpdating = True
MsgBox "Sayım Bitti", vbInformation, "Bitiş"
End Sub

bunu deneyin