textbox'da formüllü hücre yansıtmak. Nasıl?

[woyzeck]

Merhaba Arkadaşlar,

kullandığım excel dosyasında formumun içindeki bir adet textbox bulunmakta. bu textbox veri girişi için kullanılmamakta. formül bulunan bir hücredeki veriyi göstermek için kullanılmakta.

ama textbox'da veri gösterildiği zaman arkadaki formül silinmekte ve o veri kendini hücreye yerleştirmekte.

Textbox'ı bi nebze ayna görevinde kullanmak isterim. belirttiğim hücrede hiçbir değişiklik yapmadan gelen veriyi yansıtsın.

ekteki dosyayı incelerseniz çok sevinirim.

iyi çalışmalar dilerim.

 

[zafer]

Merhaba

Private Sub UserForm_Initialize()
TextBox32.value = Sheets("sayfa ismi").Cells(2, 3).value
End Sub

Textbox özelliklerinde Control source kısmını silin

 

[woyzeck]

@Zafer ilgin için çok teşekkürler,

göndermiş olduğun kod hücrenin içindeki formülü değiştirmemekte. fakat şimdi de ayrı bir problem çıktı, bu kodu kullandığımda sadece bir kerelik belirtilen hücre texbox'da görünmekte. soldaki seçenekler değiştirildiği zaman kendini yenilememekte.
interaktif olarak textboz'ın kendini yeniletebilir miyiz?

teşekkürler.

 

[zafer]

Merhaba

Dosyanızda userform'u sayfadan kontrol etmek istiyorsunuz.Bu çok doğru bir seçim değil.

Ekli dosyadaki userformu inceleyin combox'la dan veri seçerek textbox'un değerinin nasıl değiştiğini kontrol edin.

 

[woyzeck]

@zafer,

süper bi öneri, çok teşekkürler.
eğer beni çok görmessen bu yaptığın makro üzerine birşey sormak isterim.

aşağıdaki programda kullanıcı son combobox_2'de değişiklik yapınca textbox algılayor ve birleştirdiği değeri arayıp sonucu veriyor.

----------------------------
Private Sub ComboBox2_Change()
On Error Resume Next
birles = ComboBox1.Value & "-" & ComboBox2.Value
If Application.WorksheetFunction.VLookup(birles, Sheets("sayfa2").Range("a1:b20"), 2, 0) = Empty Then TextBox32 = 0 Else TextBox32 = WorksheetFunction.VLookup(birles, Sheets("sayfa2").Range("a1:b20"), 2, 0)
End Sub
-----------------------------------------

peki combobox_2 veya combobox_1 ayrımını gözetmeden, herhangi bir combobox'da değişiklik yapıldığı zaman o an textbox değişikliği algılayıp yeni değeri getirebilir mi?

gerçekten seni yormak veya uğraştırmak istemem, eğer bu mümkünse bir ipucu versen bile bana yeter. ben devamını getirmeye çalışayım.

İlgin ve alakan için çok teşekkürler.

 

[woyzeck]

ya da yukarıda sorduğumu şöyle çözümlesem uygun olur mu?

--------------------------------

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
birles = ComboBox1.Value & "-" & ComboBox2.Value
If Application.WorksheetFunction.VLookup(birles, Sheets("sayfa2").Range("a1:b20"), 2, 0) = Empty Then TextBox32 = 0 Else TextBox32 = WorksheetFunction.VLookup(birles, Sheets("sayfa2").Range("a1:b20"), 2, 0)
End Sub
-------------------

mouse hareket ettiği an veri yenileniyor..

teşekkürler.

 

[zafer]

Merhaba

Kodları ComboBox1_Change'de aynen yazın

 

[woyzeck]

@Zafer,

üstad olmak çok başka... çok teşekkürler