Veri Girişiyle Kenarlık Atma

[mc_exrem]

merhabalar

Ekteki dosyamın ABAY sayfasının:

- A5 hücresine veri girişiyle A5:I5 etrafına dış kenarlık atmasını
- K5 hücresine veri girişiyle K5:S5 etrafına dış kenarlık atmasını istiyorum.

Yardımcı olabilir misiniz.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

 

[mc_exrem]

Bu şekilde deneyiniz.

ilginiz için teşekkür ederim.
Belirtmeyi unutmuşum sadece alt kenarlık değil de 4 kenarına da kenarlık istiyorum. Bir de 500. satıra kadar uygulamak istiyorum. Yardımcı olabilir misiniz

 

[Korhan Ayhan]

Merhaba,

İşlemi koşullu biçimlendirme ile rahatlıkla yapabilirsiniz.

A5:I500 aralığını seçin.
Koşullu biçimlendirme menüsünü açın.
Yeni koşul seçeneğini seçin.
"Biçimlendirilecek Hücreler İçin Formül Kullan" seçeneğini seçin.
Altta açılan formül kutusuna aşağıdaki formülü uygulayın.

=$A5<>""

Aynı ekranda BİÇİM butoununa tıklayın.
KENARLIK sekmesine gelin ve tüm kenarlığı işaretleyin. TAMAM tuşuna basarak işlemi tamamlayın.

Aynı işlemi diğer hücre aralığı içinde uygulayın.

 

[mc_exrem]

Merhaba,

İşlemi koşullu biçimlendirme ile rahatlıkla yapabilirsiniz.

A5:I500 aralığını seçin.
Koşullu biçimlendirme menüsünü açın.
Yeni koşul seçeneğini seçin.
"Biçimlendirilecek Hücreler İçin Formül Kullan" seçeneğini seçin.
Altta açılan formül kutusuna aşağıdaki formülü uygulayın.

=$A5<>""

Aynı ekranda BİÇİM butoununa tıklayın.
KENARLIK sekmesine gelin ve tüm kenarlığı işaretleyin. TAMAM tuşuna basarak işlemi tamamlayın.

Aynı işlemi diğer hücre aralığı içinde uygulayın.

Teşekkür ederim ama 500.satıra kadar uygulamıyor sadece 5. satıra uyguluyor bu

=$A5<>""

 

[Korhan Ayhan]

Bahsettiğim adımları dikkatlice uygularsanız istediğiniz sonuca ulaşacaksınız.

 

[Korhan Ayhan]

Ayrıca linkte örnekler var. İnceleyiniz.

Veri Girildikçe Hücre Kenarlıklarının Çizilmesi

Merhaba arkadaşlar. Aşağıdaki kodu forumda buldum. Kendi dosyama uyarladım ama kenarlıkları çizmiyor. A ve Q sütunları arasında veri giriliyor. Yardımcı olursanız sevinirim. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a6 :a65536]) Is Nothing Then Exit Sub If...

www.excel.web.tr

 

[mc_exrem]

Bahsettiğim adımları dikkatlice uygularsanız istediğiniz sonuca ulaşacaksınız.

Teşekkür ederim kafayı yiyecektim ama sonunda yaptım