Hücre Biçimine Göre Makro Çalıştırma

[evuye2]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba,
Belirli bir aralıkta hücrelerden birine çift tıklandığında takvim seçici (datepicker) açan bir kod var.

Burada her hangi bir hücreye veya belirli aralıkta hücrelere çift tıklandığında tarih seçme penceresini açtırıyor.
Bunu projeme uyarladım fakat benim ihtiyacım olan;
belirli aralıkta hücrelere değil de hücrenin biçimine göre bunu çalıştırmak. Yani çift tıklanan hücre biçimi "tarih" ise kodu çalıştırsın istiyorum.
Bu nedenle de böyle olan kodu:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

şu şekilde değiştirdim:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

ama olmadı.

Ve bu da olmadı:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

Hücre biçimine göre kodu çalıştırmayı nasıl sağlayabilirim. Destek olursanız çok sevinirim.

 

Değişken Hücredeki Değerleri Yazdırma

Karakter Ayıklama ve Arama Yapma

[52779]

Selamlar,
İlk kod bloğundaki Takvim.Show yerine

If IsDate(Target) Then Takvim.Show

ya da
If IsDate(Target) Then
Takvim.Show
End If

şeklinde yazarak deneyin...

 

[evuye2]

Kodu görünce çok mantıklı geldi ama maalesef çalışmadı. Neden acaba?

 

[52779]

dosyanızdaki kodu aşağıdaki şekilde yazın...

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

mesajınızdaki kodu da aşağıdaki şekilde yazabilirsiniz...

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

 

[evuye2]

Mesajdaki kodun bir önemi yok artık.
Dosyadaki kodu dediğiniz şekilde yazdım zaten ama çalışmıyor.

Şöyle bir kod buldum,

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

işe yaradı.

Sizinki daha basit, mantıklı ve bundan hızlı çalışacak bir koda benziyordu ama nedense olmadı.
Yine de teşekkür ederim. Elinize sağlık.

 

[52779]

Dosyanız ekte.
Tarih yazan hücreye çift tıklayın takvim açılıyor. (Açılan takvim Bugünü gösteriyor)
Boş olan hücreye çift tıklayın, takvim açılmaz.

Kod : bir önceki mesajımda yazan koddur.

 

[evuye2]

Yanlış anlaşılma olmuş sanırım. Hedef hücrenin biçiminin tarih olmasıydı önemli olan. Yani "boş hücre de olsa biçim tarih olursa istediğimizi yapsın" şeklindeydi kurgu. Bu kodda hücre içeriğine bakıyor anladığım kadarıyla biçimine değil.
Teşekkürler

 

[52779]

Demek ki ben yanlış anlamışım..
Hücre içeriğinde tarih olması şeklinde anlamışım..

 

[Ömer BARAN]

21 Ekim 2020 Çarşamba gibi BOŞLUK karakteri kullanılmadan biçimlendirme yapılıyorsa
(örneğin gg/aa/yyyy, g/a/yy, gg.aa.yyyy gibi biçimlendirme yapılıyorsa)
hücre boş da olsa; kodun başına aşağıdaki satırın eklenmesi yeterli olur ve sadece TARİH olarak biçimlendirilmiş hücrede
çift tıklama yapıldığında TAKVİM açılır.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

.

 

[evuye2]

İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

Bu şekilde yaptım. Herhangi bir hata vermedi çalışıyor görünüyor. Umarım doğru yere eklemişimdir.

 

[Ömer BARAN]

Koddaki iki adet If.... satırı aşağı yukarı aynı anlama geliyor.
Bence sadece benim gönderdiğim kod satırı yeterlidir ( Cancel = True satırı kasın ) .

.