belli bir formata göre düzenleme

[onur3466]

sütun sayıları sabit 4 olucak fakat satır sayıları değişkenlik göstermekte

 

[Muzaffer Ali]

Sonuç sayfasında bu rakamların sıralaması ile datalar sayfasındaki bu sıralama her zaman aynı mı olacak?


Yani Örneğin sonuç sayfasındaki sıralama böyleyse datalar sayfasındaki sıralama da aynısı gibi olacak mı?

İkinci olarak sonuç sayfasındaki mavi alan her zaman I3 hücresinden mi başlayacak?

 

[onur3466]

sayfa1 deki olacak Muzaffer bey

 

[Muzaffer Ali]

Önceki dosya daha sadeydi onu anlayıp şekillendiremedim.
Bu daha karmaşık hiç şekillendiremiyorum.
Kurallar hakkında bir şey anlayamadım, çözemedim.

Yeni bir konu açıp sorarsanız belki bir çözen olur.

 

[onur3466]

şimdi datalar e2:e13 sonuçta e2:e13'e,datalar e14:e25 sonuçta f2:f13'e,datalar e26:e37 sonuçta g2:g13'e,datalar e74:e85 sonuçta h2:h13'e gidecek. ama kurallar daha önce yaptığınız ile aynı. örneğin satır sayısı değiştiğinde e2:e11 sonuçta e2:e11'de olabilir veya e2:e15 sonuçta e2:e15'de olabilir düzenleme sayfasından gelebilecek verilere göre. yani sıralama düzeninde sonuç sayfasındaki sütunlara veriler aktarılsın.

 

[Muzaffer Ali]

1- e2:e13 aralığını neye göre seçiyorsunuz?
2- e2:e13 aralığı her zaman aynı mı?
3- e2:e13 aralığı bazen değişiyorsa nerden başlayıp nerede bittiğini ne zaman-nasıl anlayacağım?
4- e2:e13, e14:e25, e26:e37 şeklinde datalar E sütununu 3'e bölmüşsünüz. Neden üçe böldünüz?
5- E sütunu e2:e13, e14:e25, e26:e37 bu şeklide hep 3'e mi bölünecek, 3'den farklı bölündüğü olacak mı?
6- E37 hücresinden sonrasını farklı bir alana almışsınız, başka bir zaman E37 den farklı bir satırdan başlarsa nereden anlayacağım?

 

[onur3466]

düzenleme sayfasında bir sıralama düzeni oluşturmuştukya muzaffer bey, ordan da datalar sayfasına atmıştık. datalar sayfasında oluşturduğumuz yukarıdan aşağıya olan sayıları sonuç sayfasında e2:e13 e yazdırmak istiyorum.

4. maddedeki açıklamaya dikkat ederseniz sürekli kendini yeniliyor ve sondada e74:e85 aralığında tekrar ediyor. Row direction 2 row 1 olacak şekilde.

5. madde de ise stır sayısı değişebeilir ama ama hep bu şekilde tekrar eden düzen olması lazım

 

[onur3466]

aslında istediğim renklendirmedede olduğu gibi alt alta olanları sağdaki tablodaki gibi yan yana yazmak . zaten hücreleri seçerek belirttim daha da anlaşılır olur bu sefer

 

[onur3466]

muzaffer bey ben yazdım ama bir tane makro hep 1000 değerini yazdırıyor. mantığı e2 deki ilk sayı değeri tekrar edene kadar ı5 den alt alta yazdırdım. ama benim istediğim ı5 bu şekilde gelmesi

 

[Muzaffer Ali]

Aşağıdaki kodu datalar sayfasının kod kısmına kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim Str1 As Long
    Dim Str2 As Long
    Dim Sira As Integer
    Dim Satir As Long
    Str1 = 2
    For Bak = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        If Cells(Bak, "E") > Cells(Bak + 1, "E") Then
            Str2 = Bak
            Sira = Sira + 1
            With Worksheets("Sonuç")
                If Sira = 1 Then
                    Satir = .Cells(Rows.Count, "E").End(xlUp).Row + 2
                End If
                Range("E" & Str1 & ":E" & Str2).Copy .Range(Cells(Satir, 5).Address & ":" & Cells(Satir, 9).Address)
                Range("F" & Str1 & ":F" & Str2).Copy .Cells(Satir, 9 + Sira)
            End With
            Str1 = Bak + 1
            If Sira = 3 Then Sira = 0
        End If
    Next
End Sub

 

[onur3466]

muzaffer bey ben yaptım ama en alttaki satırda tekrardan 1000 yazıyor onu çözemedim. sizin gönderdiğinizde hata veriyor
With Worksheets("Sonuç")
bu kısımda

 

[Muzaffer Ali]

For j = startRow To endRow

satırını aşağıdaki ile değiştirin

For j = startRow To endRow - 1

Yada şu kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Dim Bak As Long
    Dim Satir As Long
    Satir = 4
    Range("I5") = Range("E2")
    For Bak = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        Satir = Satir + 1
        If Range("I5") <> Cells(Bak, "E") Then
            Cells(Satir, "I") = Cells(Bak, "E")
        Else
            Exit For
        End If
    Next
End Sub

 

[onur3466]

yukarıdaki tek satırlık kod çalıştı teşekkür ederim

 

[onur3466]

merhaba muzaffer bey,
ben bir excel hazırladım da sizinle daha önce yaptığımız sıralama ölçütünü bu excel sayfa1 de yapmak istiyorum ve verileri t den başlayarak z sütununa kadar yazdırmak istiyorum yardımcı olurmusunuz.