Dim lastC As Long
lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug
SourceRange.Copy
wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Yukarıdaki kod, sahip olduğum kod, daha büyük bir makronun parçası. Çalıştırdığımda, bana çalışma zamanı hatası 1004 uygulama tanımlı veya nesne tanımlı hata veriyor.
Daha büyük kodun bir parçası olarak çalışmaz, ancak ayırmaya ve çalıştırmaya çalıştığımda düzgün çalışıyor.
Birden çok çalışma kitabı ve çalışma sayfasıyla çalışıyorum. Ben bu bir var .xlsm
diğer 4 birleştirir dosya .xls
içine dosya.
Teşekkürler.
1
Yani tek başına iyi çalışıyor, ancak daha büyük makroların bir parçası olduğunda başarısız oluyor. Ama daha büyük makroyu sağlamadın mı? Amacın ne olduğunu anlamadığımız takdirde size nasıl yardımcı olabiliriz?
—
Raystafarian
Wb2 nesnesinin doğru ayarlanıp ayarlanmadığını kontrol edin? Ve hataya neden olan ilgili bir kod gönderin (eğer bu zamana kadar problem çözülmediyse).
—
ZAT