AccessTr.neT

(29/08/2021, 00:35)userx yazdı: [ -> ]Sayın @berduş zaten o şekilde hazırlamış.
Belki başka arkadaşlar benim hazırladığım yönteme ihtiyaç duyabilir. Böyle kalsın.

Sonuçta iki örnek olmuş oldu elimizde. Emeği geçen tüm arkadaşlara teşekkür ederim.

15. mesajdaki kodu denediniz mi? verileri doğru alıyor mu?

Sayın berduş bey 15. mesajdaki kodu denedim. O da gayet başarılı sadece kurgu önce sağa sonra aşağıya doğru gidiyor.
Sayın berduş bey acaba 2 sayfada değil de Sayın @userx in kurgusuna göre tek sayfada kullanmak istersek kodda nasıl bir değişiklik yapmamız gerekir. Yani veri de sonuç da aynı sayfada olsa. Teşekkür ederim.

(30/08/2021, 22:24)yyhy yazdı: [ -> ]Sayın berduş bey 15. mesajdaki kodu denedim. O da gayet başarılı sadece kurgu önce sağa sonra aşağıya doğru gidiyor.

yanlışlık olmasın yazdığım kod önce yukardan aşağı  50yi alıp sağa geçiyor 2. 50yi alıyor
defalarca denedim veriler sizin istediğiniz formatta alınıyor

---

pardon 14. mesajdaki kod

Evet Sayın @berduş bey hata bende, karıştırmışım; Gayet güzel bir kurgu ile önce 50 aşağıya ve daha sonra da sağa gidiyor. Sorumun karşılığı da bu idi.
Bu konu ile ilgili olarak  sayfa kullanmadan Veri sayfasında yeni ekleyeceğim eke göre veri ile sonuç aynı sayfaya uyarlayabilir miyiz?
https://dosya.co/lqskhw6mp1cl/14._Mesaja_Göre.xlsm.html

aşağıdaki gibi düzenleyip dener misiniz?

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



With Kynk

For X = 2 To SonStr Step Carp

y = X

Str = ((X - 1) \ Carp) * StrSay + 2

    For Stn = 5 To 11

        Kynk.Cells(Str, Stn).Resize(50) = Kynk.Range("B" & y & ":B" & y + 49).Value

        y = y + StrSay

    Next Stn

Next X

   

SonStr = .Cells(.Rows.Count, "E").End(xlUp).Row

         .PageSetup.PrintArea = "$E$2:$K$" & SonStr

         .Range("E2", "K" & SonStr).Borders.LineStyle = xlContinuous

End With



MsgBox "Bitti"

End Sub