Hücredeki değişimi anlık form'a yansıtmak

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Çok değerli Saygıdeğer Arkadaşlar..!

Bir çalışma içerisinde kullanacak olduğum şöyle bir ara uygulama gerekti..

A1 hücresinde sık sık değiştirilmekte olan metin türünde veri mevcut..
Bir de, userform ve üzerinde label etiketi veya textbox (farketmez),
soru şu:
A1 hücresindeki veri her değiştiğinde,
userformdaki "label" veya "textbox" üzerinde de anında gözükmesi gerekiyor..

Bunun için nasıl bir makro oluşturmak gerekiyor..
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Formu açtıktan sonra A1 hücresine değer girerek sonucu gözlemleyiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Label1 = Sayfa1.[a1]
UserForm1.Caption = Sayfa1.[a1]
End Sub
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Sayın Seyit_Tiken hocam..!

Çok teşekkür ediyorum ve minnettarım..
örnekle birlikte verdiniz ve sorunun tam karşılığı oldu..

Ancak, hoş görünüze güvenerek, soruyu noksan sorduğumu ifade ederek,
şöyle olabilirmi..A1 hücresine yazarken label'den görüntüsünü alabilirmiyiz.. yani hücreden çıkmadan, labele yansıtabilmek..

Anlaşılması bakımından, örneğe bir değer değiştirici ilave ettim..değer değiştirici ile oluşan değişimi aynen forma yansıtabilirmiyiz..
 
Son düzenleme:

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
bu tür uygulama için hücreye müdahale yapmak mı gerekiyor..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.:cool:
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Çok değerli hocam.. Sayın Evren Gizlen.. tek kelimeyle harikasınız..

Hakkınızı ödeyemem..ve size saygı duyuyorum.. teşekkürlerimi ifade ile ömür boyu sağlık ve başarı diliyorum.. iyi çalışmalar..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Çok değerli hocam.. Sayın Evren Gizlen.. tek kelimeyle harikasınız..

Hakkınızı ödeyemem..ve size saygı duyuyorum.. teşekkürlerimi ifade ile ömür boyu sağlık ve başarı diliyorum.. iyi çalışmalar..
Rica ederim.
Saygılar benden.
Güzel temennileriniz için teşekkür ederim.
İyi çalışmalar.:cool:
 
Üst