sütunlardaki verilerin yer değiştirmesi

[madistyy]

tablodaki B19dan U19a kadar olan satır ile B40dan U40a kadar olan satırın bir buton aracılığı ile yer değişimi. yanlız her butona bastığım zaman iki satır arasında yer değişimi olucak. Lütfen yardımcı olun arkadaşlar. Şimdiden teşekkür ederim

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub yerdegistir()
    Rows("19:19").Copy Rows("45:45")
    Rows("40:40").Copy Rows("19:19")
    Rows("45:45").Copy Rows("40:40")
    Rows("45:45").ClearContents
    Application.CutCopyMode = False
End Sub

 

[madistyy]

hocam ilgilendiğin için cok teşekkür ederim ama ben kodları yerine koyamam yani bilmiyorum. dosyayı paylaştım siz bir buton oluşturup benimle paylaşsanız olur mu acaba ?