Sütun Tarama

[desperado17]

Arkadaşlar merhaba ekledigim excel sayfasında 1. sütunu tarayıp X olan satırların karşısında af sutunundan sonrakileri o sayfanın altında yada başka bir sayfaya yan yana yazdırabilecek bi macro istiyorum yardımcı olabilirmisiniz? Örnek olarak satırın yarısına kadar yaptım yardımcı olursanız sevinirim... Şimdiden teşekkurler...

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub YanYana()
    Dim Kolon   As Integer, _
        Sat     As Long, _
        i       As Long, _
        j       As Long, _
        k       As Integer, _
        Kol     As Integer, _
        sv      As Worksheet, _
        ss      As Worksheet
    
    Set sv = Sheets("Veri")
    Set ss = Sheets("Sonuc")
    
    sv.Select
    ss.Cells.ClearContents
    
    For Kolon = 1 To Cells(1, "IV").End(1).Column
        Sat = Kolon
        ss.Cells(Sat, 1) = Cells(1, Kolon)
        Kol = 1
        For i = 2 To Cells(Rows.Count, Kolon).End(3).Row
            If Cells(i, Kolon) = "X" Then
                k = 32
                Do While Cells(i, k) > ""
                    Kol = Kol + 1
                    ss.Cells(Sat, Kol) = Cells(i, k)
                    k = k + 1
                Loop
            End If
        Next i
    Next Kolon
    
    MsgBox "Yanyana Yazma Bitmiştir...:", vbInformation, "N. YEŞERTENER---> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[hımmmmmmmm]

slm

sayfa 2 ye yazan program

 

[desperado17]

Arkadaşlar teşekkurler ellerinize saglık beni büyük bi yükten kurtardınız.