if fonksiyonu yardım

[mfn562]

If Sheets("deneme").Cells(1,1 ).Value = "" Then Label1.Caption = "Boş"
else
label1.caption= Sheets("deneme").Cells(1,1 ).Value
end if
end sub

arkadaşlar deneme sayfası içerisinde a1 hücresinde veri yok ise label "boş" yazacak. eğer dolu ise a1 hücresinin değerini label1 yazacak komutu oluşturmaya çalışıyorum fakat hata veriyor. eksiklik nerede aceba yardımlarınızı bekliyorum

 

[mfn562]

bu konu hakkında yardımcı olacak yokmuuuu

 

[Orion1]

If Sheets("deneme").Cells(1,1 ).Value = "" Then Label1.Caption = "Boş"
else
label1.caption= Sheets("deneme").Cells(1,1 ).Value
end if
end sub

arkadaşlar deneme sayfası içerisinde a1 hücresinde veri yok ise label "boş" yazacak. eğer dolu ise a1 hücresinin değerini label1 yazacak komutu oluşturmaya çalışıyorum fakat hata veriyor. eksiklik nerede aceba yardımlarınızı bekliyorum

Aşağıdaki şekilde deneyiniz.

If Sheets("deneme").Cells(1,1 ).Value = "" Then 
     Label1.Caption = "Boş"
     else
     label1.caption= Sheets("deneme").Cells(1,1 ).Value
end if

 

[Seyit Tiken]

Bu şekilde de kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Label1 = Sheets("sayfa1").[a1]
End Sub

Sub Düğme1_Tıklat()
UserForm1.Show 0
End Sub

 

[mfn562]

Aşağıdaki şekilde deneyiniz.

If Sheets("deneme").Cells(1,1 ).Value = "" Then 
     Label1.Caption = "Boş"
     else
     label1.caption= Sheets("deneme").Cells(1,1 ).Value
end if

ALLAH RAZI OLSUN