Bir sütundaki verilerin diğer sütunlara aktarılması

[Gold_Savt]

A sütununda olan verilerin karşılığı C sütununda varsa diğer diğer sütunlara (aylara göre) "aralıksız" dağıtılması gerkli.
Ben Ocak ayını yapıyorum. Diğer ayı yaptığımda verileri aralıklı geliyor malesef. Diğer ayları da aralıksız getirme şansım var mıdır?

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Dim Bak As Integer
    Dim Ay As Integer
    Range("j5:y5000").ClearContents
    For Bak = 5 To Cells(Rows.Count, "C").End(xlUp).Row
        Ay = WorksheetFunction.Match(Cells(Bak, "C"), Rows(4), 0)
        Cells(Bak, Ay) = Cells(Bak, "A")
    Next
End Sub

 

[dEdE]

Aşağıdaki kodu dener misiniz?

Private Sub CommandButton2_Click()
Dim sat As Long, i As Long
Sheets("Giris").Range("j5:y5000").ClearContents
ss = Cells(Rows.Count, "C").End(xlUp).Row
For i = 10 To 21
    sat = 5
    For j = 5 To ss
        If Cells(j, 3) = Cells(4, i) Then
            Cells(sat, i) = Cells(j, 1)
            sat = sat + 1
        End If
    Next j
Next i
End Sub

 

[dEdE]

Teşekkür beklemiyoruz.
İki kişi oturmuş sizin için emek vermiş, kod yazmış.
Aradan bir hafta geçmiş. Bugün foruma uğramışsınız.
İşe yaradı ya da yaramadı diye dönüş yapmak çok mu zor?
Bunu sormak hakkım diye düşünüyorum.

 

[Gold_Savt]

İş yoğunluğundan bir haftadır foruma giremedim. Henüz yeni girdim ve deniyorum. Yardımı dokunan her arkadışıma ayrı ayrı teşekkür ediyorum. Emeğiniz için ayrıca teşekkür ederim. Ama bu hafta malesef aşırı yoğunluk vardı.
Not: Muzaffer Ali 'nin kodlarını çalıştıramadım. Sizinkiler uydu hocam.