Textbox içeriğini bulup seçmek

[AlpGD]

Merhaba, bir textbox a yazdığım değeri yine aynı userform içerisindeki 62 textbox değeri arasında arayıp bulduğu textbox u veya yanındakini seçtirmek mümkün mü ?

Dim bbul As Range

For x = 1 To 62

Set bbul = Controls("brkd" & x).Find(TextBox125.Value)
Next x

aklıma gelen ve çalışmayan kod bu

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For x = 1 To 62
if Controls("brkd" & x)=textbox125 then controls("brkd" & x).setfocus
Next x

 

[AlpGD]

Aşağıdaki gibi deneyin.

For x = 1 To 62
if Controls("brkd" & x)=textbox125 then controls("brkd" & x).setfocus
Next x

Hocam çok teşekkür ederim. Yanlız kodda bir hata veriyor ;

Private Sub TextBox125_Enter()

For x = 1 To 62

If Controls("brkd" & x) = TextBox125 Then Controls("Ptesi1K" & x).SetFocus

Next x


End Sub

çalıştırınca runtime 2110 hatası veriyor, bu tip işlemlerde setfocus kullanılamaz diyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub TextBox125_Enter()
For x = 1 To 62
If Controls("brkd" & x) = TextBox125 Then 
Controls("Ptesi1K" & x).SetFocus
exit sub
end if
Next x
End Sub[/LEFT]

 

[AlpGD]

Hocam o şekilde denedim ve oldu, ben de tam olduğunu yazmak için sayfaya girmiştim

Çok çok teşekkür ederim sayın üstadım. İyiki varsınız.

 

[AlpGD]

Syn. Leventm ,

farklı birşey sormak istiyorum;

bir hücredeki değeri textboxlarda aratıp bulunan textboxa göre yine aynı şekilde başka bir textbox a o hücrenin yanındaki değeri yazdırmak mümkün müdür ?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[AlpGD]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Syn. Cost_Control , teşekkür ederim. ben seçili hücredeki değeri userform içerisinde bulunan 62 adet textboxarasında aratıp bulduğu textboxun yanındaki hücreye değer atamak istiyorum.

Verdiğiniz örnekteki kodlar bu durumda da uygulanabilir mi ?

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[AlpGD]

Syn Cost_Control ekteki dosyada verileri al buttonu el terminalinin oluşturduğu .dat dosyasından sayım verilerini içeri almakta, yapmak istediğim ise barkodu okuyup bulmak ve barkodun yanındaki sayım değerlerini seçilen güne ve kasaya aktarmak.

İlginiz için çok teşekkür ederim.