Excel VBA İle Kapsamlı Arama
Kaynak: https://youtu.be/2J667D3NlIQ Koda küçük bir yama ekledim. Dosya adını, hücre adresi ile birlikte linke dönüştürdüm. Tıkladığınızda imleç, ilgili hücreye gider. Option Explicit Dim ws As Worksheet Dim BaslangicSatiri As Long Dim AranacakIfade As String Dim FSO As Object Public Sub Kapsamli_Ara() Dim SecilenKlasor As String BaslangicSatiri = 1 Set ws = Sonuc Set FSO = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then SecilenKlasor = .SelectedItems(1) & Application.PathSeparator Else Exit Sub End If End With With ws.Cells(BaslangicSatiri, 1) .Parent.UsedRange.Clear .Offset(, 0) = "Dosya Adi" .Offset(, 1) = "Sayfa Adi" .Offset(, 2) = "Bulundugu Hucre" .Offset(, 3) = "Bulunan Deger" End With AranacakIfade = InputBox("Lutfen aranacak ifadeyi kismen veya tam olarak yaziniz", _ "Sayin...
