Veritabanından satır silme

[Bosnalı Yasemin]

Merhaba.AŞağıdaki kod bir Personel kayıt programındaki SİL tuşuna ait satır silme kodudur. Bu kodu her şekilde kullanabiliyorum fakat kodun anlamını bilmiyorum !!!!! Lütfen bu kodu açıklar mısınız.. Ayrıca parantez içindeki -1 ve 2 yazan yerleri başka bir şekilde belirleyebilr miyim.



Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False)).Delete Shift:=xlUp

 

[Levent Menteşoğlu]

Komut dizesi: Activecell.Offset(satır,sütun).Address(False,False)

Activecell: İmleçin içinde bulunduğu aktif hücreyi ifade eder.

Satır: Ötelenecek satır sayısı. 0 ise yerinde, "-" ise geri, "+" ise ileri doğru öteleme değerini ifade eder.

Sütun: Ötelenecek sütun sayısı. 0 ise yerinde, "-" ise geri, "+" ise ileri doğru öteleme değerini ifade eder.

Address(False,False): Hücre adresini veren özelliktir. Parantez içindeki parametreler false yada true değerini alabilir ve hücre adresi sonucu verilirken "$" işaretinin durumunu belirler. Örneğin;

Range("A1").Address(False,False) : A1 sonucunu verir.

Range("A1").Address(True,False) : A$1 sonucunu verir.

Range("A1").Address(False,True) : $A1 sonucunu verir.

Range("A1").Address(True,True) : $A$1 sonucunu verir.

Offset: Bu özellik görece hücre adresi tanımlaması amacıyla kullanılır. Biraz daha açarsak, bir hücrenin yerini başlangıç adresi kabul ederek, bu hücreden belirtilen satır ve sütun değeri kadar ötelenmiş yeni bir hücreye ulaşma amacıyla kullanılmaktadır.

Örneğin aktif hücre B10 hücresi ise.

Activecell.Offset(0,0).Address(False,False) : B10 hücresinin kendisidir.

Activecell.Offset(1,0).Address(False,False) : B11 hücresidir.

Activecell.Offset(0,1).Address(False,False) : C10 hücresidir.

Activecell.Offset(-1,0).Address(False,False) : B9 hücresidir.

Activecell.Offset(0,-1).Address(False,False) : A10 hücresidir.

Activecell.Offset(1,2).Address(False,False) : D11 hücresidir.

Activecell.Offset(-1,2).Address(False,False) : D9 hücresidir.

Activecell.Offset(-3,-1).Address(False,False) : A7 hücresidir.

Komut dizesi: ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False)


Kırmızı ve mavi renki komut dizesinin anlamını yukarıda açıklamıştık. Bu komut dizesinde elde edilen iki adres ":" işareti ile birleştirilerek bir aralığı ifade eden bir adres tanımlamasına dönüştürülüyor. Örneğin; A1:B14 gibi

Komut dizesi: Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False))

":" işareti ile birleştirilen veri Range komutu ile bir aralığa dönüştürülüyor.

Komut dizesi: Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False)).Delete Shift:=xlUp

Delete: Bu fonksiyon belirtilen aralıktaki hücreleri silerek bir attaki yada üstteki hücre aralığını mevcut aralığın yerine taşır yada sürükler. Silinen aralığa taşınacak hücrelerin yerini Shift:=xlUp parametresi belirler. Eğer bu parametre xlUp ise alttaki hücreler yukarı, xlDown ise üstteki hücreler aşağı taşınırlar. Belirtilmezse sil penceresindeki seçili ayar hangisi ise sürükleme işlemi o yöne doğru gerçekleştirilir.