arkadaşlar, yaklaşık bir haftadır aradığım şeyi forumda bulamadım,bulduğum verileri ise uyarlayamadım.( aslında çok işlenmiş ama beceremedim 
)
yapmak istediğim şey, herhangi bir excel dosyasıda(dosya adı sabit olmayacak hatta kayıtlı bir dosya da olmayabilir) makro butonuna bastığımda "C:\veri" excel dosyasında düşey arama yapması ve ilgili değerleri bu dosyamda yerleştirmesi.
aşağıdaki kodu biraz kurcaladım, ama veriler aynı çalışma kitabında olmak zorunda olduğundan işime yaramıyor.
Sub Düğme1_Tıklat()
Dim i As Integer, k As Range
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = 1 To 400
Set k = Sheets("Sayfa2").Range("A2:A65536").Find(Range("A" & i).Value, , xlValues, xlWhole)
If Not k Is Nothing Then
If Cells(i, "a") <> 0 Then
Cells(i, "B").Value = k.Offset(0, 1).Value
Cells(i, "b").Font.ColorIndex = 3
End If
End If
Set k = Nothing
Next i
Application.ScreenUpdating = True
End Sub
uygulamanın basit bir örneği de ekte.
tşk.
)yapmak istediğim şey, herhangi bir excel dosyasıda(dosya adı sabit olmayacak hatta kayıtlı bir dosya da olmayabilir) makro butonuna bastığımda "C:\veri" excel dosyasında düşey arama yapması ve ilgili değerleri bu dosyamda yerleştirmesi.
aşağıdaki kodu biraz kurcaladım, ama veriler aynı çalışma kitabında olmak zorunda olduğundan işime yaramıyor.
Sub Düğme1_Tıklat()
Dim i As Integer, k As Range
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = 1 To 400
Set k = Sheets("Sayfa2").Range("A2:A65536").Find(Range("A" & i).Value, , xlValues, xlWhole)
If Not k Is Nothing Then
If Cells(i, "a") <> 0 Then
Cells(i, "B").Value = k.Offset(0, 1).Value
Cells(i, "b").Font.ColorIndex = 3
End If
End If
Set k = Nothing
Next i
Application.ScreenUpdating = True
End Sub
uygulamanın basit bir örneği de ekte.
tşk.