BUTON İLE BAŞKA BİR SAYFADAN TABLO GETİRMEK

[MuhammetSN]

Merhaba iyi günler, aynı excel içerisinde birden fazla sayfa mevcut ve ben bu sayfalardaki bazı tabloları ilk sayfada ki butona tıkladığım da bu butonun üzerinde ismi yazan tabloyu getirmek istiyorum. ekte örnek bir excel kattım yardımcı olabilecek herkese şimdiden teşekkür ederim.
https://s6.dosya.tc/server4/oihz1i/1.xlsx.html

 

[ÖmerFaruk]

Cümlenizi tekrar okuyup düzeltebilirmisiniz, nesnesi yüklemi öznesi birbirine karışmış.
Butona tıklayınca neredekiler nereye gelecek? Ya da ne olacak

 

[MuhammetSN]

Şöyle anlatayım, Excelin 1. sayfasında HEDEFİMİZ diye bir buton olacak, Excelin 2. sayfasında da 1 adet tablo yer alacak, ilk sayfadaki hedefimiz butonuna bastığımda 2. sayfadaki tablo 1. sayfaya gelecek. Kısaca bu şekilde

 

[ÖmerFaruk]

2.sayfadaki HEDEFİMİZ isimli tabloyu sayfa üzerinde bulamilmek için kriter nedir?
Şu an sadece tablo görünüyor. Hep böylemi olacak? Sayfada başka bir veri, başka bir dolu hücre olacak mı?

Bunu belirledikten sonra sayfa1 de bu tablo nereye gelecek?
Tabloyu alınca sütun genişliği, fontlar renkler vs ne olacak?

Eğer sayfanız az ve tablolarınız sabit ise ki böyle olmadığını ve soruyu bu kadar eksik sorduğunuzu düşünüyorum, diğer sayfadaki B2:G18 aralığını kopyalarız.

Bunun için de kodunuz aşağıda. Ama bence siz bunu sormuyorsunuz.

Private Sub HEDEFİMİZ_Click()
Worksheets("Sayfa1").Range("B2:G16").Copy Range("C5")
End Sub

 

[MuhammetSN]

Sanırım yapmak istediğimi kolay anlaşılabilecek şekilde tarif edemedim kusura bakmayın. Sorularınıza tek tek cevap vereyim ilk olarak 2. sayfada ki hedefimiz isimli tabloyu bulma kriteri olarak başlık ismini baz almayı planlamıştım, şu an basit ve anlaşılabilir olması için sadece 1 tablo ekledim yapılacak formüle göre kendim diğer tabloları da entegre etmeyi planlıyorum. 3. sorunuza gelirsek Sayfa1 de tablo istediğiniz bir yere gelebilir gözle görünecek şekilde olduğu müddetçe sorun yok. Tablonun sütun genişliği, fontları, renkleri vs. hiç önemli değil Sayfa2 de tablo ne şekilde ise o şekilde olabilir. Son olarak sayfa sayısı sadece 2 adet olacak ancak sayfa2 de birden çok tablo yer alacak ama siz şu an sadece Sayfa1 de yer alan HEDEFİMİZ isimli butona, Sayfa2 de yer alan HEDEFİMİZ başlıklı tabloyu entegre edebilirseniz benim için yeterli olur. Değerli vaktinizi bana ayırdığınız için teşekkür ederim saygılar sunuyorum.

 

[ÖmerFaruk]

Önceki mesajımda verdiğim kod bu işi yapıyor zaten

 

[MuhammetSN]

Teşekkür ederim elinize sağlık

 

[MuhammetSN]

2.sayfadaki HEDEFİMİZ isimli tabloyu sayfa üzerinde bulamilmek için kriter nedir?
Şu an sadece tablo görünüyor. Hep böylemi olacak? Sayfada başka bir veri, başka bir dolu hücre olacak mı?

Bunu belirledikten sonra sayfa1 de bu tablo nereye gelecek?
Tabloyu alınca sütun genişliği, fontlar renkler vs ne olacak?

Eğer sayfanız az ve tablolarınız sabit ise ki böyle olmadığını ve soruyu bu kadar eksik sorduğunuzu düşünüyorum, diğer sayfadaki B2:G18 aralığını kopyalarız.

Bunun için de kodunuz aşağıda. Ama bence siz bunu sormuyorsunuz.

Private Sub HEDEFİMİZ_Click()
Worksheets("Sayfa1").Range("B2:G16").Copy Range("C5")
End Sub

Tekrar merhabalar,
Tablonun sütun genişliği , fontları ve renklerini düzenlemek için bir formül var mı acaba ? Tablolar farklı sütun genişliği veya renklere sahip olduğundan çok karıştı, eğer imkanımız varsa onları da düzeltmek isterim