Soru hücre arkaplanina göre değiştir özelliği

[Reason01]

İyi günler. Sarı ve kırmızı olarak kullandığım 2 farklı hücre arka planları var. Sarı arka plana Excel yazacağım. Kırmızı olana Excel yazsam bile bunu exc olarak kısaltması istiriyorum. Macro ile bu yapılabilir mi ?

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Interior.Color = vbRed And Len(Target) > 0 Then Target = "Exc"
End Sub

 

[Reason01]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Interior.Color = vbRed And Len(Target) > 0 Then Target = "Exc"
End Sub

hocam ilginiz için teşekkürler ama ben yapamadım bunu. detay verebilir misiniz.

 

[ÖmerFaruk]

Bu işlemi yapmasını isteidğiniz sayfanız açıkken
Alt+F11 tuşlarına basın
Çıkan boş pencereye verdiğim kodu yapıştırın

Pencereyi kapatın
Excelinizi Makro İçerebilen Excel dosyası olarak kaydedin.

 

[Reason01]

Deneme y

Resim Deneme y kaydedildi Resim Yükle - Resim paylaş

resimyukle.org

istenilen tablonun resmini gönderiyorum. dediğinizi henüz yapamadım.renk panelinde 1. sütunun en üstü açık gri, 2. sutunun en üstü koyu gri. bu renkleri kullanıyorum

 

[ÖmerFaruk]

Dediğimin hangi kısmını yaptınız hangi kısmını yapamadınız?
Lütfen belirtir misiniz?

Bu işlemi yapmasını isteidğiniz sayfanız açıkken
Alt+F11 tuşlarına basın
Çıkan boş pencereye verdiğim kodu yapıştırın

Pencereyi kapatın
Excelinizi Makro İçerebilen Excel dosyası olarak kaydedin.

 

[Reason01]

Dediğimin hangi kısmını yaptınız hangi kısmını yapamadınız?
Lütfen belirtir misiniz?

şimdi tekrardan denedim bir değişim olmuyor alt+f11 ile açıp modül ekliyoruyorum. pencereyi kapatırken hayır deyip exceli makro iceren olaran kaydediyorum. ama tabloda değişim olmadı. yanlış yaptığım bir yer var sanırım

 

[ÖmerFaruk]

Benim yazığım mesajda module ifadesi geçmiyor ki !!

 

[Reason01]

Benim yazığım mesajda module ifadesi geçmiyor ki !!

o zaman şöyle belirtelim. alt+f11 ile açtığımda gri ekran cıkıyor ve oraya hiçbirşey yapışmıyor, ctrl v etki etmiyor. sağ sol tuş çalışmıyor. biraz daha detay verebilirseniz yapabilirim

 

[ÖmerFaruk]

Bir önceki mesajınızda MODULE eklediğinizi söylüyorsunuz.
Şimdi gri ekran var diyorsunuz.
Ben anlayamıyorum hangisi doğru.

Aşağıdaki resim, Excel sayfanız açıkkan Alt+F11 tuşlarına basınca basınca sizde çıkmıyor mu?

 

[Reason01]

Bir önceki mesajınızda MODULE eklediğinizi söylüyorsunuz.
Şimdi gri ekran var diyorsunuz.
Ben anlayamıyorum hangisi doğru.

Aşağıdaki resim, Excel sayfanız açıkkan Alt+F11 tuşlarına basınca basınca sizde çıkmıyor mu?

Ekli dosyayı görüntüle 230106

Hayır dediğiniz gibi ekran çıkmıyor. çıkan ekranı gönderiyorum

sn

Resim sn kaydedildi Resim Yükle - Resim paylaş

resimyukle.org

 

[ÖmerFaruk]

şimdi tekrardan denedim bir değişim olmuyor alt+f11 ile açıp modül ekliyoruyorum. pencereyi kapatırken hayır deyip exceli makro iceren olaran kaydediyorum. ama tabloda değişim olmadı. yanlış yaptığım bir yer var sanırım

Bu mesajınızda ekliyorum dediğiniz modulü nasıl eklediniz?

 

[Reason01]

Bu mesajınızda ekliyorum dediğiniz modulü nasıl eklediniz?

Yukarıdan insert - modüle basıp açılan beyaz ekrana yapıştır yapıp ardından kaydet - hayır - makro içeren Excel kaydediyorum

 

[ÖmerFaruk]

Ok.
Aynı gri ekranda
View sekmesi altında Project Explorer tıklayın (Ayrıca Gri ekrandayken Ctrl +R aynı sonucu verecektir)
Excel dosyanızı ve altında sayfaları göreceksiniz.
Konumuzla ilgili olan Excel dosyanızın altındaki ilgili sayfanın üstüne gelip Sağ tıklayın
En üstte View Code
Açılan pencereye ilk dediğim işlemleri yapın

 

[Reason01]

Ok.
Aynı gri ekranda
View sekmesi altında Project Explorer tıklayın (Ayrıca Gri ekrandayken Ctrl +R aynı sonucu verecektir)
Excel dosyanızı ve altında sayfaları göreceksiniz.
Konumuzla ilgili olan Excel dosyanızın altındaki ilgili sayfanın üstüne gelip Sağ tıklayın
En üstte View Code
Açılan pencereye ilk dediğim işlemleri yapın

kırmızı alanda her yazılanı Exc yapıyor fakat buda. belirli kelimelere göre nasıl yaparız ? Mesela sadece excel yazdığımda kısalsın.

 

[ÖmerFaruk]

If Target.Interior.Color = vbRed And Len(Target) > 0 Then Target = "Exc"
If Target.Interior.Color = vbRed And Target="Excel" Then Target = "Exc"

 

[Reason01]

Teşekkürler sorun çözüldü