Hücre Rengi

[suroguz]

Selamlar
Excel sayfasında herhangi bir hücreye her tıklamamda hücre rengi istediğim bir renge dönüşsün. Bu özelliği eklenti olarak kullanmak istiyorum.
Yardımlarınız için şimdiden teşekkürlerimi sunarım.
Saygılar sunarım.

 

[Metin Karaağaç]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

 

[suroguz]

hücre rengi

İlginiz için teşekkürler
Gönderdiğiniz kotları uygulamaya çalıştım. Sonuca bir türlü ulaşamadım. Örnek bir dosya veya kodlarıı nasıl uygulayacağımı detaylı anlatırsanız çok memnun olurum.
Saygı ve sevgilerimi sunarım.

 

[excelbestt]

İyİ ÇaliŞmalar Sİtenİze Yenİ Üye Oldum Ve BayaĞi Bİ Katkisi Oldu İnŞallah İlerleyen Tarİhlerdede

BÖyle Devam Edecek

Sİzden Bİr Şey Sormak İstİyorum İnŞallah Yapa Bİlİrsİnİz

GÜnlÜk Banka İŞlemlerİnİ SÜreklİ İnternete Gİrerek Ve Bankalari GÜncelleyerek Takİp Etmek Zorunda Kaliyorum Excelde Bİr Tabla OluŞtursam Bu Tablo İnternettek Hesabima BaĞlansa Ve TÜm İŞlemlerİ Ve DeĞİŞİklİklerİ Bana Tutarlariyla Bİldİrse Yanip SÖnerek Veya Bİr TÜr Uyariyla Bu Arada İnternet Sİtesİ Belİrlİ BİrsÜre KullanilmadiĞinda Kapanacaktir Buna Engel Olmak İÇİnde İnternet Sİtesİnİ MeŞkul Etmesİ Gerekmekte Sİtede Genİnİyor Havasi Vermekte Olmali

Bu İŞlemİn GerÇekleŞe BİleceĞİİ Bİlİyorum Bunu Bİr Bankada GÖrdÜm Excel Tablosuna GÜncel İnternettekİ Bİlgİler Aktariliyordu Bunu Bende Kendİ Bİlgİsayarimda Yapmak İstİyorum

Bu İŞlemİ Her 1 Dakİkada Bİr GÜncellemesİ Gerek

 

[mehmett]

Sn excelbesst

Foruma hoşgeldiniz. Farklı konulardaki sorularınızı yeni bir başlık açarak sorunuz. Yukarıda sorduğunuz sorunun bu başlıktaki diğer soruyla pek ilgisi yok.

 

[Seyit Tiken]

Kodu deneyiniz.

Private Sub SpinButton1_Change()
On Error Resume Next
With Selection.Interior
.ColorIndex = [a1]
End With
End Sub

 

[Metin Karaağaç]

Eklenti hazırlamak için ekte gönderdiğim dosyayı "farklı kaydet" deyip, dosya türü olarak "microsoft office excel eklentisi"ni seçmelisiniz.(en alttaki seçenek)
daha sonra, araçlar/eklentiler i tıklayıp, kaydettiğiniz dosyayı bulup işaretlemeniz ve tamam diyerek kapatmanız gerekir.
en son olarak da dosyayı kapatıp, tekrar açmalısınız.

eğer rengi beğenmediyseniz, dosyanın içinde bulunan koddaki rakamı değiştirmeniz gerekir. (1 den başlayıp kaça kadar gidiyordu unuttum...)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = x1none
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

 

[suroguz]

Değerli Arkadaşlar yardımlarınız için teşekkürler
Gönderdiğiniz örnek dosyayı inceledim. Dedğiniz gibi farklı kaydet ten eklenti olarak kaydettim. Yeni bir dosya açıp eklentiyi çağırdım. Ama aynı sonuca bir türlü ulaşamadım. Sorun nerden kaynaklandı acaba bilemiyorum. Bu eklenti yöntemi ile bu özelliği her dosyada kullanabilmem gerekiyordu.
Yardımlarını için şimdiden teşekkürler.
Saygılar

 

[yasso38]

Option Explicit

Dim OldTarget As Range
Dim OldTargetColor As Integer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not OldTarget Is Nothing Then
OldTarget.Interior.ColorIndex = OldTargetColor
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Const HighlightColor = 5 'Bu değeri değiştirerek farklı renk atayabilirsiniz.
If OldTarget Is Nothing Then
Set OldTarget = Target
OldTargetColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = HighlightColor
Else
OldTarget.Interior.ColorIndex = OldTargetColor
OldTargetColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = HighlightColor
Set OldTarget = Target
End If
End Sub

Bir de bu kodu deneyin. (ThisWorkbook kısmına)