Kapalı dosyada son dolu olan son satır.

[acolkesen1]

Merhaba,
Aşağıdaki kod ile kapalı olan dosyada [a2] deki veriyi alıyorum. a sütunundaki son dolu satırdaki veriyi(sıra numarası) almak için nasıl bir değişiklik yapmak gerekiyor?
İlgilenen arkadaşlara teşekkür ederim.

Set baglanti = CreateObject("ADODB.Connection")
Yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & [s!a224] & ";Extended Properties=""Excel 8.0;HDR=no"";"
baglanti.Open Yol
Set rs1 = baglanti.Execute("select*from [HAT$A2:A2]")
[CO2].CopyFromRecordset rs1

If rs1.State = 1 Then rs1.Close
baglanti.Close

 

[Emir Hüseyin Çoban]

. . .

Kapalı dosyada bir defaya mahsus değişiklik yapma imkanınız varsa.
Herhangi bir hücreye BAĞ_DEĞ_DOLU_SAY veya MAK vb. gibi formüllerle son veriyi aldırıp.
Kodlardaki A2 alanını bu hücreye ayarlayarak yapabilirsiniz.

. . .

 

[acolkesen1]

Merhaba Hüseyin Çoban,
Uzun kodlar yerine kolay ve akıllıca bir çözüm.İlginiz için teşekkür ederim.
Esenkalın.