eğer ve birleştir fonksiyonu içeren makro yapma

[ilhanfire]

Herkese merhabalar, bir analiz dosyası hazırlıyorum ve bu analiz dosyası için 1695 adet if i iç içe yazmam gerekiyor. sizinde tahmin edeceğiniz üzere bu kadar if iç içe yazılamıyor. bu problemimi makro ile çözebileceğimize inanıyorum.

Örneğin;
Eğer B2 sıfırdan büyükse B1 i al birleştir de sorguya devam et,sıfırdan küçükse geç,
C2 sıfırdan büyükse C1 i al birleştir de sorguya devam et, sıfırdan küçükse geç,
D2..... devam ederek en son,
BMF2 sıfırdan büyükse BMF1 i al birleştir de sorguya devam et, sıfırdan küçükse geç,
şeklinde bir döngü kodu yazılarak B2 ile BMF2 arasındaki hücrelerde veri var ise hep 1. hücrelerdeki değerleri toplayarak 1. hücredeki değerleri birleştirerek BMF sütunundaki işlem sütununa veriyi yazacak,

Sonrasında B3 den başlanarak aynı işlem BMF3 e kadar devam ederek, 3. satır için toplanan 1. hücredeki değerleri BMF sütunundaki işlem sütununa yazacak,

bu işlem B14863 e kadar devam edecek ve 14863. satır için işlem tamamlanıp ve son veri BMF14863 yazılınca makro bitecek.

dosyanın boyutu büyük olduğu için ilk 1000 satırı gönderdim ama kod belirttiğim gibi 14863 e kadar devam edecek.

Dosyam ektedir. Yardımcı olursanız çok sevinirim. Ben yapamadım ama yapılamayacak birşey değil, ilginizi bekliyorum.

 

[ilhanfire]

merhaba arkadaşlar bu konuda bana yardımcı olurmusunuz

 

[mancubus]

önce siz yardımcı olmak isteyenlere yardımcı olmalı ve meramınızı iyi anlatmalısınız.

ifadeden bir şey anlaşılmıyor: al, birleştir, topla, döngüye devam et. ne neile birleşti,rilecek, hangi rakam hangi rakam ile toplanacak.

dosyaya bakayım dedim. dosya bir satır, 1 sütun var, kalan bomboş.

buraya gerçek durumu gösteren dosya yüklenmesi lazım.

hatta 2 sayfa olmalı. mevcut durum bu, sayfa 1'de; kodlar çalıştıktan sonra bu şekilde olsun, sayfa 2'de...

kurallar açık olmalı.

tabii belki de ben anlayamıyorumdur. bu takdirde, çözen birisi yardımcı olabilir.