Satır - sütun değişimi

[all_per]

Arkadaşlar merhaba ;

Satır sütun aktarımı ile yardımınıza ihtiyacım var...Her seferinde kopyala>>özel yapıştır>>ters çevir yapmak yerine bunun bir yolu makrosu olmalı bence...

A sütununda yer alan ve her 5 satırda bir yenilenen bilgileri C-D-E ve F sütunlarına aktarmak istiyorum.

Tabloda renkli şekilde izah etmeye çalıştım.

Bu aktarımı kolay yoldan yapmanın kolay yolu varsa yardımcı olurmusunuz?

Teşekkürler...

 

[cems]

İşlemi yaparken makro kaydet özelliğini açarsanız tam bir makro elde etmiş oluyorsunuz. Sonra bunu bir tuşa kod olarak yerleştirebilirsiniz.

Bu kodları boş modüle yerleştirin, sayfada bir buton oluşturup bu modüle bağlayın

Sub Makro1()

    Range("A1:A4").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A6:A9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A11:A14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A16:A19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

[asi_kral]

Arkadaşlar merhaba ;

Satır sütun aktarımı ile yardımınıza ihtiyacım var...Her seferinde kopyala>>özel yapıştır>>ters çevir yapmak yerine bunun bir yolu makrosu olmalı bence...

A sütununda yer alan ve her 5 satırda bir yenilenen bilgileri C-D-E ve F sütunlarına aktarmak istiyorum.

Tabloda renkli şekilde izah etmeye çalıştım.

Bu aktarımı kolay yoldan yapmanın kolay yolu varsa yardımcı olurmusunuz?

Teşekkürler...

Merhaba
Kodu boş bir module kopyalayın ve deneyin.

Option Explicit
Sub verileri_kopyala_1967()
'Konu       :   Verileri Kopyala ve Ters Yapıştır
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral, a
Application.ScreenUpdating = False
a = ActiveCell.Address
kral = 1
For asi = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & asi & ":A" & asi + 3).Copy
Range("C" & kral).PasteSpecial Paste:=xlPasteAll, operation:=xlNone, Transpose:=True
kral = kral + 1
Application.CutCopyMode = False
asi = asi + 4
Next
Range(a).Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbInformation, "asi_kral_1967"
End Sub

Eki inceleyin.

 

[all_per]

Sayın cems ;

dediğinizde haklısınız ama benim demek istediğim mesela 300 satırlık bir veri olsa bunu her seferinde yapmak zor olacak...

for i 1 to 5 döngüsü ile birşey yapmak lazım benim asıl yapmak istediğim bu aslında...

 

[all_per]

Sayın asi_kral_1967 ;

Aradığım tam buydu..

Çok teşekkür ederim yardımınıza...

Ellerinize sağlık...

 

[asi_kral]

Sayın asi_kral_1967 ;

Aradığım tam buydu..

Çok teşekkür ederim yardımınıza...

Ellerinize sağlık...

Kolay Gelsin.