formülerin makro karşılığı

[şehiriçi]

Mükemmel düzeldi Korhan bey , teşekkürler ...

 

[şehiriçi]

EĞERHATA (EĞER (SATIRSAY (DOLAYLI ("aa" & ARA (2; 1 / ($ AL $ 2: $ AL3 = DOĞRU); SATIR ($ AL $ 2: $ AL3)) & ": aa" & SATIR ())) <= 10; MAK ($ AM $ 2: $ AM2) +1; 0); 0)
Korhan hocam yine verdiğiniz AM sütunundaki bu yukarı da ki formülü de makro ya dönüştür dük mü kalan kod'ları ben tamamlayacağımı umuyorum. (bana göre en zoru bu)
projemin devamı için desteğinizi devam ettireceğiniz umuduyla ,iyi ki varsın EXCEL WEB TR

 

[şehiriçi]

EĞERHATA (EĞER (SATIRSAY (DOLAYLI ("aa" & ARA (2; 1 / ($ AL $ 2: $ AL3 = DOĞRU); SATIR ($ AL $ 2: $ AL3)) & ": aa" & SATIR () )) <= 10; MAK ($ AM $ 2: $ AM2) +1; 0); 0)
Korhan hocam yine verdiğiniz AM sütunundaki bu yukarı da ki formülü de makro ya dönüşümü kalan kodları ben tamamlayacağımı umuyorum. (bana göre en zoru bu)
projemin devamı için desteğinizi devam ettireceğiniz umuduyla, iyi ki varsın EXCEL WEB TR

 

[şehiriçi]

EĞERHATA (EĞER (SATIRSAY (DOLAYLI ("aa" & ARA (2; 1 / ($ AL $ 2: $ AL3 = DOĞRU); SATIR ($ AL $ 2: $ AL3)) & ": aa" & SATIR () )) <= 10; MAK ($ AM $ 2: $ AM2) +1; 0); 0)
arkadaşlar bu formulün makro karşılığı lazım bana

 

[Korhan Ayhan]

Deneyiniz.

With Range("AM3:AM" & Cells(Rows.Count, 1).End(3).Row)
    .Formula = "=IFERROR(IF(ROWS(INDIRECT(""AA""&LOOKUP(2,1/($AL$2:$AL3=TRUE),ROW($AL$2:$AL3))&"":AA""&ROW()))<=10,MAX($AM$2:$AM2)+1,0),0)"
    .Calculate
    .Value = .Value
End With

 

[şehiriçi]

Korhan bey , hem kendi adıma hem de kooperatifim adına çok ama çok teşekkürler .
Benim gibi makrolar da oldukça yeni biri için bu proje başlangıç olacak ,sitenizi biraz daha fazla takip etmeye gayret edeceğim .
Bu projede , beni zorlayan yukarıdaki son iki formülün , verdiğiniz kodlar sayesinde büyük bir yol aldım .
Projeyi bitirmek için kalan kodları ben dosyama ilave etmeye devam edeceğim . Bittiğinde inşallah burada paylaşacağım .
sizin dediğiniz gibi hep hazırcı olmayayım birazda ben kafa yorarak devam edeyim.
Ama olur da tıkanırsam "iyi ki varsın excel web tr"

 

[Korhan Ayhan]

Kolay gelsin..

 

[şehiriçi]

Yaklaşık 1 haftalık bir aradan sonra tekrar Merhaba;
Projemde epey yol aldım , fakat dosyayı inceleyince sizde göreceksiniz , oluşturmam gereken bloklar beni çok zorluyor.
durak adlı dosyamda AK sütununa 3 tane renklendirilmiş bloklar ekledim , kod çalıştığında sadece blok_1 verilerine göre çalışıyor.
İstiyorum ki blok_2 , blok_3 ...gibi belkide 50-60 değişik blok oluşturmam gerek (bloklar şehir içi minibüslerin takip ettiği durak isimleridir)
oluşturacağım bu blokları (AL) ve (AM) sütunlarına dahil etmek
yoksa her bir blok için ayrı ayrı kod yazmak hem dosyanın boyutunu büyütüyor hem beni yoruyor (1 haftada 6 blok yapabildim)
o dosyayı da ekliyorum o dosyanın adı şehiriçi29
değiştirmek ve daha pratik bir çözüm için durak dosyasına bakınız,teşekkürler

 

[şehiriçi]

güncel