yatay verilere gore dusey siralama

[unreal_avci]

sorunu dosya icinde anlattim.
cevaplar icin tesekkur ederim.

 

[Ömer]

Merhaba,

Yatay olarak veri uzunluğu belirsiz ise listelemeyi farklı sayfa da yapmanızı tavsiye ederim.

Kodları kullanabilirsiniz. Dosyanız ektedir..

Sub DikeyListe()
 
Dim Sv As Worksheet, Sl As Worksheet
Dim sat As Long, i As Long, j As Integer
 
Set Sv = Sheets("veri")
Set Sl = Sheets("liste")
 
Sl.Range("A2:B" & Sl.Cells(Rows.Count, "A").End(xlUp).Row + 1).ClearContents
 
sat = 2
For i = 3 To Sv.Cells(Rows.Count, "A").End(xlUp).Row
    For j = 2 To Sv.Cells(i, Columns.Count).End(xlToLeft).Column
        Sl.Cells(sat, "A") = Sv.Cells(i, "A")
        Sl.Cells(sat, "B") = Sv.Cells(i, j)
        sat = sat + 1
    Next j
Next i
 
End Sub

.

 

[unreal_avci]

sayin omer cok tessekur ederim.
macro sorunsuz calisiyor.

fakat macrosuz olarak formul ile cozumu varmi ?
cunku orjinal dosya cok daha karmasik bir yapiya sahip.
tesekkur ederim.

 

[Ömer]

Var fakat vereceğim formül makrodan çok daha fazla karmaşık olacak ve 2 yada 3 yardımcı sütun kullanılacak, dosyanıza uyarlamanız daha zor olacaktır. Kısaca tavsiye etmem, yinede olur derseniz müsait zamanımda uğraşırım.

.

 

[unreal_avci]

onemli degil eger formul olursa sonradan herhangi bir sorunda kendim halletmem gerekiyor.
conku macro bilmiyorum.
eger formul var ise cok iyi olur
tekrar tesekkur ederim.

 

[Ömer]

Eki inceleyiniz..

.

 

[unreal_avci]

sayin omer
cok tessekkur ederim.
emeginize saglik.

isim listesi tamam fakat tarihlerin aralarinda baska veriler var ise revizyon no veya onay no gibi
ayni sekilde liste sayfasina nasil aktaracagim.
gerekenleri dosyaya ekledim.

 

[unreal_avci]

isim listesi tamam fakat tarihlerin aralarinda baska veriler var ise revizyon no veya onay no gibi
ayni sekilde liste sayfasina nasil aktaracagim.
gerekenleri dosyaya ekledim.

 

[Ömer]

Var fakat vereceğim formül makrodan çok daha fazla karmaşık olacak ve 2 yada 3 yardımcı sütun kullanılacak, dosyanıza uyarlamanız daha zor olacaktır. Kısaca tavsiye etmem, yinede olur derseniz müsait zamanımda uğraşırım.

.

Her yeni ekte problem yaşayacaksınız. Formülün mantığını anlamaya çalışmanızı tavsiye ederim.

B2:

=EĞER(veri!A3="";"";KAYDIR(veri!$B$3;veri!A3-1;EĞERSAY(veri!$A$3:A3;veri!A3)
+EĞERSAY($A$2:A2;A2)*2-2))

C2:

=EĞER(veri!A3="";"";KAYDIR(veri!$B$3;veri!A3-1;EĞERSAY(veri!$A$3:A3;veri!A3)
+EĞERSAY($A$2:A2;A2)*2-2+1))

D2:

=EĞER(veri!A3="";"";KAYDIR(veri!$B$3;veri!A3-1;EĞERSAY(veri!$A$3:A3;veri!A3)
+EĞERSAY($A$2:A2;A2)*2-2+2))

Formüllerini hücrelere yazın ve alt hücrelere kopyalayın.

Bu işlemlerden sonra;

B sütunu seçin / hücre biçimlendirme / isteğe uyarlanmıştan / tür bölümüne;

[=0]"";gg.aa.yyyy

yazın.

C: D sütunu seçin / hücre biçimlendirme / isteğe uyarlanmıştan / tür bölümüne;

[=0]"";Genel

yazın.

.

 

[unreal_avci]

formulleri kendi dosyama adapte ettim. fakat bir problemim daha var.

a sutunundaki 1, 2, ... diger devam eden rakamlarin sadece c3,f3..... sutunlarina bakmasini nasil saglarim.

dosyada gerekli aciklamayi yaptim.
tekrar tekrar tesekkur ederim.

ek olarak "alan" ad tanimlamamiz neden. ad animdan yaptigimiz formulu direk formulun icine yazsak olmazmi.

 

[unreal_avci]

http://www.excel.web.tr/f47/kinci-sayfada-formulle-nasyl-satyrlary-cooaltabilirim-t89485.html

bu linkdeki

http://www.excel.web.tr/attachment.php?attachmentid=95258&d=1286056587
kgc400-istenilen kadar tekrar.zip

dosyasi ile cozum buldum tesekkur ederim.

 

[unreal_avci]

dosyadaki sorunlari formuller ile cozdum.
fakat sayin omer sizin dediginiz gibi dosya yavasladi ve veri yazmak zorlasti.
ekdeki dosyada formuller sorunsuz listeleme vb tamam fakat dosya yavasladi
sorunu ayrintili olarak ekde yazdim.

yardimlariniz icin tesekkur ederim.