Textbox'a odaklanıp verinin seçili hale gelmesi

[xxihsidxx]

Private Sub CommandButton1_Click()
'5 TL ÜSTÜ HESAPLAR
Label6.Caption = 5 - Label1.Caption
End Sub

Private Sub CommandButton6_Click()
'50 TL ÜSTÜ HESAPLAR
Label6.Caption = 50 - Label1.Caption
End Sub

Private Sub TextBox1_Change()
Sheets("perakende").Select
Dim Bul As Range
For Each Bul In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))
If StrConv(Bul.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
Bul.Select
Label2.Caption = ActiveCell.Offset(0, 1).Value 'ÜRÜNÜN ADINI ALIYOR
TextBox2.Value = ActiveCell.Offset(0, 2).Value


'SATIŞ SAYFASINA VERİ YÜKLER
Sheets("satış").Select
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
ActiveCell.Value = 1
End If
'SATILAN ÜRÜNLERİN TOPLAMINI ALMAK İÇİN SATIŞ SAYFASINA KAYIT YAPAR
On Error Resume Next
ActiveCell.Offset(0, 0) = CDbl(TextBox2.Value) 'AKTİF OLAN HÜCREYE ÜRÜN FİATINI ATAR
ActiveCell.Offset(0, -1) = Label2.Caption
For Each nesne2 In Controls
If TypeName(nesne) = "TextBox" Then
nesne.Value = ""
End If
Next nesne2
Label1.Caption = Sheets("satış").Range("c1") 'LABEL1 CAPTİON SATIŞ SAYFASINDAN ALIYOR

End If
Next Bul
End Sub

İyi akşamlar, barkod okuyucudan alınan koda göre excel sayfasında arama yaptırıp form üzerinde label ve textboxlara verileri çekiyorum. Yapmak istediğim arama yapıp ilgili verileri form üzerine aldıktan sonra textbox1 e odaklanıp orada bulunan verinin seçili olması. Çünkü barkod okuycu ile peşpeşe ürünü okuması gerekiyor. aksi takdirde her seferinde el ile textbox'a odaklanmak gerekiyor. Bunu aslında
TextBox1.SelStart = 0
TextBox1.SelLength = 30
bu şekilde halletmiştim ama şimdi olmuyor.
ikincisi yukarıdaki kodlar içinde satış sayfasına veri yüklüyor. Bir butona tıkladığımda a2 den başlamak (VERİLER A VE B HÜCRESİNDE) üzere ne kadar veri varsa kesip günlük ciro sayfasına yapıştırmasını istiyorum.

 

[muygun]

Merhaba;
TextBox1.SetFocus
Şeklinde deneyin.
İyi çalışmalar.

 

[xxihsidxx]

Sayın muygun ilgine teşekkür ederim. Textbox1 e setfocus var, buraya kopyalarken nasıl olmuşsa silinmiş. Ama yine olmuyor. İşin ilginci kurumdaki bilgisayarımda işe yarıyor, evdeki bilgisayarımda işe yaramıyor, sebebi de imlecin commandbutton' odaklanması. Kodları inceledim commandbutton' setfocus yok.

 

[muygun]

Merhaba;
Bunu birkaç yöntemle yapabilirsiniz.
TabIndex değerlerini kontrol edin.
en son yazılan Textbox'un Click yada activate olayının bitimine SetFocus'u yerleştirin.
Form aktif olunca , veri çekilip textbox'lara yazılınca , vs.. olaylara bağlayarak imleci istediğiniz yere konumlandırabilirsiniz.

Eki inceleyin.

İyi çalışmalar.

Link:
http://s6.dosya.tc/server7/jttgiu/xxihsidxx-ornek.zip.html

 

[xxihsidxx]

Label ile çözüm

Sayın muygun, ilginize teşekkür ederim. Bütün yolları denedim ama olmadı.Userforma commandbutton eklendiğinde imleç butona odaklanıyor. Ben de commandbuton yerine label ekleyerek çözüme ulaştım.