textbox,combobox yerine spreadsheet nesnesi ile veri alma gönderme hakkında

[metot]

arkadaşlar spreadsheet nesnesi ile sayfa1 de bulunan verileri "tabloyu göster" butonu ile aynen userform a getirip "veri gönder" butonu ile sayfa üzerinde istediğim değişikliği yapabiliyorum, fakat bu işlemler yalnızca sayfa1 için geçerli, diğer sayfalardaki tabloları nasıl görebilirim, yani spreadsheet nesnesindeki sayfa2'yi seçtiğimde çalışma sayfasının sayfa2 sine gidebilirmiyim, dosya ektedir. yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Commandbuton2'ye aşaığıdaki kodları yapıştırınız.
Private Sub CommandButton2_Click()

Spreadsheet1.Range("A1:aa5000").Value = Sheets(Spreadsheet1.ActiveSheet.Index).Range("a1:aa5000").Value
End Sub

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirirseniz, sayfa2'deki verileride spreadsheet nesnesinin sayfa2'sine aktaracaktır.

Private Sub CommandButton2_Click()
Spreadsheet1.Sheets("sayfa1").Range("A1:aa5000").Value = Sheets("sayfa1").Range("a1:aa5000").Value
Spreadsheet1.Sheets("sayfa2").Range("A1:aa5000").Value = Sheets("sayfa2").Range("a1:aa5000").Value
End Sub

 

[metot]

Sayın Evren Gizlen ve Levent Menteşoğlu

İlginize çok teşekkür ederim, göndermiş olduğunuz kodlar ile sorunumu çözdüm, iyi çalışmalar dilerim.

 

[Orion1]

İlginize çok teşekkür ederim, göndermiş olduğunuz kodlar ile sorunumu çözdüm, iyi çalışmalar dilerim.

Rica ederim.
İyi çalışmalar.

 

[metot]

yardımlarınızla birlikte , sayfa isimlerinin değişik olması durumunu göz ardı etmemek için sayfa adı yerine sayfa index numarası verdim
Kod:

Private Sub CommandButton2_Click()

Spreadsheet1.Sheets(1).Range("A1:aa5000").Value = Sheets(1).Range("a1:aa5000").Value
Spreadsheet1.Sheets(2).Range("A1:aa5000").Value = Sheets(2).Range("a1:aa5000").Value
Spreadsheet1.Sheets(3).Range("A1:aa5000").Value = Sheets(3).Range("a1:aa5000").Value
End Sub

ilginize tekrar teşekkür ederim, örneği kullanmak isteyen arkadaşlar için dosyanın son halini gönderiyorum

 

[Orion1]

Commandbuton2'ye aşaığıdaki kodları yapıştırınız.

Private Sub CommandButton2_Click()
 [COLOR="Red"][B]Spreadsheet1.Range("A1:aa5000").Value = Sheets(Spreadsheet1.ActiveSheet.Index).Range("a1:aa5000").Value[/B][/COLOR]
End Sub

Yukarıdaki benim yazdığım mesajda zaten bu işlemin sizin yazdığınızın kısaltımış şekli vardı.

 

[metot]

Sayın Evren Gizlen

haklısınız aslında ilk sizin gönderdiğiniz kodu girmiştim, tam istediğim gibi olmuştu, başka bi şeyle ilgilenirken dosyayı kaydetmemişim ilgilinize teşekkürler....