DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub AKTAR()
satir = Sheets("Sayfa1").Range("a" & Rows.Count).End(3).Row
sutun = Sheets("Sayfa1").Cells(1, Columns.Count).End(1).Column
For e = 3 To satir
son1 = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa2").Range("A" & son1).Value = Sheets("Sayfa1").Cells(e, 1)
For i = 2 To sutun Step 3
son = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa2").Range("A" & son).Value = Sheets("Sayfa1").Cells(1, i)
Sheets("Sayfa2").Range("B" & son).Value = Sheets("Sayfa1").Cells(e, i)
Sheets("Sayfa2").Range("c" & son).Value = Sheets("Sayfa1").Cells(e, i + 1)
Sheets("Sayfa2").Range("d" & son).Value = Sheets("Sayfa1").Cells(e, i + 2)
Next
Next
End Sub
Sub AKTAR()
Sheets("Sayfa1").Range("b2:d2").Copy Sheets("Sayfa2").Range("b1:d1")
satir = Sheets("Sayfa1").Range("a" & Rows.Count).End(3).Row
sutun = Sheets("Sayfa1").Cells(1, Columns.Count).End(1).Column
For e = 3 To satir
son1 = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa1").Cells(e, 1).Copy Sheets("Sayfa2").Range("A" & son1)
With Sheets("Sayfa2").Range("B" & son1 & ":D" & son1)
.MergeCells = True
.Interior.Color = 65535
.Borders.LineStyle = xlContinuous
End With
For i = 2 To sutun Step 3
son = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa1").Cells(1, i).Copy Sheets("Sayfa2").Range("A" & son)
Sheets("Sayfa1").Cells(e, i).Copy Sheets("Sayfa2").Range("B" & son)
Sheets("Sayfa1").Cells(e, i + 1).Copy Sheets("Sayfa2").Range("c" & son)
Sheets("Sayfa1").Cells(e, i + 2).Copy Sheets("Sayfa2").Range("d" & son)
Next
Next
End Sub