rapordaki 2. satır(lar)ı üst satırın yanına almak

[selimmanav]

merhaba ekteki talep rapor dosyasında çekilen raporlar alt alta satır halindedir. Bu halde iken filtreleme ve sıralama yapamıyorum.ekteki dosyada talepler sekmesini kendim oluşurdum.1. satır ve 2. satır için renk kullanarak konuyu örnekledim.
raporda 2. satırdaki hücreleri 1.satıra alabilen VBA kodu oluşturabilir miyiz?

 

[suleyman242]

merhaba ekteki talep rapor dosyasında çekilen raporlar alt alta satır halindedir. Bu halde iken filtreleme ve sıralama yapamıyorum.ekteki dosyada talepler sekmesini kendim oluşurdum.1. satır ve 2. satır için renk kullanarak konuyu örnekledim.
raporda 2. satırdaki hücreleri 1.satıra alabilen VBA kodu oluşturabilir miyiz?

Hemşerim dosya ekte.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub veri_çek()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long, STR1 As Long
Set S1 = Sheets("TALEP LISTELEME.0")
Set S2 = Sheets("talepler")
Application.ScreenUpdating = False
S2.Range("A2:O" & Rows.Count).ClearContents
STR1 = 2
For STR = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row Step 2
S2.Cells(STR1, "A") = S1.Cells(STR, "A")
S2.Cells(STR1, "B") = S1.Cells(STR, "B")
S2.Cells(STR1, "C") = S1.Cells(STR + 1, "B")
S2.Cells(STR1, "D") = S1.Cells(STR, "C")
S2.Cells(STR1, "E") = S1.Cells(STR + 1, "C")
S2.Cells(STR1, "F") = S1.Cells(STR, "D")
S2.Cells(STR1, "G") = S1.Cells(STR, "E")
S2.Cells(STR1, "H") = S1.Cells(STR + 1, "E")
S2.Cells(STR1, "I") = S1.Cells(STR, "F")
S2.Cells(STR1, "J") = S1.Cells(STR + 1, "F")
S2.Cells(STR1, "K") = S1.Cells(STR, "G")
S2.Cells(STR1, "L") = S1.Cells(STR, "H")
S2.Cells(STR1, "M") = S1.Cells(STR, "I")
S2.Cells(STR1, "N") = S1.Cells(STR, "J")
S2.Cells(STR1, "O") = S1.Cells(STR + 1, "J")
STR1 = STR1 + 1
Next
Application.ScreenUpdating = True
End Sub

 

[selimmanav]

bu sitede emeği geçen üyelere ve site yöneticilerine çok çok teşekkür ederim.

 

[asi_kral]

bu sitede emeği geçen üyelere ve site yöneticilerine çok çok teşekkür ederim.

Kolay Gelsin.