Yukarıdaki verileri sıra ile yatay yazdırma

[kaşif1453]

Değerli üstadlarım,

aşağıdaki dosyada bulunan yeşil hücrelerdeki verileri aşağıda sarı hücrede gösterildiği gibi formülle yazdırmak istiyorum.
yukarıdaki rakamların yerleri değişebiliyor, ama dikey numaralandırma aynı. yardımlarınızı beklerim.

 

[suleyman242]

aşağıdaki dosyada bulunan yeşil hücrelerdeki verileri aşağıda sarı hücrede gösterildiği gibi formülle yazdırmak istiyorum.
yukarıdaki rakamların yerleri değişebiliyor, ama dikey numaralandırma aynı. yardımlarınızı beklerim.

Dosyadaki verilerden anladığım kadarıyla, bir çalışma dosyası hazırladım; umarım işinize yarar.

 

[kaşif1453]

Süleyman Bey, ilginiz için teşekkür ederim.

çalışmanız güzel olmuş, fakat ihtiyacımı tam olarak anlatamamışım sanırım.

sarı renkli satıra hücreleri yatay olarak yazdıracak, fakat yatay olarak eklene hücreler arasında sütun boşluğu olduğunda bir sonraki dolu sütuna kadar sıfır değeri yazmalı.

 

[suleyman242]

Süleyman Bey, ilginiz için teşekkür ederim.
çalışmanız güzel olmuş, fakat ihtiyacımı tam olarak anlatamamışım sanırım.
sarı renkli satıra hücreleri yatay olarak yazdıracak, fakat yatay olarak eklene hücreler arasında sütun boşluğu olduğunda bir sonraki dolu sütuna kadar sıfır değeri yazmalı.

sarı satırı silipdosyanızıdenedinizmi zaten dediğiniz gibi yapıyor rakamları yerleştiriyor boş olanlarada sıfır veriyor ben yeniden yolladığım dosyayı açıp sarı satırı siliyorum ve makroyu çalıştırınca önce 5 leri sıralıyor sonra ikinci sutunda ilk 4 olunca 4 leri sıralıyor aynı sutunda en son 6 var onuda sıralıyor,
her sutunuböyle böyle kontrol ederek sarı satıra aktarıyor
makro içerisine duraklama veya mesaj eklerseniz her sayıda yaptığı işlemi göre bilirsin
şayet yinede yanlışım varsa başka bir örnek dosya yollayın hatamı buluyum.

 

[suleyman242]

Call temizz
[COLOR="Red"][B]Range("A10:AI10").ClearContents[/B][/COLOR]

Call temizz satırının altına;
kırmızı ile verdiğim kodu ekleyiniz
sarı satırı temizlemeden çalıştırırsan yanlış sonuç veriyor.

 

[kaşif1453]

Süleyman Bey teşekkür ederim, eline sağlık, son gönderdiğiniz kodu call temizin altına ekledim ve oldu.
Acaba bu işlemi formülle de yapabilir miyiz, makro konularına çok hakim değilim, duraklama veya mesaj eklemeye korkarım yani. bir de formülsel açıklama yaparsanız, tadından yenmez vallahi.

 

[suleyman242]

Süleyman Bey teşekkür ederim, eline sağlık, son gönderdiğiniz kodu call temizin altına ekledim ve oldu.

Bende teşekkür ederim Aslında makro doğru sadece sarı satır temizlenmediği için kontrol o satırdan sağlandığından eski değerleride hesaba katıyordu.

Acaba bu işlemi formülle de yapabilir miyiz,

Formül konusuna bende fazla hakim değilim.

bir de formülsel açıklama yaparsanız, tadından yenmez vallahi.

yapılan işlem; iç içe döngü ve karşılaştırma,şöyleki;
ilk sutunda yukardan aşağı ilk değeri bulup onun sayısınca alt satıra yazıyorum bu arada bulduğum değerleri temizliyor yani 5 ler siliniyor
1. satırda başka eleman kalmadı ise 2. satıra geçip ilk dolu hücre değerini sarı satırda kaldığı yerden yazmaya devam ediyor yani 4 ler ve 4 leri siliyor
do while döngüsü ile bu sutunu tekrar kontrol ediyor 6 lar olduğu için bu defa 6 ları alt satıra sıralayıp yeşil zeminden siliyor.......
galiba 19 veya 20. döngüde taşıyacak veri olmayınca sarı hücrelerde boş olunca boş hücrelere 0 değerini veriyor dosyada 35 sutunluk veri olduğu için her sutun bitiminde kontrolleri gerçekleştiriyor; benim bu dosyaya yaptırdığım işlem bu ;
ilk başta senin tüm verilerini alt tarafa yedekliyorum ki işlem sırasında silinen değerleri en son geri yerine koymak için bu anlattıklarımı bu mesaj ekinde yolladığım dosyada göreceksin. Kolay gelsin.

 

[kaşif1453]

Süleyman Bey,

Konuyu net olarak anladım, zaman ayırdınız teşekkür ederim.

Fakat şöyle bir problemimiz var, yukarıda yeşil alanda bulunan değerler formül ile gelmekte, formül ile sağa sola kaymaktalar, bu şekilde olunca uyarlayamadım..

 

[suleyman242]

Süleyman Bey,
Konuyu net olarak anladım, zaman ayırdınız teşekkür ederim.
Fakat şöyle bir problemimiz var, yukarıda yeşil alanda bulunan değerler formül ile gelmekte, formül ile sağa sola kaymaktalar, bu şekilde olunca uyarlayamadım..

Ben buraya gönderdiğin dosyaya göre yapmıştım. tabi o veriler förmülle veya elle gelebilir
Dosya eklersen çözmeye çalışırım; şayet çözemessemde elbet bir çözen çıkar.
Yada bu sayfayı başka bir sayfa yap förmülle gelen değerleri buraya kopyala....
ne biliyim çok çözüm var gibi geliyor bana.

 

[suleyman242]

Hücrelerde mesela formül var o formülleriböyle uyarla

Eğer((formül)=0;""(formül))