Alttaki linkte açıklama yapmış teferruatlıca.
CountA dşye fonksşyon var excelde bununla boşmu dolumu diyede aratılıyor beraber kullanılıp.
https://www.gokhanca.com/kapali-bir-exce...eri-cekme/
Kapalı Excel Son Satır No Bulma
Berduş hocam artık Ado ile olmayacağına göre ExecuteExcel4Macro ile yaptım Excel olarak.
Access ile bakalım olacak mı?
Bu arada konu başlığını Ado yerine ExecuteExcel4Macro olarak değiştirilebilinir mi?
Access ile bakalım olacak mı?
Bu arada konu başlığını Ado yerine ExecuteExcel4Macro olarak değiştirilebilinir mi?
Kod:
Private Sub CommandButton1_Click()
Dim TamAd As String
TamAd = "'" & ThisWorkbook.path & "\[kapali.xlsx]Sayfa1'!"
MsgBox Mid(TamAd, 2, Len(TamAd) - 3) & vbNewLine & "-----------------" & vbNewLine & "A Sütunu Son Satir Numarasi: " & Application.ExecuteExcel4Macro("LOOKUP(2,1/(" & TamAd & "C1<>""""),ROW(" & TamAd & "C1))") & _
vbNewLine & "A Sütunu Son Deger: " & Application.ExecuteExcel4Macro("LOOKUP(2,1/(" & TamAd & "C1<>"""")," & TamAd & "C1)")
End Sub
ADO ile doğrudan olmaz bence, ama dolaylı yoldan döngüler ile olabilir belki.
Okudum ama şu an deneyemeyeceğim için onunla ilgili bir yorumda bulunmadım.
Konuyu Okuyanlar: 1 Ziyaretçi