Multipage sayfasındaki labele hücreden isim çekmek

[cems]

10 sayfa kadar altsayfası olan bir multipage formun ilk sayfasında bulunan labellere, excel sayfası başlıklarının ismini formun initialize olayında getirtmek istiyorum.

Diğer bir deyişle ; fiyatlandırma başlıklarını multipage1 üzerindeki label'lere ulaştırmak ve form açılırken 5kg 10kg 15kg gibi başlıkları bunların otomatik yüklenmesini sağlamak istiyorum. Şu şekilde uğraştım :

Private Sub DATABANK_initialize()

Multipage1.Pages("firma."label500".Caption) = Sheets("fiyatlama").Range("c1")
.
.
End Sub

Tabi olmadı... Bu kodlamayı nasıl düzenlemem gerekir ?

 

[Mehmet Şahin]

Merhaba,
şu şekilde dener misiniz?

MultiPage1.Pages("firma").Label500.Caption =Sheets("fiyatlama").Range("c1")

İyi geceler.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Me.MultiPage1.Pages(0).Label1 = [a1]

 

[cems]

Private Sub userform_initialize()
'MultiPage1.Pages("firma").Label1.Caption = Sheets("fiyatlama").Range("b1")
Me.MultiPage1.Pages(firma).Label1 = [b1]
Me.MultiPage1.Pages(firma).Label2 = [c1]
Me.MultiPage1.Pages(artma).Label3 = [b1]
Me.MultiPage1.Pages(artma).Label4 = [c1]
End Sub


' userform uzerindeki multipage'de 13 kadar sekme (ocak şubat vs) ve bunların uzerinde
' sekmelerin toplamında 50 kadar standart label var
' excel sayfa sayısı 17 bunlardan fiyat ve satışla ilgili
' standart başlıkları excel sayfasından ait olduğu multipage
' sayfasındaki labellere atamak ve form açılırken çalıştırmak istiyorum .

'Burada ilk kod çalışmadı
' ikinci kod multipage firma sekmesi için çalıştı ancak artma sekmesi için çalışmadı
' yani kodu çogaltamadım .

Neden takıldığını anlamama ve ilerlememe yardımcı olabilir misiniz ?

 

[Mehmet Şahin]

Merhaba,
şeklinde deneyiniz.

Private Sub userform_initialize()
Me.MultiPage1.Pages(0).Label1 = Sheets("fiyatlama").[b1]
Me.MultiPage1.Pages(0).Label2 = Sheets("fiyatlama").[c1]
Me.MultiPage1.Pages(1).Label3 = Sheets("artma").[b1]
Me.MultiPage1.Pages(1).Label4 = Sheets("artma").[c1]
End Sub

Multipage sayfalarının indexini yazmalısınız ya da adlarını kullanmalısınız.
Pages(0) ya da Pages("Page1") gibi.

 

[cems]

Sayın Dentex;

Hiç sorun çıkarmadan kodlarınız çalıştı , çok teşekkür ederim .

Ayrıca sayın Seyit Tiken size de teşekkür ederim , kodunuz çalıştı tek sayfa için yani benim izahımda eksiklik olduğu kesindi

 

[Mehmet Şahin]

Rica ederiz,
iyi çalışmalar.

 

[Levent Menteşoğlu]

Bu konuda bir hatırlatma yapmak istiyorum.

Multipage nesnesinin sayfalarına yerleştirdiğiniz label nesneleri hiç bir zaman aynı isimde olmaz. Dolayısıyla bu labellara veri alırken sadece labelın adını kullanmak yeterlidir.

 

[Seyit Tiken]

Levent beyin söylediği gibi,

Me.Label1 = [a1]

Şeklinde de sonuca ulaşılabilir.

 

[cems]

Sayın Menteşoğlu ,
Hatırlatmanız için teşekkür ederim , "aynı isimde label olmaması" özelliğini kullanarak excel sayfalarındaki data başlıklarını label'lere ; Sayın Dentex'in kod düzeni ile çektim. Bundaki amaç, label'lerdeki veriyi excel data başlıklarından almak ve habire label ismi değiştirmekten kurtulmaktı. Ayrıca aynı multipage'li userform ve ona bağlı excel sayfalarını kalıp olarak almak ve başka bir programda kullanmaktı, başarılı oldu. Yeniden yapmak zorunda kalmadan direk " hard disk değiştirir gibi" bir parça oldu. Bir konuya düzenlenmek zorunda olan bir data programı değil , içi boş ve konu öğretilebilir bir data programı oldu. Tabi öznel gereksinimler farklı olabilir.

Daha rahat tarafı ise multipage sayfalarından biri sadece bu veritabanına başlık hücrelerini yazmak için var. Buradan başlıklara ister 5kg-10kg>> veya elma armut >> ya da ocak şubat>> yazılsın , programın konusu değişiyor. Yani excel sayfasına pek girmek gerekmiyor, kullanıcının buna ihtiyacını nerdeyse tamamen ortadan kaldırıyor.

Sayın Tiken ;
Çok sayfalı bir multipage'de daha kısa kod daha az iş demektir , kodlarınızı deneyeceğim.

Tüm öneri ve destekleriniz için çok teşekkür ederim .