Hücrelerdeki Değerleri Yer Değiştirme

Bu dosya, seçilen iki hücrenin değerlerini birbiriyle değiştiren bir makro içerir. Veriler kopyala-yapıştır yapılmadan, tek işlemle yer değiştirilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B4:E9 aralığında örnek veriler bulunur. B sütunundaki açıklama metni, hücrelerin alt-üst veya sol-sağ yer değiştirebileceğini belirtir. C ve E sütunlarında deneme için kullanılabilecek ad soyad bilgileri yer alır.
• Module1: SwapSelections adlı makroyu barındıran VBA modülüdür.

Sayfada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

SwapSelections makrosu, seçili iki hücrenin içeriğini karşılıklı değiştirir. Çalışma mantığı şöyledir:

• Seçimde tam olarak 2 hücre yoksa "Seçiminiz sadece 2 hücreyi içermelidir" uyarısı gösterilir ve makro sonlanır.
• Seçim birbirinden ayrı iki alandan oluşuyorsa (Ctrl ile seçim), her alanın ilk hücresi birbiriyle değiştirilir.
• Seçim iki hücrelik dikey bir aralıksa üstteki ile alttaki hücre yer değiştirir.
• Seçim iki hücrelik yatay bir aralıksa soldaki ile sağdaki hücre yer değiştirir.

Değerler önce iki değişkende tutulur, ardından çapraz biçimde hücrelere yazılır. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz. Makro hücre değerlerini değiştirdiği için işlem sonrasında Geri Al ile eski haline dönmek mümkün olmayabilir; önemli verilerde önce dosyanın yedeğini almanız önerilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Yer değiştirmek istediğiniz iki hücreyi seçin. Bitişik hücreler için fareyle iki hücreyi seçebilir, uzak hücreler için Ctrl tuşuyla ikisini ayrı ayrı işaretleyebilirsiniz.
3. Alt+F8 tuşlarıyla makro listesini açın, SwapSelections makrosunu seçip Çalıştır düğmesine basın.
4. İki hücrenin değerleri birbiriyle yer değiştirir.
5. Makroyu kendi dosyanızda kullanmak için Alt+F11 ile VBA düzenleyicisini açıp Module1 içeriğini kendi çalışma kitabınıza aktarın.