Sutun,Satır ilişkisi..

[c_235]

Arkadaşlar günaydın ,herkese kolay gelsin,,bnm ufak bir sorum olacak....
Normalda A sutununda tanımlanmış 100 adet sayıyı ,5 sutun halinde 20 satırlı elemana nasıl dönüştürürebilirim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modülle kopyalayıp deneyiniz.

Sub yatay()
Dim i As Long
Dim j As Integer
j = 1
For i = 2 To [a65536].End(3).Row Step 20
    j = j + 1
    Range("A" & i & ":A" & i + 20 - 1).Copy
    Range("B" & j).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Next i
End Sub

 

[c_235]

Necdet bey çok teşk ederim tam istediim gibi olmuş,sadece
Range("A" & i & ":A" & i + 20 - 1).Copy bu kodun ne yaptığını anlamadım...

 

[Necdet]

Necdet bey çok teşk ederim tam istediim gibi olmuş,sadece
Range("A" & i & ":A" & i + 20 - 1).Copy bu kodun ne yaptığını anlamadım...

Merhaba,

Bulunduğu satırdan itibaren 20 adet satırı kopyalar ve

Range("B" & j).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

komutu ile de işlemi tersine çevirerek yapıştırır.