Makro da Enter Tuşu

[aydogan46]

Merhaba Arkadaşlar;
Ben excelde makro yazarken bir hüreye değerler atıyorum. örneğin
activesheet.cells(2,1).value="ggggggg" & _
"ggggggg"
burda bir sorun yok
benim isteğim & _ işaretinin yerine enter tuşu kullanmak
enter tuşunu gördüğünde hücrenin içerisinde bir alt satıra geçsin. bu konuda yardımcı olur musunuz

 

[mith]

"& Chr(10)" ifadesi işini görecektir sanırım. Hadi kolay gelsin

 

[aydogan46]

çok teşekkür ederim. işim halloldu. sağolasınız

 

[puslukurt]

excel de 2 sayfam (firma ve veri isimli) var veri isimli sayfanın koduna
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("e2")) Is Nothing Then Exit Sub 'müşteri no"

With Sheets("firma")
Set c = .Range("a:a").Find(Range("e2"), , xlValues, xlWhole) 'müşteri no"
If Not c Is Nothing Then
Range("b16") = .Cells(c.Row, "b")
Range("b15") = .Cells(c.Row, "c") 'müşteri adı
Range("b17") = .Cells(c.Row, "d")
Range("a12") = .Cells(c.Row, "e")
Else
MsgBox "Hatalı Müşteri Numarası", , "Murat Bozkurt"

End If
End With

End Sub

makrosu yazdım bu kod düşeyara formülü gibi çalışıyor niye düşeyara ile yazmadın da makro ile yazdın derseniz bazen üzerine yazdığım için formül siliniyor makroda bir problem yok...
bu kod ile e2 hücresine müşteri numarasını yazıp entere bastığımda firma isimli sayfadan verileri yazdırıyor. ben bir kademe daha ileri giderek bir userform yaptım üzerine textbox ve CommandButton ekledim. ve aşağıdaki kodu yazdım

Private Sub CommandButton1_Click()

Range("E2").Value = TextBox2.Value

End Sub

buraya kadar herşey çalışıyor. çalışmıyan userform üzerinden textbox nesnesine müşteri numarasını yazıp CommandButton1 düğmesine tıklayıpda müşteri numarasını yazıyor ancak yukarıdaa belirttiğim makro ile düşeyara formülünü yazdığım e2 hücresindeki verileri ilgili hücrelere getirmiyor