Mousla Tiklama

[taki20]

değerli ustalar elimde bir excell tablosu var örnekte sunduğum burda fiş takibi yapacağım ben benim istediğim şey mousla tıkladığında gelen fiş numarasını onun o hücrenin kırmızı dolguyla kaplanmasını istiyorum yani bu fiş geldi anlamında bunu bir türlü beceremedim yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ThisWorkbook kısmına uygulayıp denermisiniz. Hücrelere çift tıkladığınızda eğer hücre rengi yoksa kırmızı yapar. Kırmızı renkli bir hücrede çift tıklarsanız hücre rengini geri kaldırır. Umarım faydası olur.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [B2:AI49]) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Interior.ColorIndex = xlNone Then
    Target.Interior.ColorIndex = 3
    Else
    Target.Interior.ColorIndex = xlNone
    End If
End Sub

 

[taki20]

teşekkürler

hocam daha yeniyim bu sitede kod yapıştırma olayını nasıl yapacağım anlatabilirmisin bana çok sevinirim

 

[taki20]

teşekkürler

yaptım hocam gerek kalmadı ellerine sağlık ayrıca hocam bu captain order takibi için lazım sen bilirsin bu işleri aynı meslekteniz

 

[424242]

Merhaba

Ben de denedim ama yapamadım.Nasıl olduğunu detaylı olarak açıklar mısınız?
Yapıştırma sorununu çok yaşıyorum.Şimdiden teşekkür ederim.Kolay gelsin

 

[zafer]

Merhaba

ALT+F11 tuşlarına basınız açılan pencerede INSERT menüsünden moduleyi seçiniz.

Yeni bir module sayfası açılır kodlarınızı oraya yapıştırınız.

Aşağıdaki linkleri inceleyiniz.
Excelde Makro (Kaydetmek, Düzenlemek (Macro))1
Kod Yazmayı Öğreniyorum