Formüllerin makroya çevrilmesi.

[Bora K]

Merhabalar aşağıdaki formülleri makroya çevirmek istiyorum. 100. satıra kadar çalışacak.
Eğer makro kaydet yönteminde nasıl yapılabilir anlatılırsa ayrıca makbule geçer.
Konu ile ilgilenecek arkadaşlara teşekkür ederim.

=EĞER(VE(A1<>"";B1=1;YADA(C1>D1));1) mavi renk
=EĞER(VE(A1<>"";B1=1;YADA(C1<D1));1) kırmızı renk
e:e100 de çalışacak
=EĞER(VE(G1<>"";H1="yeni";YADA(I1=J1));1) mavi renk
=EĞER(VE(G1<>"";H1="yeni";YADA(I1<>J1));1) kırmızı renk
k:k100 de çalışacak.

 

[Necdet]

Merhaba,

Formülleri bir kenara bırakın tam olarak ne yapmak istiyorsunuz sözle anlatın ki, konu daha iyi anlaşılsın.

 

[Bora K]

Merhaba Necdet Hocam.
Ekli dosyada görüleceği üzere E1 ve K1 hücrelerinde koşullu biçimlendirme yaptım.
Bu koşullu biçimlendirmenin makro kodu ile yapılmasını istiyorum.
Yapılan kodu bu formüllerle kıyaslayacağım. Mantığını kavramaya çalışacağım.

Ayrıca bu tip bir kod; makro kaydet yöntemi ile yapılabiliyor ise,
nasıl yapıldığını da öğrenmek istiyorum. Makro kaydet ile ilgili bilgi çok kısıtlı maalesef yada
ben ulaşamıyorum. Makro kaydeti ben ancak; kopyala yapıştır, kalın yap, rengini değiştir vs
excelin sabitleri ile kullanıyorum. Mesela A1 hücresi B1 hücresine eşitse C1 hücresi Kırmızı olsun
nasıl yapılır bilmiyorum. Burada "=" i tanıtamıyorum. Velhasıl kelam birşeyler öğrenmek niyetindeyim.
Saygılarımla.

 

[Bora K]

İyi gecelere arkadaşlar.
kendi halimde denemeler yapıyorum lakin olumsuz sonuçlanıyor çabalarım.
Aşağıdaki kodlar ile seçtiğim hücre "yanlış" yazıyor ve renkleniyor.
1. mesajımdaki yardım isteğim hala günceldir.

ActiveCell.FormulaR1C1 = "=IF(AND(RC[-4]<>"""",RC[-3]=1,OR(RC[-2]>RC[-1])),1)"
Selection.Font.ColorIndex = 5
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-4]<>"""",RC[-3]=1,OR(RC[-2]<RC[-1])),1)"
Selection.Font.ColorIndex = 3

 

[Necdet]

Merhaba,

Ben uygulamalarımda Koşullu Biçimlendirmeyi makroyla yapmayı hiç düşünmedim, gerek te duymadım.

Bence kendinize zor bir konu seçmişsiniz.

 

[Bora K]

Merhaba Hocam.

Haklısınız hemde ziyadesiyle haklısınız da gelin görün ki serde takıntı oluştu.
Hoş birilerinden yardım almadıktan sonra takıntı olsa neye yarar...
Amacım zaten bu formüllerin makro halini görüp o doğrultuda başka makrolar
yazabilmek. Beklemey devam deceğim biraz daha ümid edilim ki yardım
edecek arkadaşlar topigi görsünler. İyi geceler dilerim. Saygıyla.