Çözüldü Şekil Sabitleme ya da Sütun Sabitleme

Feyzullah' Alıntı:

Her şekilin adı vardır önce bunların adını bilmeniz gerekiyor. Şekilin veya grubun adı diyelim ki "25 Grup" bu durumda aşağıdaki kodu kullanmak yeterli.

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(3 satır)

Genişletmek için tıklayın ...

Sayın Feyzullah Bey;

Kod çok iyi tam istediğim şekilde çalışıyor. Ancak tıkladığım hücreye değil de onun 4-5 satır aşağısına yada yanına veya hem 3 satır yanına hem 3 sütun altına şekil grubunu getirmek için kodu nasıl değiştirmeliyim? Target.top kısmını mı değiştirmem gerekli acaba?

Kusura bakmayın tekrar yazıyorum ancak bu kodla şekiller tıkladığım satıra göre aşağı yukarı hareket ediyor. Acaba tıkladığım hücrenin yakınlarına otomatik getirebilir miyiz?

Örneğin F12 hücresine tıklarsam grubu D15 hücresine (2 stun gerisi 3 satır aşağısı) getirsin
Z21 hücresine tıklarsam grubu aynı mantıkla X24 hücresine getirsin

gibi. Teşekkürler şimdiden.

Merhaba.
Sanırım Sayın @Feyzullah şu an müsait değil.
Kendisinin verdiği kod'dan hareketle aşağıdaki gibi düşünülebilir.
Kod'da adı Grup 4 olan şekil grubu, seçilen hücreye göre, yatay ve dikeyde,
kodda belirtilecek adette hücre kadar yatay/dikey konumlandırılır.
yatay ve dikey değişkenine verilecek pozitif sayılar sağa/aşağı, negatif sayılar ise sola/yukarı anlamına gelir.

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(13 satır)

Sayın @Ömer BARAN Bey;

Öncelikle ilgi ve alakanıza çok teşekkür ederim. Ben @Feyzullah Bey in şu kodlarını kullanmaktayım;


Zira verdiğiniz bu kodlar ne yazık ki bende çalışmadı. Yanılmıyorsam ilk satırdaki For Each xd in active... diye geçen satırda geçen "xd" ibaresini anlamıyor sistem.

Sayın @Ömer BARAN bey yine çözdünüz işimi. Çok teşekkürler. Harika çalışıyor kod.

Eyvallah, kolay gelsin.