sınıflandırma yapmak istiyorum.

[zetay]

sayfa 2 de I sütunda yer alan verilere göre sıralama yapmak istiyorum. Yanlız o I sütunun satırındaki değeri alıp diğer sayfada uygun yerlere yazmak istiyorum.

yardımcı olursanız sevinirim. teşekkürler.



dosyayı düzenledim. bir daha göz atabilirsiniz. umarım yeterli veri vermişimdir. ilginize teşekkürler.

 

[Ömer]

Merhaba,

Nasıl bir yazdırma yapacaksınız. Bu tür konularda eklediğiniz dosyada olması gereken şablonun 5-6 verisini manuel dosyanıza girerek açıklamanızı rica ederim.

 

[zetay]

dosyayı düzenledim. bir daha göz atabilirsiniz. umarım yeterli veri vermişimdir. ilginize teşekkürler.

 

[Ömer]

dosyayı düzenledim. bir daha göz atabilirsiniz. umarım yeterli veri vermişimdir. ilginize teşekkürler.

Bu şekilde deneyin.

Sub Durum_Aktar()
 
    Dim c As Range, son As Long, Adr As Variant, S2 As Worksheet, i As Long
 
    Set S2 = Sheets("Sayfa2")
 
    Application.ScreenUpdating = False
    
    Sheets("A-2011").Select
    Range("B2:Q" & Rows.Count).ClearContents
 
    For i = 2 To S2.Cells(Rows.Count, "K").End(xlUp).Row
        With Rows(1)
            Set c = .Find(S2.Cells(i, "K"), , xlValues, xlWhole)
              If Not c Is Nothing Then
                Adr = c.Address
                  Do
                    son = Cells(Rows.Count, c.Column).End(xlUp).Row + 1
                    Cells(son, c.Column) = S2.Cells(i, "B")
                    Set c = .FindNext(c)
                  Loop While Not c Is Nothing And c.Address <> Adr
              End If
        End With
    Next i
    
    Application.ScreenUpdating = True
 
 End Sub

.