Excel VBA: Kolon Numarasından Kolon Harfini Öğrenmek

Function GetColumnLetter(ColumnNumber As Integer) As String

    GetColumnLetter= Left(Cells(1, ColumnNumber).Address(1, 0), InStr(1, Cells(1, ColumnNumber).Address(1, 0), "$") - 1)

End Function

Excel VBA ile kullanıcıya dosya seçtirme ve çalıştırma

Sadece pdf uzantılı dosyaları seçtirmek için;

Sub BrowsePDFDocument()
Dim strDocument As String
    strDocument = Application.GetOpenFilename("PDF Files,*.pdf", 1, "Open File", , False)
    If Len(strDocument) < 6 Then Exit Sub
    ActiveWorkbook.FollowHyperlink strDocument
End Sub


Tüm dosyaları seçtirmek için aşağıdaki değişikliği yapmanız gerekmektedir.

Application.GetOpenFilename("All Files (*.*),*.*", 1, "Open File", , False)