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

Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
İ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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Interior.Color = vbRed And Len(Target) > 0 Then Target = "Exc"
End Sub
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
C++:
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe

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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Benim yazığım mesajda module ifadesi geçmiyor ki !!
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
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?

230106
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
ş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?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
If Target.Interior.Color = vbRed And Len(Target) > 0 Then Target = "Exc"
If Target.Interior.Color = vbRed And Target="Excel" Then Target = "Exc"
 
Katılım
3 Eylül 2021
Mesajlar
30
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 / Türkçe
Teşekkürler sorun çözüldü
 
Üst