• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

userform'da hücredeki şarta bağlı metin yazma

Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
arkadaşlar, userform'da mesela "A1" hücresinde "1" yazıyorsa userform'u açtığımda label'da "Ali", eğer "A1" hücresinde "2" yazıyorsa "Ahmet", "A1" hücresinde "3" yazıyorsa "Ayşe" yazmasını nasıl sağlarız. teşekkür ederim.
 
Tam sözlü olarak ifade ettiğiniz gibi yapabilirsiniz.
if cells(1,1)=1 then label1.caption="Ali"
if cells(1,1)=2 then label1.caption="Ahmet"
if cells(1,1)=3 then label1.caption="Ayşe"
 
benim makrolar konusun fazla bilgim yok.
 
Son düzenleme:
Tam sözlü olarak ifade ettiğiniz gibi yapabilirsiniz.
if cells(1,1)=1 then label1.caption="Ali"
if cells(1,1)=2 then label1.caption="Ahmet"
if cells(1,1)=3 then label1.caption="Ayşe"
peki ben şartı bağlamak istediğim hücreyi kodlar içinde nereye yazacağım ve bu kodları, userform'daki label'da metin olarak yazması için nereye girmem gerekli.
 
Meerhaba
Userformun kod sayfasına



Private Sub UserForm_Initialize()
If Cells(1, 1) = 1 Then Label1.Caption = "Ali"
If Cells(1, 1) = 2 Then Label1.Caption = "Ahmet"
If Cells(1, 1) = 3 Then Label1.Caption = "Ayşe"
End Sub
 
Meerhaba
Userformun kod sayfasına



Private Sub UserForm_Initialize()
If Cells(1, 1) = 1 Then Label1.Caption = "Ali"
If Cells(1, 1) = 2 Then Label1.Caption = "Ahmet"
If Cells(1, 1) = 3 Then Label1.Caption = "Ayşe"
End Sub

ilginize teşekkür ederim ama bu kodlar çalışmadı. ve bu kodlar içinde bağlamak istediğim hücre de yok!!!
 
Meerhaba
Userformun kod sayfasına



Private Sub UserForm_Initialize()
If Cells(1, 1) = 1 Then Label1.Caption = "Ali"
If Cells(1, 1) = 2 Then Label1.Caption = "Ahmet"
If Cells(1, 1) = 3 Then Label1.Caption = "Ayşe"
End Sub

ilginize teşekkürler ama bu kodlar çalışmadı. ve bu kodlar içinde bağlama istediğim hücre de yok!!!
 
arkaşdaşlar acill yardım lütfen.

gelen cevaplar henüz çözüm olamadı bana. acilen yardımcı olursanız sevinirim.
 
Geri
Üst