Sezerkaratas
Normal Üye
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Texboxun içinde yazan değer nasıl seçilir
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)
Texboxun içinde yazan değer nasıl seçilir
Nasıl yani ? yazıyı fare ile seçmek gibi bir şey mi?
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)aşağıdaki kodu Userform kod bölümüne yazınız. Userforma tıkladığınızda textboxda ki yazıyı seçer.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (4 satır)
Hatalı kod girilim derken hata neye göre belirleyecek. Sorularınızı eksik ve örnek dosya olmadan sormanız anlaşılmanızı zorlaştıracaktır. Sorduğunuz soru mesleğinizle alakalı çok duyulan ifade edilen bilgi olsa da biz farklı meslekler olduğumuz için anlamamız zor. Bu nedenle sorularınızı sorarken örnek dosya yüklemeye özen gösterilmesini istiyoruz. Aynı zamanda neyin nasıl hangi şartlar altında yapılacağını net açıklanmasını bekliyoruz ki anlaşılmayan bir durum kalmasın. Bu nedenle sorunuzu tekrardan bahsettiğim durumları gözden geçirerek sormanızı isteyeceğim.Ben sadece textbox3 ü istiyorum . Şimdi textbox3 e hatalı kod girilim entere basılınca textbox 4 e geçmemeli . Textbox3 deki veriyi seçsin istiyorum
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim k As Range, sat As Integer
If UserForm1.TextBox3.Value = "" Then
TextBox13 = ""
TextBox23 = ""
TextBox33 = ""
Else
sat = Workbooks("parekende satış.xlsm").Sheets("Stok").Cells(Rows.Count, "b").End(xlUp).Row
Set k = Workbooks("parekende satış.xlsm").Sheets("Stok").Range("b2:b" & sat).Find(UserForm1.TextBox3.Value, , xlValues, xlWhole)
If k Is Nothing Then
MsgBox "Girdiğiniz stok kodu yanlıştır lütfen kontrol ediniz", vbInformation
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
Me.TextBox13.Text = k.Offset(0, 1)
Me.TextBox23.Text = k.Offset(0, 6)
Me.TextBox33.Text = k.Offset(0, 4)
End If
End If
End Sub
Çalıştıramadım düzenlememe yardım eder misin
Eğer yazdığınız kod hatalı ise seçme yerine textbox içerini boşaltın.Ben sadece textbox3 ü istiyorum . Şimdi textbox3 e hatalı kod girilim entere basılınca textbox 4 e geçmemeli . Textbox3 deki veriyi seçsin istiyorum
Feyzullah bey bi sub yapıp call komutuyla kullansam çalışır mı aynı buton mantığı olmuş oluyorEğer yazdığınız kod hatalı ise seçme yerine textbox içerini boşaltın.
Denediniz mi ?Feyzullah bey bi sub yapıp call komutuyla kullansam çalışır mı aynı buton mantığı olmuş oluyor
Malesef çalışmadı ?Denediniz mi ?
Malesef çalışmadı ?
[/QUOTE
hocam neden olmadığını çözdüm ben textboxlara entere basıldığında bir kod daha çalıştırıyorum o kodu çalıştırdığı için olmuyor .Denediniz mi ?
keydown sub var .
m is nothings textbox3ü seç exit sub yapıyorum ama ondan sonra keydown subu çalıştırıyor bununasıl engellerim
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)
İlk fırsatta deneyeceğim kodunuzu ömer bey tavsiyeniz için çok teşekür ederim . Combobox kullanmayı deniyeceğimTekrar merhaba Sayın @Sezerkaratas .
Belki de ürün kodu yazılması için ComboBox nesnesi kullanmalısınız ama neyse düzeninizi bozmayayım.
UserForm1.TextBox3_Exit kodlarında ilgili bölümü aşağıdaki şekilde düzenleyerek dener missiniz?
[Gizlenmiş içerik]
Bide cancel kodunu açıklamanız mümkün mü tam olarak nasıl çalışıcak buTekrar merhaba Sayın @Sezerkaratas .
Belki de ürün kodu yazılması için ComboBox nesnesi kullanmalısınız ama neyse düzeninizi bozmayayım.
UserForm1.TextBox3_Exit kodlarında ilgili bölümü aşağıdaki şekilde düzenleyerek dener missiniz?
[Gizlenmiş içerik]