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
ADO ile doğrudan olmaz bence, ama dolaylı yoldan döngüler ile olabilir belki.
(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.
Okudum ama şu an deneyemeyeceğim için onunla ilgili bir yorumda bulunmadım.