Public Sub doldur()
Dim m As Integer
Son_Dolu_Satir = Sheets("VERİ").Range("A65536").End(xlUp).Row
m = 0
n = 1
l = 0
 For i = 1 To Son_Dolu_Satir
 
   For k = 1 To 45
 
 
        If l = 9 Then
        m = 1
        i = i + 1
        l = 1
        Else
        l = l + 1
        m = m + 1
        End If
    Sheets("Satır Olarak").Cells(n, k) = Sheets("VERİ").Cells(i, m)
 
    Debug.Print i & " " & m & " " & n & " " & k & "----------- " & Sheets("VERİ").Cells(i, m)
   Next
   n = n + 1
   i = i - 1
   Next
End Sub

Sub Düğme1_Tıklat()
Dim x, y, k, kk, t As Long
Dim id
 
k = 3
kk = 7
y = 6
x = 6
t = 3
 
Do
'---ID DEPĞERİ ALMA
id = Cells(x, 5).Value
 
'----- SAYFA2 GEÇİP KOLON 2 İLE KOLON 6 YA KADAR GİT VE SAYFA1 DEĞERLERİ AL
With Sheets("sayfa2")
For i = 2 To 6
    .Cells(t, i) = Cells(x, i)
Next
End With
 
'--- SAYFA1 DEKİ ID AYNI OLANLARI BİR DÖNGÜYE ALMA VE SIRASIYLA 7 DEN İTİBAREN AKTARMA
Do
Sheets("sayfa2").Cells(k, kk) = Cells(y, 7)
y = y + 1
kk = kk + 1
Loop Until Cells(y, 5) <> id
 
kk = 7
k = k + 1
x = y + 1
t = t + 1
 
Loop Until Cells(x, 3) = ""
 
End Sub