sütündaki son sayısal veri

[kucukdunyam]

Sayfa2.Cells(2, 5) = Sayfa1.Range("a65536").End(3)

buradaki, Sayfa1.Range("a65536").End(3) kısmı, son veri değil de, son Sayısal Veri olarak nasıl değiştirebiliriz, A sütünundaki Son veri hücresi değil de, Son tarih yazan (sayısal olabilir) Veriyi almasını nasıl sağlayabiliriz.

 

[zafer]

Merhaba

Aşağıdaki kodları kullanabilirsiniz.

SON = Sheets("Sayfa1").Range("a65536").End(3).Row
ALAN = "A1:A" & SON
Sheets("Sayfa1").Cells(2, 5) = Application.WorksheetFunction.Lookup(9.999999999E+307, Range(ALAN))

 

[kucukdunyam]

Tarihi getirmede problem yaşadım, 01/01/1990 getirdi. yani benim söylemek istediğim, A sütünunda Tarih satırları var, bazı Satırlarda ise 'boşluk veya metin" Karakterleri var, dosyayı ekledim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub DipSayiyiBul()
a = Application.WorksheetFunction.Lookup(10 ^ 307, Sheets("giriş").Range("a:a"))
MsgBox Format(a, "dd.mm.yyyy")
End Sub

 

[zafer]

Merhaba


Ekli dosyayı inceleyiniz

 

[kucukdunyam]

evet bu işimi daha iyi gördü, çok teşekkürler.