checkbox hakkında

[asmirk]

Merhaba Arkadaşlar Makro Yazmaya yeni başlamış birisi olarak ustalarıma bir kolay sorum olacak. Bir checkbox modeli oluşturmak istiyorum. a2 hücresinde yazan yazı cek işaretine bastığım zaman mesela a7 hücresinde yazmasını istiyorum.Sonra cek işaretini kaldırdığım zamanda a7 hücresine yazılan silinsin istiyorum. Yazmayı becerdim fakat check box kodları hakkında çok bilgim olmadığım için herseferinde tıkladığımda cek işareti olsada olmasada a2 de yazanı yazabiliyor. Eğer bana bu konuda yardımcı olursanız çok sevinirim.

Saygılarımla...

 

[Orion1]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Range("A7").Value = Range("A2").Value
    Else
    Range("A7").Value = Empty
End If
End Sub

 

[asmirk]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Range("A7").Value = Range("A2").Value
    Else
    Range("A7").Value = Empty
End If
End Sub

Çok tesekkür ederim Evren Gizlen Fakat hata veriyor.

Compile Error

Expected Function or Variable

 

[Orion1]

Çok tesekkür ederim Evren Gizlen

Rica ederim.
İyi çalışmalar.

 

[asmirk]

Peki bunu onay kutusunda yapmak istersek ne yapmaliyiz?

Örnek ektedir

Saygilarimla..

 

[Orion1]

Dosyanız ekte.

Sub OnayKutusu1_Tıklat()
If Range("J20").Value = True Then
    Range("A7").Value = Range("A2").Value
    Else
    Range("A7").Value = Empty
End If
End Sub

 

[asmirk]

Dosyanız ekte.

Sub OnayKutusu1_Tıklat()
If Range("J20").Value = True Then
    Range("A7").Value = Range("A2").Value
    Else
    Range("A7").Value = Empty
End If
End Sub

Çok Tesekkür ederim sayin Evren Gizlen gecenin bu saatinde yardim ettiginiz için

Saygilarimla...

 

[Orion1]

Çok Tesekkür ederim sayin Evren Gizlen gecenin bu saatinde yardim ettiginiz için

Saygilarimla...

Rica ederim.
Saygılar benden.

 

[asmirk]

Son bir sorum daha olacakti sorumuda ekte sundum yardimci olursan1z yine çok sevinirim.

Saygilarimla...

 

[Orion1]

Dosyanız ekte

 

[asmirk]

Sevgili Evren Gizlen verdiginiz emege tekrar tesekkür ederim lakin siraya dizme olayinda sira arasinda bosluk kalmakta otomatik olarak siradan takip etmesi olabilir mi?Gelismis örnegi dosyada sundum yardim ederseniz çok sevinirim.

Simdiden yaptiginiz ve yapacaginiz yardimlar için tesekkür ederim

Saygilarimla...

 

[Orion1]

Dosyanız ekte.

 

[asmirk]

Dosyanız ekte.

Çok Tesekkür ederim sevgili Evren Gizlen.Formul ile yapmissiniz , sadece bilgi olarak sormak istiyorum bunu makro olarakta yapailir miyiz acaba? Birde formulun mantigini anlatabilir misiniz satir saylarin felan mantigini ögrenmek istiyorum yardimci olursaniz çok sevinirim.

Saygiliarimla...

 

[Orion1]

Makro ilde yapılabilir.Ancak her satıra bir Id no vermek gerekecektir.Satırsay fomülü ile en sondaki elde ettiğim sayıyı maksimum değeri kontrol etmek için kullanıyoum.Ve her indis formülünde kaçıncı formülünde id nosu için kullanıyorum.

 

[asmirk]

Çok tesekkür ederim sayin Evren Gizlen tek temmennim sizin gibi olup benim gibilere yardim etmektir. Tekrar Çok Tesekkürler

Içten Saygilarimla...

 

[asmirk]

Çok Tesekkür ederim sevgili Evren Gizlen.Formul ile yapmissiniz , sadece bilgi olarak sormak istiyorum bunu makro olarakta yapailir miyiz acaba? Birde formulun mantigini anlatabilir misiniz satir saylarin felan mantigini ögrenmek istiyorum yardimci olursaniz çok sevinirim.

Saygiliarimla...

Burada ki örneğimde bir türlü sayfa koruması yaptığımda onay kutumu işaretlememe izin vermiyor.

Ne denediysem bir türlü olmadı. Eğer yardımcı olabilirseniz çok sevinirim

Saygılarımla....