"Tek tıklama" ile hücreye değer yazdırmak.

[arol11]

İyi günler ve iyi hafta sonu dileklerimle,
C sutununda herhangi bir hücreye "tek tık "yaptığımda ,B sutununda C deki tıklama satırının aynısına "ARAÇ" yazsın.Diyeyimki ,örneğin ,C15 hücresine "tek tık" yaptığımda B15 Hücresine "ARAÇ" yazsın.ve böylece C89 a "tek tık" ,B89 a "ARAÇ" yazmış olacak...... .Tüm C sutununda herhangi hücrelerde bu işlem devamlı yapılmış olacak.
Kolay gelsin.

 

[veyselemre]

Sayfa üzerinde tek tık olayı kontrol edilemiyor.

Aşağıdaki kodları sayfanın kod sayfasına ekleyin. Çift tıklama ile çalışır. Sağ tık ile de çalıştırabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(, -1) = "ARAÇ"
Target.Offset(, -1).Select
End Sub

 

[arol11]

Çok teşekkür ederim,sayın veyselemre bey
Fakat sağ tık ile nasıl kontrol ederim.Ben C sutununda deniyorum olmuyor.Çift tıkla oldu.Sağolasın.
İyi günler.

 

[Seyit Tiken]

Tek tıklamayla, aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c15:c89]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = "ARAÇ"
End Sub

 

[arol11]

Sayın veyselemre tammamdır.İzninizle bu soruyu şöylece yeniden sormak istiyorum.Diyeyimki C1 hücresine tıkladığımda B1 e 1.1.2007 yazsın,sonra C5 hücresine tıkladığımda B5 e 2.1.2007 ,C43 tıkladığımda B43 e 3.3.2007 ve bunun gibi tarihlendirerek devam etsin.Yani c sutununda ilk tıkladığım hücreye hernerdeyse ,B1 hücresine 1.1.2007 ,devamla C sutununda tıkladığım ikinci hücre için B sutununda 2.2.2007 ve üçüncü için 3.3.2007 ve devamala böyle gitsin.

 

[veyselemre]

@Seyit_Tiken'in dediği gibi SelectionChange olayına da yazılabilir.
Ayrıca sorunuzu daha önce niye bu haliyle sormadınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
    If Target.Row = 1 Then
        Target.Offset(, -1) = CDate("01.01.2007")
    Else
        Target.Offset(, -1) = Target.Offset(, -1).End(3) + 1
    End If
    Target.Offset(, -1).Select
End Sub

 

[arol11]

Çok haklısınız,fakat böyle sormakla makroyu kademe kademe çözmenin daha kolay olacağını ummuştum.Ki eğer çözüm olan basitse uygun bir formülle bu tarihlendirmeyi yapabilecektim.ki böyle bir makroyu sayın Geren hazırlamıştı ve sayın kombonun bir formülü vardı.
Eğer hatalı olmuşsam beni bağışlayınız.
Çok teşekkürler dilerim ve iyi haftasonu dileklerimle,kolay gelsin.