satırlarda bulunan verileri sütunlara aktarma

[dayi10]

Burada yapmak istediğim şey şudur. Meslek 1, meslek 2. ... alt alta binlerce meslek var ve bunların aralarında erkek ve kadın verileri bulunmaktadır. bazılarında erkek verisi vardır bazılarında kadın bazılarında ise iki veride bulunmaktadır. yapmak istediğim şey ise program1, program2, program 3, program 4 sütunlarında mesleklerin isimlerinin olduğu satırlardaki erkek ve kadın bölümlerine mesleklerin altında bulunan erkek ve kadın satırlarındakü verileri aktarmak istiyorum. bir nevi yatay tabloyu dikey tabloya dönüştürmek istiyorum... bunu en kısa yoldan nasıl yapabilirim..

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub yataydikey()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son Step 3
    For j = 2 To 11 Step 3
        Cells(i, j + 1) = Cells(i + 1, j)
        Cells(i, j + 2) = Cells(i + 2, j)
    Next
Next
End Sub

 

[dayi10]

teşekkür ederim ilginiz için yalnız sorumda bir durum daha vardı yardımcı olabilirmisiniz acaba

bazı mesleklerin altında sadece kadın satırı var, bazılarının altında sadece erkek satırı var ve bazılarının altında ise iki satırda mevcuttur bu istediğimizi bunları gözeterek nasıl yapabiliriz.

 

[YUSUF44]

Dikkat etmemişim, kusura bakmayın. Aşağıdaki gibi deneyin:

Sub yataydikey()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    For j = 2 To 11 Step 3
        If Cells(i, "A") <> "Erkek" And Cells(i, "A") <> "Kadın" Then
            If Cells(i + 1, "A") = "Erkek" Then Cells(i, j + 1) = Cells(i + 1, j)
            If Cells(i + 1, "A") = "Kadın" Then Cells(i, j + 2) = Cells(i + 1, j)
            If Cells(i + 2, "A") = "Kadın" Then Cells(i, j + 2) = Cells(i + 2, j)
        End If
    Next
Next
End Sub