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.
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
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"
 
Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
benim makrolar konusun fazla bilgim yok.
 
Son düzenleme:
Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
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.
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
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
 
Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
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!!!
 
Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
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!!!
 
Katılım
28 Ağustos 2006
Mesajlar
108
Excel Vers. ve Dili
excel-2010 tr
arkaşdaşlar acill yardım lütfen.

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