Hücreler Arası İçerik Değişimi

[serdar_smyrna]

Öncelikli bunu şu an kullanacağım bir yer yok ancak ileriye yönelik bir şeyler düşünürken böyle bir ihtiyaç doğdu, sadece uğraşılırsa eğer olur mu olmaz mı onu öğrenmek için soruyorum?

örneğin A1ve A3 hücrelerinde farklı rakam veya metin var, A1 hücresini sürükleyip A3 üzerine bırakınca bu verilerin yer değişimini sağlama şansımız olur mu?

Tabi bunu tüm sayfa için her hangi bir hücreden herhangi başka bir hücreye değişim olacak şekilde yaymak da gerekli olsa?

 

[uzmanamele]

merhaba

sürükle-bırak yöntemiyle olacağını sanmıyorum.
fikir vermesi açısından basit bir örnek, inceleyiniz.

Sub deneme()
ilk = InputBox("hücre_adresini giriniz")
son = InputBox("hücre adresini giriniz")
degistir_1 = Range(ilk).Value
degistir_2 = Range(son).Value
Range(son) = degistir_1: Range(ilk) = degistir_2
End Sub