satır kayıtları sutunlara raporlamak

[metinozlu]

Merhaba

Excelde data sayfasına
1 2 3 4 5 6 7 8 9 10 11 12 şeklinde kaydedilen verileri
rapor sayfasına activecell’e göre
a1 b1 c1
1 2 3
4 5 6
7 8 9
10 11 12
şeklinde yazdırmak istiyorum.

Nasıl bir kodla yapabilirim?

 

[arifcell]

ornek bı dosya yollarmısın ı

 

[otufan03]

Düzen/Kopyala/Özel yapıştır/Tersçevir ile yapıştırabilirsiniz

 

[metinozlu]

o şekilde olmaz ,çünkü bütün satır sütün haline gelir
ayrıca makro ile olması gerekiyor.

 

[Seyit Tiken]

"Bağ Yapıştır" ile yapılabilir. İlle de makro diyorsanız "Makro Kaydet" ile bu işlemi yapabilirsiniz.

 

[metinozlu]

Sub data_Düğme2_Tıklat()
Sheets("data").Select
Range("a2").Select

ActiveCell.Select
'On Error Resume Next
'Application.ScreenUpdating = False
A = 2
b = 1
Dim m As Integer
For mmm = 1 To 4

ActiveCell.Offset(1, b).Value = ActiveCell(1, A).Value
ActiveCell.Offset(2, b).Value = ActiveCell(1, A + 4).Value
ActiveCell.Offset(3, b).Value = ActiveCell(1, A + 8).Value
ActiveCell.Offset(4, b).Value = ActiveCell(1, A + 12).Value
ActiveCell.Offset(5, b).Value = ActiveCell(1, A + 16).Value
ActiveCell.Offset(6, b).Value = ActiveCell(1, A + 20).Value
ActiveCell.Offset(7, b).Value = ActiveCell(1, A + 24).Value
ActiveCell.Offset(8, b).Value = ActiveCell(1, A + 28).Value
ActiveCell.Offset(9, b).Value = ActiveCell(1, A + 32).Value
ActiveCell.Offset(10, b).Value = ActiveCell(1, A + 36).Value
ActiveCell.Offset(11, b).Value = ActiveCell(1, A + 40).Value
ActiveCell.Offset(12, b).Value = ActiveCell(1, A + 44).Value
ActiveCell.Offset(13, b).Value = ActiveCell(1, A + 48).Value
ActiveCell.Offset(14, b).Value = ActiveCell(1, A + 52).Value
ActiveCell.Offset(15, b).Value = ActiveCell(1, A + 56).Value

b = b + 1
A = A + 1
Next mmm

End Sub
bu kodlar data sayfa kayıtlarını data sayfasına raporluyor.
ben bu raporlamanın rapor sayfasındaki boş olan satırı bulup o hücreden itibaren raporlamasını istiyorum.
bu kodda aşamadığım husus data activecelli ile rapor activecellinin ayrımını yapamadım

 

[metinozlu]

:agla: :agla:

 

[isakarakus]

merhaba,

dosyanızdaki verilerinizin bir bölümünü kullanarak bir örnek dosya gönderirseniz,
daha iyi anlaşacaktır.

sorununuz tam olarak anlaşılmıyor..

 

[metinozlu]

dosya ektedir

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:4728201dab]Sub kaydet()
Set s1 = Sheets("data")
Set s2 = Sheets("rapor")
For a = 2 To s1.[a65536].End(3).Row
For b = 2 To s1.Cells(a, 256).End(xlToLeft).Column Step 3
c = c + 1
s2.Cells(c + 1, "a") = s1.Cells(a, "a")
s2.Cells(c + 1, "b") = s1.Cells(a, b)
s2.Cells(c + 1, "c") = s1.Cells(a, b + 1)
s2.Cells(c + 1, "d") = s1.Cells(a, b + 2)
Next
Next
End Sub[/vb:1:4728201dab]

 

[metinozlu]

Sayın Leventm cevabınız için teşekkürler
tam istediğim gibi olmuş ,elinize sağlık
merak işte
depo kayıtlarında b sütunundaki veri "Ocak" ise sadece "Ocak" kayıtları aynı şekilde nasıl raporlanabilir?