Hücre dolu ise göstersin Label

[morphey]

Çözüldü mü acaba ? :dusun: :dusun:

Döngü ile alternatif:

Private Sub CommandButton1_Click()
    Dim i As Integer
        For i = 1 To Range("BD65536").End(3).Row
            If Cells(i, "BD") <> "" Then
                Label1.Caption = Cells(i, "BD")
            End If
        Next i
    i = Empty
End Sub

Yok Murat Üstadım olmuyor ne yapsam olmuyor. Başka bir yol yokmu acaba illa böyle olmasına geke yokki yani bir hücreye textboxı eşitlesek filan öyle şeyler olmaz mıki? Kendimi kovdurmadan şunu bi çözseydim

 

[Murat OSMA]

Kendimi kovdurmadan şunu bi çözseydim

:hiho::hiho::hiho::hiho:

 

[morphey]

Hocam şimdi label1 yazıyor ya "Düzenlenecekler" butonuna tıklıyorum "Label1" yazısıda gidiyor. Burdan çok zor oluyor valla derdini anlatmak bir dert dermanı anlamak on dert

 

[Murat OSMA]

Lütfen videoyu izler misiniz ?
Bende bu şekilde...

http://s14.directupload.net/images/120523/usg7ex76.swf

 

[morphey]

Hocam blok koyuyor iş yerimde ama ben başka bir yere uyarlıyım hemen.

 

[morphey]

Üstadım tamamdır. Başka excelde çalıştı valla ne kadar makbule geçtim anlatamam. Emekleriniz için çok çok sağolun. Özellikle Murat Hocam saygılarımı sunuyorum. İyi ki varsınız valla.

 

[Murat OSMA]

Rica ederiz...

Özellikle isim belirtmeniz doğru olmaz, size yardımcı olmak isteyen herkese genel bir teşekkür etmeniz daha uygun olur...

Hoşça kalın !!!