+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kapalı Excel Son Satır No Bulma (/konu-kapali-excel-son-satir-no-bulma.html)
Cvp: Ado İle Kapalı Excel Son Satır No Bulma - feraz - 06/03/2020
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-excel-dosyasindan-veri-cekme/
Cvp: Ado İle Kapalı Excel Son Satır No Bulma - feraz - 06/03/2020
(06/03/2020, 22:43)berduş yazdı: Geçmiş olsun.Sağol abey.
Cvp: Ado İle Kapalı Excel Son Satır No Bulma - feraz - 07/03/2020
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?
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 SubCvp: Kapalı Excel Son Satır No Bulma - berduş - 07/03/2020
ADO ile doğrudan olmaz bence, ama dolaylı yoldan döngüler ile olabilir belki.
Cvp: Kapalı Excel Son Satır No Bulma - feraz - 07/03/2020
(07/03/2020, 13:15)berduş yazdı: ADO ile doğrudan olmaz bence, ama dolaylı yoldan döngüler ile olabilir belki.Önceki mesajı okuyunuz abey.Sorun giderildi.
Sadece accesse kıdu ekkeyip denemek gerekiyor onuda deneyeceğim sonra.
Cvp: Kapalı Excel Son Satır No Bulma - berduş - 07/03/2020
Okudum ama şu an deneyemeyeceğim için onunla ilgili bir yorumda bulunmadım.