eğer ve mak komutunun beraber VBA da kullunamı

Katılım
3 Mart 2022
Mesajlar
17
Excel Vers. ve Dili
Office 2016 64 bit (Excel 2016)
Hocalarım yardımınıza ihtiyacım var yardımcı olurasınız sevinirim

=MAK(EĞER($C$2:$C$24=F2;$D$2:$D$24))

bu formülü (vba) makro içerisinde kullanmak ve çıkan sonucu e2 hücresine yazırmak istiyorum

karşılaştırma için tüm verilerin bulunduğu (c2-c500)
eşitlenecek aralık (F2-f100)
Tarih aralığı (d2-d500)
Excele yukarıdaki formülü yazınca yapıyor fakat makro içerisine koyunca if de hata gösteriyor
nasıl bunu vba koduna uyarlayabilirim yarımcı olabilirmisiniz
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Yukarıda yazdığınız fonksiyonu makro kaydet ile kodlara ulaşabilirsiniz, denediniz mi?
 
Katılım
3 Mart 2022
Mesajlar
17
Excel Vers. ve Dili
Office 2016 64 bit (Excel 2016)
Merhaba,

Yukarıda yazdığınız fonksiyonu makro kaydet ile kodlara ulaşabilirsiniz, denediniz mi?
İlginiz için Teşekkür ederim Hocam

Evet denedim
Selection.FormulaArray = "=MAX(IF(R2C3:R24C3=RC[1],R2C4:R24C4))"
bu şekilde oluyor lakin ben formülü hücreye değilde sadece formül sonuçlarını göndermek istiyorum
bunu bir değere eşitleyip
worksheetfunction ile düzenlemek istediğimde İF hatalı gösteriyor
düzenleyemiyorum

yardımcı olursanız çok sevinir minnettar olurum
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Kod:
Public Sub Test()
Range("E2") = Evaluate("=MAX(IF(C2:C24=F2,D2:D24))")
End Sub
 

Suddedly

Altın Üye
Katılım
7 Ekim 2010
Mesajlar
210
Excel Vers. ve Dili
Excel 365
Excel 2019
Altın Üyelik Bitiş Tarihi
02-03-2028
Ali bey merhabalar. bibib19 bey merhabalar. Konuyla alakalı olduğu için boş yere farklı bir konu açmak istemedim. Çok kısa bir şey sormak istiyorum. Bu kodu bütün bir sütuna uygulamak istersek nasıl yazmamız gerekiyor. Yani örneğin a, b, c sütunlarında en, boy, adet var. Ben d sütununa m2 yi hesaplamasını nasıl yaptırabiliriz. çok teşekkür ederim şimdiden.


Kod:
Public Sub Test()
Range("E2") = Evaluate("=MAX(IF(C2:C24=F2,D2:D24))")
End Sub
 
Katılım
3 Mart 2022
Mesajlar
17
Excel Vers. ve Dili
Office 2016 64 bit (Excel 2016)
Ali bey merhabalar. bibib19 bey merhabalar. Konuyla alakalı olduğu için boş yere farklı bir konu açmak istemedim. Çok kısa bir şey sormak istiyorum. Bu kodu bütün bir sütuna uygulamak istersek nasıl yazmamız gerekiyor. Yani örneğin a, b, c sütunlarında en, boy, adet var. Ben d sütununa m2 yi hesaplamasını nasıl yaptırabiliriz. çok teşekkür ederim şimdiden.
Merhabalar hocam bu kod F kolonunda bulunan değerleri c kolundaki değerle kontrol ettirip eşit olan değerin d kolonunda ki son tarihi bulmak için yazılmış bir kod hesaplama yapmıyor ama Evaluate kodu ile hesaplamayı makroda yaptırıp hücreye değeri yadırgıyorum

Ayrıca C:C olarak (c kolunun tamamını) almış olursunuz

Yazdımcı olan tüm hocalarıma ayrıca teşekkür ediyorum
 
Üst