Çalışma zamanı hatası 9 VBA

Question

Küçük bir sorun yaşıyorum ve sadece kör olabilir!

Public Sub copy_from_another_sheet_all2() 

Dim countrows1 As Integer 
Dim wb As Workbook 

Set wb = Workbooks.Open("\\sassrv01-prod\ewpublic\3929ALL\JeppeKNID.xlsx") 

countrows1 = wb.Sheets("X-variabel").Range("A" & Rows.count).End(xlUp).Row 

ThisWorkbook.Sheets("X-variabel").Range("A1:R" & countrows1).Value = wb.Sheets("X-variabel").Range("A1:R" & countrows1).Value* 

Bana bir çalışma zamanı hatası veriyor 9 - ve nedenim yok? Herhangi biri size yardımcı olabilirse, teşekkürler :)

Answer 1

Aralık adresi için yeni String değişkeni eklemeye çalışın, bence çalışmalı.

Dim addr as String 
addr = "A1:R" & countrows1 
ThisWorkbook.Sheets("X-variabel").Range(addr).Value = wb.Sheets("X-variabel").Range(addr).Value 

Ama tercihim başka bir yol, ve bu şeyler için Kopyala/Yapıştır kullanıyor: O OP ulaşmaya çalıştığınız ne değil @DoktorOSwaldo

wb.Sheets("X-variabel").Range("A1:R" & countrows1).Select 
Selection.Copy 
ThisWorkbook.Sheets("X-variabel").Paste Destination:=ThisWorkbook.Sheets("X-variabel").Range("A1:R" & countrows1)