başka dosyadan sayfa tanımlamak

[akavak]

Dim S1 As Worksheet
Dim S2 As Worksheet
Dim Bul As String
Set S1 = Sheets("Sheet1")

Windows("dosya2.xls").Activate
Set S2 = Sheets("Sheet3")


Windows("satışlar.xls").Activate

For c = 2 To S1.[a65536].End(3).Row
Bul = S1.Cells(c, 1)
S1.Cells(c, 2) = WorksheetFunction.VLookup(Bul, S2.Range("a:b"), 2, 0)
Next


Merhabalar

İki tane açık dosyam var. Birinci dosyamda S1 e Sheet 1 i tanımlıyorum. İkinci dosyam "dosya2" içinde Sheet3 ü de s2 ye set etmek istiyorum. bir yer eksik ama bulamadım.
şimdiden teşekkürler

 

[ozgretmen]

Set leri aşağıdaki şekilde tanımlayıp dener misiniz ?

Set S1 = Windows("satışlar.xls").Sheets("Sheet1")
Set S2 = Windows("dosya2.xls").Sheets("Sheet3")

 

[akavak]

denedim ama aşağıdaki hatayı veriyor.
"object doesn't support this property or method"

 

[ozgretmen]

Dosyalarınızı ekler misiniz ?

 

[akavak]

dosya ektedir.

 

[ozgretmen]

Dosyayı inceler misiniz ?

 

[akavak]

çok teşekkür ederim.

 

[ozgretmen]

Rica ederim.İyi çalışmalar.