sütunu satırlara yazmak

[katip35]

Herkeze çalışmalarında kolaylıklar diliyorum.
ekteki dosyada A1 sütunda veriler var. Bunlar 3 lü grup şeklinde sıralanmaktadır.
A1 den başlıyor. yani A1,A2,A3 grup olmakta. A4,A5,A6 diğer grup sırayla gidiyor. yapmak istediğim ekteki dosyaya da elle girdim. İlk olarak A1,A2,A3 grubunu satır olarak c1,d1,e1 satırlarına yazmak istiyorum. Ama bu 1 nolu satır hizasında olmalı. 2.grupta aynı şekilde c4,d4,e4 şeklinde olucak buda 4 nolu satır hizsında olucak.

evet özet olarak bu şekilde olucak. Bu konuda yardımcı olursanız sevinirim. Sitede benzer bazı başlıklar buldum ama adapte edemedim. şimdiden sağolun. kolay gelsin.

 

[leumruk]

Merhaba,

Sub Ekle()
For x = 1 To [a65536].End(3).Row Step 3
Range(Cells(x, "a"), Cells(x + 2, "a")).Copy
Cells(x, "c").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
Application.CutCopyMode = False
End Sub

 

[leumruk]

Bu kodla da buton kullanmadan verileri aktarabilirsiniz. En son üçüncü veriyi girdiğinizde son üç veriyi aktarır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Sat1 = [a65536].End(3).Row
Sat2 = [c65536].End(3).Row
If Sat1 - Sat2 = 5 Then
Range(Cells(Sat1 - 2, "a"), Cells(Sat1, "a")).Copy
Cells(Sat1 - 2, "c").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
Application.CutCopyMode = False
End Sub

 

[katip35]

Teşekkür ediyorum istediğim şekilde oldu.k:: Sağolun..

 

[leumruk]

Teşekkür ediyorum istediğim şekilde oldu.k:: Sağolun..

Rica ederim.