kategoriye göre dağıt ve aktar

[XExcel]

Merhaba,

ekteki dosyamda 3 sayfa be bir örnek sayfası mevcut.ilk sayfadaki veriler dağıtılacak ve sheet4 e aktarılacak. Yarımlarınız için teşekürler

 

[XExcel]

biraz zor oldu sanırımbu, o zaman yalnızca ilk sayfı yani sheet3 olsada yeter
sheet4 kalsın o zaman, kısadan dönelim

teşekürler

 

[Orion1]

biraz zor oldu sanırımbu

Zor diye bir şey yoktur.
Dosyanız ektedir.

Sub aktar_dagit_59()
Dim i As Long, k As Byte
For i = 6 To 100
    For k = 2 To 23
        If UCase(Cells(i, k).Value) = "X" Then Cells(i, k).Value = Cells(2, k).Value
    Next
    Range("B" & i & ":W" & i).Sort Key1:=Range("B" & i), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
    DataOption1:=xlSortNormal
Next
MsgBox "İşlem Tamamlandı" & vbLf & _
"evrengizlenqhotmail.com", vbOKOnly + vbInformation
End Sub

 

[XExcel]

üstadım, sorumun cevabı,hatta fazlası olmuş bu, valla sizi de çok yordum.Çok teşekkür ederim.Emeğinize sağlık.

 

[Orion1]

üstadım, sorumun cevabı,hatta fazlası olmuş bu, valla sizi de çok yordum.Çok teşekkür ederim.Emeğinize sağlık.

Rica ederim.
İyi çalışmalar.