Hücre başlıkları Label ile almak

[KN0820822]

Değerli Üstatlarım,

vba da daha çok yolun başında olduğumdan dolayı değerli vaktinizi aldığımdan dolayı şimdiden özür dilerim. Genelde ilk önce araştırmalar yapar çıkış yolunu bulamadığımda değerli üstatlarıma başvururum. Forum da maalesef uzun aramalarıma rağmen bulamadım bulduklarımda benim istediğim şekilde değil. Hücrelerde bulunan başlıkları otomatik olarak userform da bulunan label lara aktarılmasını nasıl yapabilirim.

Şimdiden bana yardımcı olan arkadaşlara/üstatlarıma teşekkürlerimi sunarım.

 

[Necdet]

Merhaba,

Dosya eklemişsiniz ama bir sürü UserForm var, hangisine bakacağımızı söylememişsiniz.

olay basit, UserForm initialize olayına

label1.captin = sheet("Sayfa1").range("A1")

gibi kullanabilirsiniz.

 

[KN0820822]

Merhaba Necdet Ustam,

Evet 4 adet UserForm um var. Bu 4 adet UserForm dan sadece 3 tanesinin başlıkları ayrı ayrı alınacak. Bana bu 3 adet UserForm dan sadece 1 tanesini gösterseniz bile öğrenmemde yardımcı olursunuz.

Bağlamak istediğim formlar aşağıdaki gibi :

kiralikform => Sayfa4 (rent) -- başlıkları
satilanform => Sayfa3 (sold) -- başlıkları
urunform => Sayfa2 (db) -- başlıkları

Merhaba,

Dosya eklemişsiniz ama bir sürü UserForm var, hangisine bakacağımızı söylememişsiniz.

olay basit, UserForm initialize olayına

label1.captin = sheet("Sayfa1").range("A1")

gibi kullanabilirsiniz.

 

[Necdet]

Açıklama yetmedi sanırım.

Private Sub UserForm_Initialize()

    Label1.Caption = Sheets("rent").Range("A1")
    Label2.Caption = Sheets("rent").Range("B1")
    Label3.Caption = Sheets("rent").Range("C1")
    Label4.Caption = Sheets("rent").Range("D1")
    Label5.Caption = Sheets("rent").Range("E1")
    Label6.Caption = Sheets("rent").Range("F1")
    Label7.Caption = Sheets("rent").Range("G1")
    Label8.Caption = Sheets("rent").Range("H1")
    Label9.Caption = Sheets("rent").Range("I1")
    Label10.Caption = Sheets("rent").Range("J1")
    
End Sub

 

[KN0820822]

Kusuruma bakmayın daha yolun başındayım, ben anlayamadım ne demek istediğinizi. İlginize ve hızınıza teşekkür ederim. Umarım bende sizin gibi ileride bu kodlamaya hakim olabilirim.

Açıklama yetmedi sanırım.

Private Sub UserForm_Initialize()

    Label1.Caption = Sheets("rent").Range("A1")
    Label2.Caption = Sheets("rent").Range("B1")
    Label3.Caption = Sheets("rent").Range("C1")
    Label4.Caption = Sheets("rent").Range("D1")
    Label5.Caption = Sheets("rent").Range("E1")
    Label6.Caption = Sheets("rent").Range("F1")
    Label7.Caption = Sheets("rent").Range("G1")
    Label8.Caption = Sheets("rent").Range("H1")
    Label9.Caption = Sheets("rent").Range("I1")
    Label10.Caption = Sheets("rent").Range("J1")
    
End Sub