Çözüldü Çift Kilk ile dolgu yaptırmak

[k0081]

Merhaba arkadaşlar;

http://s7.dosya.tc/server13/6vcys8/Kitap1.xlsx.html

Link te vermiş olduğum dosyada belirlediğimiz bir renge göre; B4 den Çift klik ile dolgu nasıl yaptırabilirim ?

Ayrıca dolguyu silmek içinde Aynı kısma çift klik yapınca dolguyu kaldıracak...

istenen örnek tablo verilmiştir.

Dolgu aralığı : örneğin B4:G4 arasıdır...

* Bunu Tüm excel sayfalarında geçerli olacak şekilde *.xla biçiminde olması gerekiyor.

yardımcı arkadaşa şimdiden Teşekkürler.

 

[hamitcan]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    a = 19
    Set Alan = Range("B" & Target.Row & ":" & "G" & Target.Row)
    If Alan.Interior.ColorIndex = xlNone Then
    Alan.Interior.ColorIndex = a
    Else
    Alan.Interior.ColorIndex = xlNone
    End If
End Sub

 

[k0081]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    a = 19
    Set Alan = Range("B" & Target.Row & ":" & "G" & Target.Row)
    If Alan.Interior.ColorIndex = xlNone Then
    Alan.Interior.ColorIndex = a
    Else
    Alan.Interior.ColorIndex = xlNone
    End If
End Sub

[/QUOTE
Hocam Teşekkürler. Büyük ihtimalle çalışacaktır... telefon bağlanıyorum. Bunu farklı kaydedip eklenti şeklinde çalıştırabilirim sanırım..

 

[k0081]

Hamit hocam;

Bunu Eklenti olarak nasıl kaydederim. ben bir tane oluşturdum ama , çalışmadı.

 

[hamitcan]

Aşağıdaki kodu, Sayfanın, ThisWorkBook kısmına ekleyin. Sonra Excel Eklentisi olarak kaydedin.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    a = 19
    Set Alan = Range("B" & Target.Row & ":" & "G" & Target.Row)
    If Alan.Interior.ColorIndex = xlNone Then
    Alan.Interior.ColorIndex = a
    Else
    Alan.Interior.ColorIndex = xlNone
    End If
End Sub

 

[k0081]

Aşağıdaki kodu, Sayfanın, ThisWorkBook kısmına ekleyin. Sonra Excel Eklentisi olarak kaydedin.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    a = 19
    Set Alan = Range("B" & Target.Row & ":" & "G" & Target.Row)
    If Alan.Interior.ColorIndex = xlNone Then
    Alan.Interior.ColorIndex = a
    Else
    Alan.Interior.ColorIndex = xlNone
    End If
End Sub

Hocam teşekkür ederim, Tamamladım.. elinize sağlık.