Kapalı Dosyadaki Veri Hangi Satırda

[mozdem]

"Kapalı.xlsx" Adında tek sayfadan oluşan dosyam var. Sayfa1 isimli A sütununda 1000 satırda benzersiz İSİMLER var.

Sorum;
Ana_dosya.xlsm olan çalışma dosyama nasıl bir makro yazmalıyım ki, Kapalı dosyamın Sayfa1 deki A sütununda aradığım ismin hangi satırda olduğunu bana versin.

yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Her 2 dosyada ayni klasörde olmalı.

Sub kapalidosya59()
Dim deg As String, i As Long, deg2 As String
deg = InputBox("Aranacak veriyi yazınız?", Application.UserName)
If deg = "" Then Exit Sub
For i = 1 To 1000
    deg2 = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xlsx]Sayfa1'!r" & i & "c1")
    If deg = deg2 Then
        MsgBox "Bulunduğu satır : " & i, vbOKOnly + vbInformation, Application.UserName
        Exit For
    End If
Next i
End Sub

 

[mozdem]

Her 2 dosyada ayni klasörde olmalı.

Sub kapalidosya59()
Dim deg As String, i As Long, deg2 As String
deg = InputBox("Aranacak veriyi yazınız?", Application.UserName)
If deg = "" Then Exit Sub
For i = 1 To 1000
    deg2 = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xlsx]Sayfa1'!r" & i & "c1")
    If deg = deg2 Then
        MsgBox "Bulunduğu satır : " & i, vbOKOnly + vbInformation, Application.UserName
        Exit For
    End If
Next i
End Sub

Çok teşekkür ederim. hemen uyguluyorum.

 

[mozdem]

Her 2 dosyada ayni klasörde olmalı.

Sub kapalidosya59()
Dim deg As String, i As Long, deg2 As String
deg = InputBox("Aranacak veriyi yazınız?", Application.UserName)
If deg = "" Then Exit Sub
For i = 1 To 1000
    deg2 = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xlsx]Sayfa1'!r" & i & "c1")
    If deg = deg2 Then
        MsgBox "Bulunduğu satır : " & i, vbOKOnly + vbInformation, Application.UserName
        Exit For
    End If
Next i
End Sub

Denedim ve süper. Çok teşekkür ederim.

 

[Orion1]

Denedim ve süper. Çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.