Belirli Aralığa Nokta İşareti Koyma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

SilinenUye8231

Kullanıcı
Katılım
12 May 2019
Mesajlar
620
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın A ile P sütunları arasında verilerim mevcut.

Yapmak istediğim örneğin A5 hücresine nokta işareti koyduğumda bu noktayı P5 hücresine kadar nokta koymasını ve hücre yüksekliğini 6 piksel yapmasını istiyorum.
Eğer A5 hücresine nokta değilde başka veri girersem A5 ile P5 arasındaki noktaları silsin ve yüksekliği normal boyuta getirsin.
Biraz yapmaya çalıştım, kod hem uzun oldu hemde A hücresinden nokta işaretini silince P hücresine kadar silmesini yapamadım.

Yardımcı olur musunuz?
 

Ekli dosyalar

Aşağıdaki kodu, sayfanın kod bölümüne uygulayın.
.
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
 
Çözüm
Uygulamanın, 1'inci satır için geçerli olmasını istemiyorsanız kodun ilk satırını
If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub olarak değiştirmeniz yeterli olur.

.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt