CommandButton1_Click()

[Stacker]

Herkeze hayırlı akşamlar

Benim birden otuza kadar numarik otuz tane sayfa içeren bir çalışma kitabım var.

Yani 1,2,3,4,5,6,........şeklinde

Ve her sayfada CommandButton1_Click() adında butonum var ve bu butonunların hepsinin kendi sayfasında görevi aynı .

Benim sorum şu . Son sayfaya ekleyeceğim bir butonla aynı anda otuz tane sayfadaki butonları çalıştırabilirmiyim.

Paylaşımcı arkadaşlara şimdiden teşekkür ederim

 

[Orion1]

Deneyiniz.

call sheets("Sayfa1").CommandButton1_Click
call sheets("Sayfa2").CommandButton1_Click
---------
call sheets("Sayfa30").CommandButton1_Click

 

[Stacker]

Sayfa isimlerim böyle olduğu için İlk iki sayfa için şöyle yaptım olmadı

Private Sub CommandButton1_Click()

Call Sheets("1").CommandButton1_Click
Call Sheets("2").CommandButton1_Click

End Sub

Ayrıca şöylede denedim

Private Sub CommandButton1_Click()

Call Sheets("sheets1").CommandButton1_Click
Call Sheets("Sheets2").CommandButton1_Click

End Sub

 

[Orion1]

Sayfa isimlerim böyle olduğu için İlk iki sayfa için şöyle yaptım olmadı

Private Sub CommandButton1_Click()

Call Sheets("1").CommandButton1_Click
Call Sheets("2").CommandButton1_Click

End Sub

Ayrıca şöylede denedim

Private Sub CommandButton1_Click()

Call Sheets("sheets1").CommandButton1_Click
Call Sheets("Sheets2").CommandButton1_Click

End Sub

Örnek dosya yollayınız.

 

[Stacker]

Dosya büyük olduğu için 10 günlük veri yolluyorum

 

[Orion1]

sayfadaki butonlarınm içindeki kodlamada sayfa referansını vermemmişsiniz.

Range("H6").CopyFromRecordset rs

Mesela yukarıdaki komut sayfa1 de idi.
bunun başak bir sayfada çalışması için kodun başına sayfa adını yazmalısınız.
aşağıdaki gibi.
Diğer sayfaları da düzeltmeniz için böyle yapın.
range nin önüne sayfa ismi gelmeli.

[B][COLOR="Red"]sheets("1").[/COLOR][/B]Range("H6").CopyFromRecordset rs

 

[Stacker]

Anladım deneyip sonucu yazarım teşekkürler

 

[Stacker]

sayfadaki butonlarınm içindeki kodlamada sayfa referansını vermemmişsiniz.

Range("H6").CopyFromRecordset rs

Mesela yukarıdaki komut sayfa1 de idi.
bunun başak bir sayfada çalışması için kodun başına sayfa adını yazmalısınız.
aşağıdaki gibi.
Diğer sayfaları da düzeltmeniz için böyle yapın.
range nin önüne sayfa ismi gelmeli.

[B][COLOR="Red"]sheets("1").[/COLOR][/B]Range("H6").CopyFromRecordset rs

Sayfalardaki butonlar kendi sayfasında sorunsuz çalışıyor

Sizin önerdiğiniz gibi yaptım yine olmadı

Son sayfada diğer sayfalardaki butonları tetiklemek için başka yol olmalı diye düşünüyorum
Arşivimde buna benzer bi çalışma olacaktı ama bulamıyorum.
Sonucu burada paylaşırım
Ama yinede önerilerinizi bekliyorum
Saygılar iyi çalışmalar

 

[Orion1]

Sayfalardaki butonlar kendi sayfasında sorunsuz çalışıyor

Sizin önerdiğiniz gibi yaptım yine olmadı

Son sayfada diğer sayfalardaki butonları tetiklemek için başka yol olmalı diye düşünüyorum
Arşivimde buna benzer bi çalışma olacaktı ama bulamıyorum.
Sonucu burada paylaşırım
Ama yinede önerilerinizi bekliyorum
Saygılar iyi çalışmalar

Örenk dosyanızı tekrar yollayın göreyim.Bu yaptığınzın son durumunu

 

[Orion1]

Bakın ben dosyanızda H sütunu için olan durumu yaptım.
1nci sayfada command butonun kodları aldım butonlareı koyacağınız sayfaya götürdüm.Oradn basıp çalıştırdım.
sheets("1"). şeklinde eklemeliride yaptım.Ona dikkat ediniz.
Diğer leri için siz ayni konudan gidip yapabilirsiniz. Dosyanız ektedir.

 

[Stacker]

Bakın ben dosyanızda H sütunu için olan durumu yaptım.
1nci sayfada command butonun kodları aldım butonlareı koyacağınız sayfaya götürdüm.Oradn basıp çalıştırdım.
sheets("1"). şeklinde eklemeliride yaptım.Ona dikkat ediniz.
Diğer leri için siz ayni konudan gidip yapabilirsiniz. Dosyanız ektedir.

Yani Sayfalara sheets("1"). sheets("2").........
kodunu ekledikten sonra hepsini son sayfadaki butona kopyala diyosunuz.
Öyle yapınca çalışıyor evet

 

[Orion1]

Yani Sayfalara sheets("1"). sheets("2").........
kodunu ekledikten sonra hepsini son sayfadaki butona kopyala diyosunuz.
Öyle yapınca çalışıyor evet

Sorun çözülmüştür.