Sub CokluStn()
Dim Kynk As Worksheet
Dim Hdf As Worksheet
Dim SonStr As Long, Str As Long
Dim Carp As Integer
Dim StnSay As Integer, Stn As Byte
Dim StrSay As Byte
StnSay = 7 'sütun Sayısı
StrSay = 50 'satır sayısı
Carp = StnSay * StrSay
Set Kynk = ThisWorkbook.Worksheets("Veri")
SonStr = Kynk.Cells(Kynk.Rows.Count, "B").End(xlUp).Row
Set Hdf = ThisWorkbook.Worksheets("Yazdir")
Application.ScreenUpdating = False
Str = 2
Stn = 2
For x = 2 To SonStr
Hdf.Cells(Str, Stn) = Kynk.Range("B" & x)
' If ((x - 1) Mod 50) = 0 Then Stn = ((Stn - 1) Mod 7) + 2
' Str = ((x - 1) \ 350) * 50 + ((x - 1) Mod 50) + 2
If ((x - 1) Mod StrSay) = 0 Then Stn = ((Stn - 1) Mod StnSay) + 2
Str = ((x - 1) \ Carp) * StrSay + ((x - 1) Mod StrSay) + 2
Next x
Application.ScreenUpdating = True
MsgBox ""
End Sub
2 kod aynı aslıda birinde screenupdate =false kullandım ekran güncellemesini durdurmak için o kadar
Not: aslında
StnSay = 7 'sütun Sayısı
StrSay = 50 'satır sayısı
Carp = StnSay * StrSay
kısımlarına gerek yoktu ilerde siz satır yada sütun sayısını değiştirmek istersiniz diye eklendi yoksa doğrudan
If ((x - 1) Mod 50) = 0 Then Stn = ((Stn - 1) Mod 7) + 2
Str = ((x - 1) \ 350) * 50 + ((x - 1) Mod 50) + 2
şeklinde de kullanılabilirdi