Formül yöntemiyle hazırlanan bir listeyi makroya uyarlayabilir miyiz

[kelkitli]

Değerli Dostlar Merhabalar,
Formül yoluyla hazırlamış olduğum bir liste var. Yavaşlığı ve üzerinde değişim yapma sıkıntılarından dolayı makro ile bir çözüm arıyorum. Eklediğim dosyada sarı zeminli, kırmızı yazılı olan kısımlar değiştirilince çalışma sistemi anlaşılabilecektir. Ben yardımcı olacak arkadaşların daha kolay konuyu kavramaları açısından şöyle bir uygulamanın uygun olacağını tasarladım.
1. Etap: A6 Hücresine girilen ayın ilk günü A sütununa ayın son gününe kadar yazılmalı
2.Etap:3 er kişilik guruplar çalışılan durağın tatil gününe göre formülün ikinci kısmındaki uygulamayı yani
EĞER(Gunhesapla(A6;A6;2)=0;C5;EĞER(Gunhesapla(A6;A6;2)=1;D5;EĞER(Gunhesapla(A6;A6;2)=2;E5;EĞER(Gunhesapla(A6;A6;2)=3;C5;EĞER(Gunhesapla(A6;A6;2)=4;D5;EĞER(Gunhesapla(A6;A6;2)=5;E5;"")))))))
yapmalı bu işlem ayın tüm günleri 3 er kişilik guruplara bir döngü ile sıralanmalı.
3.Etap: Yeşil zeminli kısıma yazılan değiştiricilr yani formülün ilk kısmında
=EĞER(HAFTANINGÜNÜ(A6)=2;(EĞER(Gunhesapla(A6;A6;2)=0;BC7;EĞER(Gunhesapla(A6;A6;2)=1;BD7;EĞER(Gunhesapla(A6;A6;2)=2;BE7;EĞER(Gunhesapla(A6;A6;2)=3;BC7;EĞER(Gunhesapla(A6;A6;2)=4;BD7;EĞER(Gunhesapla(A6;A6;2)=5;BE7;"")))))))
şeklinde yazılan kısım oluşturulmalı.
Karışık bir işlem olduğu muhakkak ancak bu karışıklıkları benden çok daha anlayacak arkadaşların bu forumda olduğu da muhakkak.
Şimdiden başarılar şimdiden teşekkürler.

 

[kelkitli]

Eğer(A6 dan A6 ya Pazartesi 0 adet ise C6=C5 ,D6=D5 ,E6=E5
Eğer(A6 dan A6 ya Pazartesi 1 adet ise C6=D5 ,D6=E5 ,E6=C5
Eğer(A6 dan A6 ya Pazartesi 2 adet ise C6=E5 ,D6=C5 ,E6=D5
Eğer(A6 dan A6 ya Pazartesi 3 adet ise C6=C5 ,D6=D5 ,E6=E5
Eğer(A6 dan A6 ya Pazartesi 4adet ise C6=D5 ,D6=E5 ,E6=C5
Eğer(A6 dan A6 ya Pazartesi 5 adet ise C6=E5 ,D6=C5 ,E6=D5

Eğer(A6 dan A7 ya Pazartesi 0 adet ise C7=C5 ,D7=D5 ,E7=E5
Eğer(A6 dan A7 ya Pazartesi 1 adet ise C7=D5 ,D7=E5 ,E7=C5
Eğer(A6 dan A7 ya Pazartesi 2 adet ise C7=E5 ,D7=C5 ,E7=D5
Eğer(A6 dan A7 ya Pazartesi 3 adet ise C7=C5 ,D7=D5 ,E7=E5
Eğer(A6 dan A7 ya Pazartesi 4adet ise C7=D5 ,D7=E5 ,E7=C5
Eğer(A6 dan A7 ya Pazartesi 5 adet ise C7=E5 ,D7=C5 ,E7=D5

Eğer(A6 dan A8 ya Pazartesi 0 adet ise C8=C5 ,D8=D5 ,E8=E5
Eğer(A6 dan A8 ya Pazartesi 1 adet ise C8=D5 ,D8=E5 ,E8=C5
Eğer(A6 dan A8 ya Pazartesi 2 adet ise C8=E5 ,D8=C5 ,E8=D5
Eğer(A6 dan A8 ya Pazartesi 3 adet ise C8=C5 ,D8=D5 ,E8=E5
Eğer(A6 dan A8 ya Pazartesi 4adet ise C8=D5 ,D8=E5 ,E8=C5
Eğer(A6 dan A8 ya Pazartesi 5 adet ise C8=E5 ,D8=C5 ,E8=D5

Eğer(A6 dan A8 ,A9,A10, ve ayın son gününe Pazartesi
şeklinde bir döngü
bitince 2. durak
3.durak gibi
Yalnız Pazartesi gününe denk gelen C,D,E hücreleri boş kalacak

 

[kelkitli]

Değerli Dostlar, En azından konuyla ilgili önerilerinizi beklerim. Benim düşüncem bu forumda birşeyler yapıp bir eser vücuda getirerek burada biraz daha zenginlik oluşturmak bir taraftanda kendi işimimizi görebilmek. Onun için arkadaşlar "şöyle düşünsen daha iyi yada böyle çıkmaz sokak" vs. birşeyler öneriler güzel olur sanıyorum.

 

[kelkitli]

Değerli Dostlar Selamlar,
Bu başlıkta mevcut olan programı başka bir başlık altında bu forumda hazırladık.
Ancak bu başlık "Formülü koda dönüştürebilirmiyiz" diye açıldığı için ekteki dosya basit anlamda da olsa formülleri koda dönüştürüyor. İşine yarayan arkadaşlar kullansın diye. Formül olan hücreyi seçip butona tıklayın.

 

[tahsinanarat]

Formülü koda dönüştürdüğünde, copy imkanıda mümkün olabilirmi acaba, bakarak yazmaya çalışmak biraz uğraştırıyor da.