TextBox5 ile TextBox6.daki verilerin aynı hücreye aktarılmasını istiyorum

[ferhatgurbuz]

böyle birşey denedim ama olmadı. ilgilenen arakadşalara teşekkürler

Private Sub TextBox5_Change()
Sheets("ÖdemeEmri").Select
[w6].NumberFormat = "@"
[w6] = TextBox5.Value & "/" & TextBox6.Value

 

[Kemal Demir]

Gunaydın,

Private Sub TextBox5_Change()
Sheets("ÖdemeEmri").Select
[b]'Text formatınındamı olsun istiyorsun.[/b]
'[w6].NumberFormat = "@" Bu satırı kaldırmanda bir problem olmaz
[w6] = "'" & TextBox5 & "/" & TextBox6
End Sub

Umarım doğru anlamısımdır.

 

[Recep İpek]

Private Sub TextBox5_Change()
Set s1= Sheets("ÖdemeEmri")
s1.[w6].NumberFormat = "@"
s1.[w6] = TextBox5.Value & "/" & TextBox6.Value
Set s1 = Nothing
End Sub

olarak denermisiniz?

Çünkü userform açıkken sayfa seçme işlemi olmayabilir.

 

[ferhatgurbuz]

olmuyor arkadaşlar sadece Textbox5 teki veriyi aktarıyor sonunada / koyuyor
TextBox6 yı aktarmıyor

Private Sub TextBox5_Change()
burda sadece tekxbox5 göstermiş olmamızdan olabilirmi

 

[Kemal Demir]

Change değilde Exit Olarak Tanımlamanız sizin için sorun olmaz ise öğle deneyiniz.
Change(Yaptıgın ilk hamleye göre calisiyor).2 bir olaya musade etmiyor diye soylesem.