Kodlarıma Uygulamak İstediklerim

[hakki83]

Merhabalar

Genel olarak dosyalarımdaki kodlarıma uygulamak istediğim iki şey var:

Birincisi;

Kodların en başına; seçtiğim alanın son dolu satırına kadar olan bölümünü otomatik seçip Selection.Clear kodu uygulamak. Yani kodlar başlamadan önce istediğim alanı temizlemek.


İkincisi;

Kodların en sonuna; seçtiğim alanın son dolu satırına kadar olan bölümünü otomatik seçip Borders.Color = rgbSilver kodu uygulamak. Yani gri renkli çerçeveli yapmak.

Sayfanın adının GENEL olduğunu,
İşlemleri yapmak istediğim alanın ise F1:H alanı olduğunu varsayalım.

Bu bilgilere göre kodları ayrı ayrı oluşturabilir miyiz?

Teşekkürler

 

[hamitcan]

Birinci sorunuz için deneyiniz.

Range("f1:h"&[h65536].end(3).row).clear

 

[hamitcan]

İkinci sorunuz için deneyiniz.

sonsatir = [h65536].End(3).Row
Range("f" & sonsatir & ":h" & sonsatir).Borders.Color = rgbSilver

 

[hakki83]

65536 sayısını 1048576 olarak değiştirmemiz gerekir mi hocam. Bir de önce birinci kod olmamıştı. Sonra oldu. Şimdi ikinci kod sadece en son satırı çerçeveliyor.

 

[hamitcan]

1. 1048576 olarak da yazabilirsiniz.
2. Sorunuz bu şekildeydi...

 

[hakki83]

Çok teşekkür ederim.

 

[hamitcan]

Tüm alana uygulamak için;

sonsatir = [h65536].End(3).Row
Range("f1:h" & sonsatir).Borders.Color = rgbSilver