Çözüldü 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

 

[muratboz06]

Deneyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Patron]

Altenatif.
Başa;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

sona;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ekleyin.

 

[hakki83]

Altenatif.
Başa;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

sona;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ekleyin.

Sayın muratboz06 hocam ve sayın Balta hocam teşekkürler.

Balta hocam şu konuyu öğrenmek istiyorum; müsait olduğunuzda bir tane de ss şeklinde tanımlama yapmadan, hatta sayfa ismini de direkt Sayfa1 olarak yazarak, sadece F1:H alanı için tek satırlık kod yazar mısınız?

Yani daha açık dile getireyim. Sürekli gördüğüm End(3).Row ya da End(xlup).Row’un ne olduğunu, nasıl yazıldığını, en sade en basit halini öğrenmeye çalışıyorum. Fakat kodlar karışık olunca anlayamıyorum. Tek satır olarak örnekler yazılırsa, hazır konu açılmışken, son dolu satıra hücreye kadar seçmeyi öğrenebilirim diye düşünüyorum.

 

[Patron]

End(3).Row ya da End(xlup).Row terimlerindeki
3 yada xlup terimleri yapılacak işlemin yönünü belirtir.
Bunlar VBA kütüphanesinde xlDirection sınıfının parametreleridir.
Row ise işlemin satırlada yapılacağını işaret eder.
xlup ve diğer parametrelerin sayısal karşılıkları da aşağıdaki gibidir.
1 = xlLeft
2 = xlRight
3 = xlUp
4 = xlDown
son satır bulma ile ilgili olarak aşağıdaki konuyu inceleyiniz.

Eğitim - Son satırı bulma

SonSatir01 = Cells(Rows.Count, 1).End(xlUp).Row SonSatir02 = Range("A1048576").End(xlUp).Row SonSatir03 = Range("A:A").End(xlDown).Row SonSatir04 = Columns(1).End(xlDown).Row SonSatir05 = Cells(14, 1).End(xlDown).Row SonSatir06 = Range("A14").End(xlDown).Row SonSatir07 = Cells(18...

excelcozum.com

örnek:
ss = Sheets("GENEL").Cells(Rows.Count, 6).End(xlUp).Row
kodunda;
Sheets("GENEL") = İşlem yapılacak sayfa
Cells =işlemi hücrelerde yap
Rows.Count=sayfanın en son satır sayısı
6 =işlemi 6. sütunda yap
End(xlUp)=işlem yönü aşağıdan yukarı doğru
Row=İşlemi satırlarda yap.

Sheets("GENEL").Range("F1:H" & ss)
"F1:H": burada ise F1 den Başlayan ve sonu H sütununda değişken olan bir alan tanımlıyoruz.
sonu ise yukarıdaki ss değişkeni ile buldurup koda ilave ediyoruz. Range("F1:H" & ss) oluyor.
yani ss (6. sütundaki son dolu satır)= 10 ise alanımız Range("F1:H10") olmuş oluyor.
bundan sonrasında bu alan ile ne yapcağınız size kalmış.
Sheets("GENEL").Range("F1:H" & ss) ifadesinin sonuna
. select
.clearcontents
.delete
vs.
ifadeler ekleyip istediğinizi yaparsınız.