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
Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Çözüldü Textbox değerini seçmek
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Çözüm
Tekrar 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?
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?
CSS:
You must log in to view content
(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?
Nasıl yani ? yazıyı fare ile seçmek gibi bir şey mi?
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:
You must log in to view content
(4 satır)Sezerkaratas
Normal Üye
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:You must log in to view content (4 satır)
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
Örnek dosya yükleyiniz.
Userforma tıklandığında hangi textbox verisinin seçimi yapılacak ?
Userforma tıklandığında hangi textbox verisinin seçimi yapılacak ?
Sezerkaratas
Normal Üye
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
Merhaba Sayın @Sezerkaratas.
Sayın @cakarem 'in de belirttiği gibi, sorularınızı;
cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlanmış örnek belge üzerinden sorarsanız.
daha hızlı ve net çözüme ulaşmanız kolaylaşır.
Sayın @cakarem 'in de belirttiği gibi, sorularınızı;
cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlanmış örnek belge üzerinden sorarsanız.
daha hızlı ve net çözüme ulaşmanız kolaylaşı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
Paylaştığım kod Private Sub TextBox3_Exit olayında çalışmaz bir buttona eklemelisiniz yada paylaştığım kodu direk userform kod bölümüne yazınız.
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
Sezerkaratas
Normal Üye
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
Sezerkaratas
Normal Üye
Malesef çalışmadı ?Denediniz mi ?
Sezerkaratas
Normal Üye
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
Merhaba.
İlginç cevap işte bu "ÇALIŞMADI".
7 numaralı cevapta benim ve diğer arkadaşlarımızın da belirttiği gibi örnek belge yüklememe ısrarının sonucu bu.
Sonuç almak istiyorsanız;
cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlayacağınız bir örnek belge eklemeniz.
İlginç cevap işte bu "ÇALIŞMADI".
7 numaralı cevapta benim ve diğer arkadaşlarımızın da belirttiği gibi örnek belge yüklememe ısrarının sonucu bu.
Sonuç almak istiyorsanız;
cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlayacağınız bir örnek belge eklemeniz.
Sezerkaratas
Normal Üye
https://***/up14hn668lmg/Parekende_Satış.xlsm.html
örnek dosyayı yükledim aslında istediğim basit eğer stok kodu yanlış girilirse altaki textboxları görünür yapmasın ve imleç yanlış girilen textbox un üstünde olsun yardımlarınızı bekliyorumSezerkaratas
Normal Üye
Tekrar 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?
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?
CSS:
You must log in to view content
(10 satır)
Çözüm
Sezerkaratas
Normal Üye
İ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]
Sezerkaratas
Normal Üye
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]
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Normal Üye
- Katılım
Konu Bilgi