VBA ile iki dosya arası veri çekme

[Prgkolik]

Herkes'e merhaba Öncelikle konuyu doğru bir yere mi ekledim bilmiyorum ama bu sayfada yeniyim yanlış yere kelediysem lütfen düzeltmem için bana yardımcı olunuz.

benim şöyle bir sorum var

Private Sub CommandButton1_Click()
Dim w1 As Workbook
Dim s1 As Worksheet

Dim w2 As Workbook
Dim s2 As Worksheet
Dim dosya As Variant

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("DataPo_S")

With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Excel"
  .Title = "Dosya Seç"
  .ButtonName = "Search PO"
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*"
  .FilterIndex = 1
 
  If .Show = 0 Then
    Exit Sub
    Else
    dosya = .SelectedItems(1)
    End If

End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(dosya)
Set s2 = w2.Worksheets(1)

s1.Range("B1:B10000") = s2.Range("A1:A10000")
s1.Range("C1:C10000") = s2.Range("B1:B10000")

Application.ScreenUpdating = True
w2.Close

End Sub

yukarıda bulunan koda'da

s1.Range("B1:B10000") = s2.Range("A1:A10000")
s1.Range("C1:C10000") = s2.Range("B1:B10000")

bu aralıkları girdiğimde yazıları getirmiyor ama

s1.Range("B1) = s2.Range("A1")
s1.Range("C") = s2.Range("B1")

bu şekilde nokta atış istediğimde geliyor bunun sebebi cok basit sanırım ama ben bilmiyorum bu excell konusuna da yeni başladım yardımcı olursanız sevinirim

Şimdiden herkes'e teşekkürler

 

[Prgkolik]

sanırım zor soru sormuşum 47 kişi görüntelemiş ama kimse bilmiyormuş

 

[Levent Menteşoğlu]

İlgili satırı aşağıdaki ile değiştirerek deneyin.

s1.Range("B1:B10000") = s2.Range("A1:A10000").Value
s1.Range("C1:C10000") = s2.Range("B1:B10000").Value

 

[Prgkolik]

İlgili satırı aşağıdaki ile değiştirerek deneyin.

s1.Range("B1:B10000") = s2.Range("A1:A10000").Value
s1.Range("C1:C10000") = s2.Range("B1:B10000").Value

ilgi ve alakanız için çok teşekkür ederim yani forum'a yazdığımdan beri araştırıyorum çok basit olduğunu tahmin etmiştim ama yeni ve çok bilgili olmamak böyle basit hataları getiriyor tekrar çok teşekkür ederim.