Texbox icindeki metni hücreye yazdirmak

[dennisf06]

merhaba,

texbox icerisine süzme islemi icin metin yaziyorum. bu yazdigim metini ( veya tarih ) mesala c1 hücresine formül veya daha basit bir sekilde aktarmam mümkünmü. Texbox icine elma yazdiktan sonra c1 hücresinde de elma yazsin istiyorum. tesekkür ederim.

 

[Orion1]

Textbox userformda.
Buyurun.

Private Sub TextBox1_Change()
Range("C1").Value = TextBox1.Value
End Sub

 

[dennisf06]

Orion1 ustam tesekkür ederim. ancak TexBox 1 icin asagidaki süzme makrosunu kullandigim icin cakisma oldu. makrosuz bir cözüm yoksa asagidaki makroya sizinkini de uyarlayabilirmisiniz. bir de tarih süzmesi icin ben de ayni eklemeyi ayni yere yapabilirmiyim.

Private Sub TextBox1_Change()
On Error Resume Next
METÝN2 = TextBox1.Value
Set FC2 = Range("C14:J65000").Find(What:=METÝN2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*"
If METÝN2 = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

 

[Orion1]

Orion1 ustam tesekkür ederim. ancak TexBox 1 icin asagidaki süzme makrosunu kullandigim icin cakisma oldu. makrosuz bir cözüm yoksa asagidaki makroya sizinkini de uyarlayabilirmisiniz. bir de tarih süzmesi icin ben de ayni eklemeyi ayni yere yapabilirmiyim.

Private Sub TextBox1_Change()
On Error Resume Next
METÝN2 = TextBox1.Value
Set FC2 = Range("C14:J65000").Find(What:=METÝN2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*"
If METÝN2 = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

Değişken adlarında ve nesne adlarında Türkçe karakterler kullanmayınız.İngilizce karakterler kullanınız.
Kodu ekledim.Aşağıdadır.

Private Sub TextBox1_Change()
metin2 = TextBox1.Value
[B][COLOR="Blue"]Range("C1").Value = metin2[/COLOR][/B]
Set FC2 = Range("C14:J65000").Find(What:=metin2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*"
If metin2 = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

 

[dennisf06]

tesekkür ederim Orion1 ustam.

 

[Orion1]

tesekkür ederim Orion1 ustam.

Rica ederim.
İyi çalışmalar.