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