Mousla Tiklama

Katılım
7 Aralık 2006
Mesajlar
9
Excel Vers. ve Dili
office2000
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.


Kod:
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
 
Katılım
7 Aralık 2006
Mesajlar
9
Excel Vers. ve Dili
office2000
teşekkürler

hocam daha yeniyim bu sitede kod yapıştırma olayını nasıl yapacağım anlatabilirmisin bana çok sevinirim
 
Katılım
7 Aralık 2006
Mesajlar
9
Excel Vers. ve Dili
office2000
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
 
Katılım
5 Mart 2007
Mesajlar
33
Excel Vers. ve Dili
OFİS 2003 EXCEL.COM.TR
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Üst