AccessTr.neT
Kapalı Excel Son Satır No Bulma - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6


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 Sub


[Resim: do.php?img=9804]


Cvp: 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.