Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-08-2017, 10:35   #1
bektafig
 
Giriş: 19/08/2015
Şehir: ANKARA
Mesaj: 3
Excel Vers. ve Dili:
Office 2010
Exclamation İmlecin Olduğu Hücrenin Yeşil Kenarlığını Daha Kalın ve Kırmızı Yapmak

Merhabalar

Sorum Şudur

Resimdeki Yeşil olan herhangi hücreye tıkladığımızda orayı belirten bu kenarlık - belirteç - imleç her neyse bunun rengini değiştirebiliyormuyuz?



Amacım Tıklandığında hangi hücrede olduğumuzu daha net görebilmek. Göz sıkıntısı olan bir arkadas var lenovo 15.6" pc de tıklayınca göremiyormuş. Mouse ile nereyi seçtiğini


Windows 10 Kullanıyorum baya araştırdım dün Windows Tema - Renk seçeneklerinden windows un yapman lazım denilmiş ama Komple tema değiştirip kaldırsam dahi olmuyor


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Cells.Interior.ColorIndex = 3 ' Hücre Rengi
End Sub
En yakın olarak bu kodu buldum ama her açtığım excel dosyasında bu kodu otomatik çalıştırmayı başaramaz bahsettiğim kişi.

Şayet bir ayarı varsa şu yeşili kırmızı yada mavi falan yapabilirsek minnettar kalırım.

Saygılarımla
bektafig Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 10:52   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,698
Excel Vers. ve Dili:
2010-2016
Varsayılan

Bu kodu sayfa kodlarına eklerseniz otomatik çalışır zaten. Renk olarak farklı bir renk istiyorsanız, boş bir excelde bir hücreye istediğiniz biçimlendirmeyi manuel yaparak yüklerseniz o şekilde yapabiliriz.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 09:48   #3
bektafig
 
Giriş: 19/08/2015
Şehir: ANKARA
Mesaj: 3
Excel Vers. ve Dili:
Office 2010
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Bu kodu sayfa kodlarına eklerseniz otomatik çalışır zaten. Renk olarak farklı bir renk istiyorsanız, boş bir excelde bir hücreye istediğiniz biçimlendirmeyi manuel yaparak yüklerseniz o şekilde yapabiliriz.
Manuel değilde

Mesela Otomatik olarak yeşil yerine çerçevesi bulunduğun çerçeve koyu kırmızı olacak

böyle bir şey gerekli
bektafig Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 10:24   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,743
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Dinamik hücre renklendirme işlemleri için makro kullanmanız gerekir.

Kodu siz arkadaşınızın dosyasına uyarlayın. Makro güvenlik seviyesini de DÜŞÜK olarak ayarlarsanız dosya açılışında kodlar otomatik devreye girer.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 10:30   #5
Seyit Tiken
Uzman
 
Seyit Tiken kullanıcısının avatarı
 
Giriş: 22/08/2005
Şehir: MARDİN
Mesaj: 3,643
Excel Vers. ve Dili:
Excel : 2010
Varsayılan

B şekilde bir deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders(xlInsideVertical).LineStyle = xlNone
Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).Color = -13339648
Selection.Borders(xlEdgeTop).Color = -13339648
Selection.Borders(xlEdgeBottom).Color = -13339648
Selection.Borders(xlEdgeRight).Color = -13339648
End Sub
__________________
Sizi, Boş Yere Yarattığımızı ve Bize Döndürülmeyeceğinizi mi Sandınız? (Müminun-115)

Ve Kim Benim Zikrimden Yüz Çevirirse, O Taktirde Mutlaka Onun İçin Sıkıntılı Bir Geçim (Hayat) Vardır. Ve Kıyâmet Günü Onu, Kör Olarak Haşredeceğiz (Tâhâ-124)

İnsanın En Büyük Dostu Allah'tır - (MİHR)
Seyit Tiken Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 10:48   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,698
Excel Vers. ve Dili:
2010-2016
Varsayılan

Bahsettiğiniz yeşil renk değişmiyor diye biliyorum. Yukarıda arkadaşın eklediği kod ise çerçeve rengini değiştirmek. Yalnız bu renk zaten aktif hücrede yeşil rengin altında kaldığı için gözükmeyecektir.

Alternatif olsun.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.Color = xlColorIndexNone
Cells.Interior.ColorIndex = xlColorIndexNone

ActiveCell.Cells.Interior.ColorIndex = 3
With Selection
        .Borders.LineStyle = xlNone
        .Borders.LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders.Color = ColorConstants.vbRed
End With
End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 23-08-2017, 09:29   #7
bektafig
 
Giriş: 19/08/2015
Şehir: ANKARA
Mesaj: 3
Excel Vers. ve Dili:
Office 2010
Varsayılan

Cevaplar için çok teşekkür ederim.

VBA-Kodlar konusunda pek bilgim yok.

Basit bir şekilde herhangi uyarı almadan( Bu sayfa makro çalıştırıyor vs ) nasıl PC'de excel olan tüm dosyalar ile açılmasını sağlayabilirim?
bektafig Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-08-2017, 09:52   #8
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,743
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Merhaba,

Kodları eklenti haline getirip excele bir kez tanıtırsanız kendi bilgisayarınızda otomatik olarak her dosyada çalışır.

Linkleri inceleyiniz.

http://www.excel.web.tr/f60/eklenti-...xla-t7756.html
http://www.excel.web.tr/f60/hazyrlan...ym-t61736.html
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-08-2017, 20:59   #9
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,896
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Bu konuda bir hatırlatma yapmak istiyorum.

Bu tip sayfa nesnesi üzerinde işlem yapan olayları normal bir eklenti olarak kaydedip çalıştıramayız. Bu kodların application nesnesine yani Excelin kendisine yazılması gerekir. Bunun içinde class modül kullanmak gerekecektir. Yani çok basit bir uygulama değildir. Aşağıdaki linkte bununla ilgili bir örnek bulabilirsiniz.

http://www.excel.web.tr/f48/eklenti-...ak-t27341.html
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:23


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden