satırlardaki verileri sütunlara

[Erdinç FIRTINA]

Değerli Forum üyeleri,

ALT ALTA BULUNAN SATIRLARDAKİ VERİLERİN AYNI SATIRDA YANYANA YAZILMASI YAPILABİLİR Mİ ? (Özel yapıştır, işlemi tersine çevir gibi bir şey)

Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkürler !!!

 

[apocalyt]

şunu deneyin..

Sub daylight()
For x = 8 To [h10000].End(3).Row
k = [k1000].End(3).Row + 1
For y = 11 To 17
Cells(k, y) = Cells(x, "h")
x = x + 1
Next y
x = x + 1
Next x
End Sub

 

[Erdinç FIRTINA]

Sayın apocalyt,
çok çok teşekkür ederim

 

[Erdinç FIRTINA]

Değerli forum üyeleri,

Sayın apocalyt'nin düzenlemiş olduğu kodları kendime göre yeniden uyarlamaya çalıştım ama küçük bir hata var dosyam ekte .

Yardımlarınız için şimdiden teşekkürler !!!

 

[apocalyt]

aşağıdaki kodu deneyin..çok ufak bi değişiklik ..

Sub daylight()
Application.ScreenUpdating = False
Range("k9:aa" & Rows.Count).ClearContents
For x = 8 To [h10000].End(3).Row
k = [k1000].End(3).Row + 1
For y = 11 To 24
Cells(k, y) = Cells(x, "h")
x = x + 1
Next y
x = x - 1
Next x
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[Erdinç FIRTINA]

Sayın apocalyt,
Bileğinize, beyninize ve yüreğinize sağlık!!! Çok çok teşekkür ederim...