Checkbox Adresi alarak işlem yaptırma

[ahmedalikurt]

Merhaba,

Sayfada oluşturulan checkbox ile checkbox'ın yeraldığı hücrenin adresi üzerinden aynı satırda birtakım seçme silme işlemleri yapabilmek istiyorum.
Yani activecell.row şeklinde hücre üzerinden kullandığımız satır numarası alma olayını, checkbox in yeraldığı hücre üzerinden yapabilmek için soruyorum.

bunu sağlayan bi vb kodu var mı?

Teşekkürler..

 

[turist]

Örnek Excel tablonuzu Foruma ekleyip, isteğinizi sayfanızda tanımlarsanız, daha kolay ve doğru cevap bulabilirsiniz.

 

[ahmedalikurt]

Sadece tıkladığım textbox'un hücre adresini alabilmek istiyorum...
Şu kodla:

    Dim BtRng As Range
    Set Btnrng = ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell
    MsgBox Btnrng.Address

koduyla sayfadaki ilk checkbox'un adresini alıyorum. ancak bana tıkladığım cb'ın adresi lazım.

 

[turist]

Deneyin.
Dim Btnrng As Range
Set Btnrng = ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell
If Btnrng.Value = Checked Then
MsgBox Btnrng.LinkedCell
End If

 

[alicimri]

Eğer CheckBox larınız A sütunda ve bu sütundaki hücrelerden taşmıyorsa, aşağıdaki makroyu Modüle kopyalayın ve her CheckBox a bu makroyu atayın.

Sub s()
ad = ActiveSheet.Shapes(Application.Caller).Name
usts = ActiveSheet.Shapes(ad).Top
alts = ActiveSheet.Shapes(ad).Height + usts
If ActiveSheet.Shapes(ad).ControlFormat.Value = 1 Then
For Each huc In Range("A1:A10")
Usth = huc.Top
alth = huc.Height + Usth
If usts >= Usth And alts <= alth Then
MsgBox huc.Address
End If
Next
End If
End Sub

 

[ahmedalikurt]

Deneyin.
Dim Btnrng As Range
Set Btnrng = ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell
If Btnrng.Value = Checked Then
MsgBox Btnrng.LinkedCell
End If

Bu koda tepki vermiyor, If not Btnrng.Value = Checked Then yazarsam msgbox çalışıyor ama ilk checkbox'ın adresini gösteriyor yine.

 

[ahmedalikurt]

Eğer CheckBox larınız A sütunda ve bu sütundaki hücrelerden taşmıyorsa, aşağıdaki makroyu Modüle kopyalayın ve her CheckBox a bu makroyu atayın.

Sub s()
ad = ActiveSheet.Shapes(Application.Caller).Name
usts = ActiveSheet.Shapes(ad).Top
alts = ActiveSheet.Shapes(ad).Height + usts
If ActiveSheet.Shapes(ad).ControlFormat.Value = 1 Then
For Each huc In Range("A1:A10")
Usth = huc.Top
alth = huc.Height + Usth
If usts >= Usth And alts <= alth Then
MsgBox huc.Address
End If
Next
End If
End Sub

Sadece ilk checkbox'ta çalışıyor.... İlk checkbox seçili ise, diğerlerinde de sadece ilk checkbox un adresini göstermek suretiyle tepki veriyor, değilse hiç tepki yok.

 

[alicimri]

Ben A1:A10 arası her hücreye bir checkbox oluşturdum ve denedim. çalışıyor.

 

[ahmedalikurt]

Az önce ben de dediğiniz gibi bir dosya oluşturdum, sorunsuzca çalıştığını gözlemledim. Nedense benim dosyada bir sıkıntı oluşuyor. İlginiz için teşekkür ederim yine de. Sağolun.