Sütunların Yerini Değiştirme Makrosu

[ismail-34]

Değerli Excel Web Hocalarıma Selamlar Saygılar..

Benim Sorum D ve H sütunlarının içeriklerinin her düğmeye tıklandığında birbiriyle yer değiştirmesi ile ilgili.

örnek ektedir.

 

[osman06turgut]

Makro kaydet ile yaptım. Önce başka hücreye kopyalıyor, daha sonra kopyalanan yerdeki hücre ile değiştiriyor. Belki daha kapsamlı yapan olabilir.

 

[ÖmerFaruk]

Sub SutunDegistir()
    Liste1 = Range("D:D").Value
    Liste2 = Range("H:H").Value
    Range("D:D") = Liste2
    Range("H:H") = Liste1
End Sub

 

[Necdet]

Merhaba,

Sub YerDegistir()

Dim i   As Long, _
    j   As Long, _
    ar1 As Variant, _
    ar2 As Variant
    
Application.ScreenUpdating = False

i = Cells.Find("*", , , , xlByRows, xlPrevious).Row

ar1 = Range("D2:D" & i).Value
ar2 = Range("H2:H" & i).Value

Range("D2").Resize(UBound(ar1, 1), 1) = ar2
Range("H2").Resize(UBound(ar1, 1), 1) = ar1

Application.ScreenUpdating = True

End Sub

 

[ismail-34]

Merhaba,

Sub YerDegistir()

Dim i   As Long, _
    j   As Long, _
    ar1 As Variant, _
    ar2 As Variant
   
Application.ScreenUpdating = False

i = Cells.Find("*", , , , xlByRows, xlPrevious).Row

ar1 = Range("D2:D" & i).Value
ar2 = Range("H2:H" & i).Value

Range("D2").Resize(UBound(ar1, 1), 1) = ar2
Range("H2").Resize(UBound(ar1, 1), 1) = ar1

Application.ScreenUpdating = True

End Sub

Çok teşekkür ederim Değerli Necdet hocam hücre aralıklı opsiyonlu modeliniz çok işime yaradı.Sağolun varolun.

 

[ismail-34]

Sub SutunDegistir()
    Liste1 = Range("D:D").Value
    Liste2 = Range("H:H").Value
    Range("D:D") = Liste2
    Range("H:H") = Liste1
End Sub

Eyw Ömer Faruk hocam yine atomu bölmüşünüz Saat gibi çalışıyor.Sağolun varolun.

 

[ismail-34]

Makro kaydet ile yaptım. Önce başka hücreye kopyalıyor, daha sonra kopyalanan yerdeki hücre ile değiştiriyor. Belki daha kapsamlı yapan olabilir.

eyw osman bey. dediğiniz gibi daha kapsamlı olan Necdet hocamınkini tercih ettim.Emeğinize sağlık..