Aktif olmayan çalışma kitabı

[volkangandalf]

Selam arkadaşlar.


Private Sub CommandButton2_Click()
Dim sat As Long, sut As Long

Sheets("Sayfa4").Select
Columns("a:z").Select
Selection.ClearContents
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount

Sheets("Sayfa4").Range("a1:" & Cells(sat, sut).Address(False, False)) = ListBox1.List

Sheets("Sayfa4").Select
Sheets("Sayfa4").Copy

End Sub



Yukarıdaki kodlar ile Listbox'taki verileri yeni bir çalışma sayfasına aktardıktan sonra geri planda bu yeni kitap aktif halde kalıyor. userform üzerinden işlem yapmaya devam ettiğimde kodların başvurduğu sayfa ve nesneler bu kitapta olmadığından (object required) hatası veriyor.
VBA bilgim sıfıra yakın olduğundan ukalalık yaptığımı düşünmeyeceğinizi biliyorum. Bunu önlemenin iki yolu aklıma geldi.
1) Veriyi aktardıktan sonra asıl kitabım (deneme.xls) aktif hale getirilebilir.
2) Kodlarda sayfa tanımlandığı gibi çalışma kitabı da tanımlanabilir ( deneme kitabının sayfa4 sayfasında A2:A4 hücresini seç gibi)

Bunları nasıl yapabilirim. Sizce hangisi daha kullanışlı veya başka ne yapılabilir. Bu konularda yorum ve desteklerinizi bekliyorum. Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Workbooks("Deneme.xls").Activate

 

[volkangandalf]

Teşekkür

Sayın Korhan AYHAN, teşekkür ederim. Rabbim yar ve yardımcınız olsun.