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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 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
 
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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 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?

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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 Türkçe
ş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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 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
 
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

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,822
Excel Vers. ve Dili
Ofis 365 Türkçe
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