Çözüldü Makro ile hücre verilerini taşıyarak hareket ettirme

[sfgkbrn]

Merhabalar,

Arama kısmından aradım bazı sonuçlar ile karşılaştım fakat tam olarak istediğimi elde edemedim, eğer doğru konu başlığı var ise bana göndererek yardımcı olabilirseniz sevinirim.

https://docs.google.com/spreadsheets/d/1P3U4p9PYUOG1G2uNRdqRFloJCKH4dqOI/edit#gid=134361083

Yukarıda verdiğim örnekte ki bir rotasyon yapmak istiyorum.
kısacası oklara bastığım zaman Team hücrelerinde ki numaraların yer değiştirerek dönmesini istiyorum
D3 deki E3'e E3 deki E3 deki F3'e
F3 deki F5 ye F5 deki E5 ye E5 deki D5'e D5 deki tekrar D3 gidecek şekilde makro yazmak istiyorum. Mantığını söyleyebilirseniz ben kendimde yazmaya çalışabilirim.

Yardımlarınız için Teşekkürler

 

[sfgkbrn]

Bir Youtube video'sunda tam olarak istediğim mevcut, dilerseniz onu örnek olarak da gösterebilirim. Şuan link paylaşmam doğrumu değil mi bilmiyorum?

 

[sfgkbrn]

Sanırım yardım edebilecek kimse yok. Makroyu yazabilmem için hangi konu başlıklarını araştırmam lazım onun bilgisini verirseniz ona göre araştırıp kendim yazmaya çalışıyım...

 

[veyselemre]

Linkteki dosyanıza erişim verilmemiş !

Sub saatYonuneDondur()
    Dim rng(), i%, tmp
    rng = Array([D3], [E3], [F3], [F5], [E5], [D5])
    tmp = rng(5).Value
    For i = 5 To 1 Step -1
        rng(i).Value = rng(i - 1).Value
    Next i
    rng(0).Value = tmp
End Sub

Sub saatYonuTersineDondur()
    Dim rng(), i%, tmp
    rng = Array([D3], [E3], [F3], [F5], [E5], [D5])
    tmp = rng(0).Value
    For i = 0 To 4
        rng(i).Value = rng(i + 1).Value
    Next i
    rng(5).Value = tmp
End Sub

https://dosya.co/s7fbpms1i7d2/hucrelerdekiVerileriKaydır_saatYonune_tersine_rotasyon.xlsm.html

 

[sfgkbrn]

Linkteki dosyanıza erişim verilmemiş !

Sub saatYonuneDondur()
    Dim rng(), i%, tmp
    rng = Array([D3], [E3], [F3], [F5], [E5], [D5])
    tmp = rng(5).Value
    For i = 5 To 1 Step -1
        rng(i).Value = rng(i - 1).Value
    Next i
    rng(0).Value = tmp
End Sub

Sub saatYonuTersineDondur()
    Dim rng(), i%, tmp
    rng = Array([D3], [E3], [F3], [F5], [E5], [D5])
    tmp = rng(0).Value
    For i = 0 To 4
        rng(i).Value = rng(i + 1).Value
    Next i
    rng(5).Value = tmp
End Sub

https://dosya.co/s7fbpms1i7d2/hucrelerdekiVerileriKaydır_saatYonune_tersine_rotasyon.xlsm.html

Kusura bakmayın görselde size gösteremediğim için. atlamışım izin verilmesini.
Çok teşekkür ederim tam olarak istediğimi vermişsiniz bana minnettarım size.