Label caption kullanamama

[erd5334]

arkadaşlar yaşadığım sorunu daha iyi anlatabilmek için video hazırladım. videoyu izleyip yardımcı olursanız sevinirim. dosya ektedir.

Video Linki: https://drive.google.com/file/d/1XcR9L-oCxR-RWTHkOXPPzdPocs6D2Ll2/view?usp=sharing

 

[TanerSaydam]

Dosyayı başka bir yere yükleyebilirseniz bir bakayım.

 

[erd5334]

Dosyayı başka bir yere yükleyebilirseniz bir bakayım.

http://s3.dosya.tc/server13/3i3efe/label.rar.html

 

[Asri]

Bu şekilde deneyin.

 

[erd5334]

Bu şekilde deneyin.

ne yazık ki tümü sayfasından verileri çekmiyor. verileri çektiği yer sonuc sayfası

 

[Asri]

ne yazık ki tümü sayfasından verileri çekmiyor. verileri çektiği yer sonuc sayfası

Örnekten yola çıkarak tümünden alabilirsiniz.

Bu şekide deneyin.

Private Sub CommandButton1_Click()
Dim s As Worksheet
    Set s = Sheets(ComboBox1.Text)
    Dim sb, huc
    'On Error Resume Next
    aranan = (TextBox1.Text)
    sonsatir = Sheets("Tümü").Cells(Rows.Count, "C").End(3).Row
    Set k = Sheets("Tümü").Range("C2:C" & sonsatir).Find(aranan, , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
       MsgBox ("öğrenci listede yoktur.")
    Else
       satir = k.Row
       adi = Sheets("Tümü").Cells(satir, "B").Value
       ogrencino = Sheets("Tümü").Cells(satir, "C").Value
       Unload Me
    End If
End Sub

 

[erd5334]

Örnekten yola çıkarak tümünden alabilirsiniz.

Bu şekide deneyin.

Private Sub CommandButton1_Click()
Dim s As Worksheet
    Set s = Sheets(ComboBox1.Text)
    Dim sb, huc
    'On Error Resume Next
    aranan = (TextBox1.Text)
    sonsatir = Sheets("Tümü").Cells(Rows.Count, "C").End(3).Row
    Set k = Sheets("Tümü").Range("C2:C" & sonsatir).Find(aranan, , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
       MsgBox ("öğrenci listede yoktur.")
    Else
       satir = k.Row
       adi = Sheets("Tümü").Cells(satir, "B").Value
       ogrencino = Sheets("Tümü").Cells(satir, "C").Value
       Unload Me
    End If
End Sub

hata %100 bendedir ama gene yapamadım gelmiyor label

 

[Asri]

hata %100 bendedir ama gene yapamadım gelmiyor label

4. mesajdaki dosyayı indirin. Hiç bir değişiklik yapmadan bul kutusuna 114133033 yazıp bul deyin.

Yeni userform da öğrenci adı gelecektir.
Yapılan örneği programınıza uyarlayn.

 

[erd5334]

4. mesajdaki dosyayı indirin. Hiç bir değişiklik yapmadan bul kutusuna 114133033 yazıp bul deyin.

Yeni userform da öğrenci adı gelecektir.
Yapılan örneği programınıza uyarlayn.

sorunum çözüldü. emeğiniz için teşekkür ederim.

nasıl çözüldü derseniz module de kullandığınız public komutunu kendi kodlarıma göre düzenledim ve daha sonra labellere atadım sorun çözüldü.

 

[erd5334]

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