vba excel makro çalışma zamanı hatası 1004


0
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 .xlsmdiğer 4 birleştirir dosya .xlsiç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
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.