Kapalı Çalışma Kitabının Alt Sayfalarında Arama Yapmak

[bluefalcon]

Arkadaşlar merhaba,

Burada öğrendiğim bilgiler ve biraz da kitaplardan edindiğim bilgilerle bir çalışma yapıyorum. Bunun bir parçası olan aşağıdaki kodda kapalı excel çalışma kitabının alt sayfalarında (19 subsheet) işten ayrılan personeli buldurarak silmek istiyorum. Kod mantığını oturrtum gibi ama bir türlü find nesnesine kişiyi buldurtamadım. En azından bir fikir verebilirseniz yada hatamı yazarsanız çok memnun olacağım. Şimdiden teşekkürler.



Sub AracListSIL()
Dim ArList As New Excel.Application
Dim nwb As New Excel.Workbook
Dim ws As Worksheet
Dim rFound As Range
Dim strName As String
Set nwb = ArList.Workbooks.Open("D:\Mega\Projects\ProjeMac\Files\Arac_Listeleri.xlsx")
On Error Resume Next
strName = USERPERSONEL.txtAdSoyad
If strName = "" Then Exit Sub
For Each ws In ArList.Worksheets

With ws.UsedRange

For i = 1 To 60

Set rFound = ws.UsedRange.Find(what:=strName, After:=.Range("C" & i), SearchDirection:=xlNext, lookAt:=xlWhole)

If Not rFound Is Nothing Then
Application.Goto rFound, True
Exit Sub
End If
Next i
End With

Next ws
On Error GoTo 0

MsgBox "Value not found"

nwb.Save
nwb.Close
Set ArList = Nothing
Set nwb = Nothing
End Sub

 

[bluefalcon]

Hiç fikri olan yokmu arkadaşlar? Yalnız bırakmayın şu garibi

 

[parametre]

buradaki linkleri inceleme olanagınız oldumu aceba ?

 

[bluefalcon]

Sayın parametre, tavsiyeniz için teşekkür ederim. Arama yapmıştım elbette. Bazen insan en basit şeyi kendince çok karmaşık sanarak derin sulara açılabiliyor. Bu konuda aynı bu duruma düşmüşüm açıkçası. Ufacık 3 kelimelik bir çözümü [ With ws.Range("C5:g104") Set bul = .Find(strName, Lookat:=xlWhole) ] saatlerce aradıktan sonra tesadüfen buldum ve sorun çözüldü. Teşekkürler.

 

[parametre]

Sayın parametre, tavsiyeniz için teşekkür ederim. Arama yapmıştım elbette. Bazen insan en basit şeyi kendince çok karmaşık sanarak derin sulara açılabiliyor. Bu konuda aynı bu duruma düşmüşüm açıkçası. Ufacık 3 kelimelik bir çözümü [ With ws.Range("C5:g104") Set bul = .Find(strName, Lookat:=xlWhole) ] saatlerce aradıktan sonra tesadüfen buldum ve sorun çözüldü. Teşekkürler.

Selamlar çözüm sunarken açık olarak yayınlanması az bilen arkadaslarınız için faydalı olacaktır .İsterseniz konunuzdaki çözümünüze kodlarıyla beraber yazınız nerede değişiklik yapıldıgını renkli olarak belirtirseniz ( kırmızı olabilir ) sizin gibi problem yasayan arkadaslarınıza ışık olmuş olursunuz kolay gelsin