sayfayı aktif etmeden hücre seçmek?

[udentr2002]

Merhaba arkadaşlar sayfa üzerine eklenmiş textbox1'de yazılan bir veriyi "miktar" adlı sayfada A stünunda aratıp bulunan hücreyi select ile seçiyorum bunu aşağıdaki kodlar ile yapıyorum.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("miktar").Select
Set s1 = Sheets("miktar")
Set s2 = Sheets("Giris")
For Each isim In s1.Range("a2:a" & s1.Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) Then
   isim.Select

    
  TextBox11 = ActiveCell.Offset(0, 3).Value
TextBox12 = ActiveCell.Offset(0, 1).Value
  
  TextBox13 = ActiveCell.Offset(0, 2).Value
   
  Sheets("Giris").Select
End If
Next

End Sub

burda "miktar" adlı sayfayı aktif etmeden Giris sayfasında bulunan textbox1'e yazılan veriyi aratıp seçtirmem ve Giris sayfasındaki textbox11, textbox12 ve textbox 13 'e yazdırmam lazım bunun için yukarıdaki kodu nasıl değiştirebilrim.

Not : sayfa üzerinde bulunan bir textboxun enter veya tab tuşlarına basıldığında kodların çalışmasını isitiyorum.

 

[uzmanamele]

merhaba

.select yazan satırları silerek dener misiniz,
veya örnek dosya ekleyiniz.

 

[udentr2002]

Hocam select yazan satırları çıkarttığımda
run time error 1004
range sınıfının select yöntemi başarısız hatasını alıyorum.
ama yukarıdaki gibi kodu yazarsam kodlar çalışıyor.
sayfaları aktif etmeden arama yaptırtmak istememdeki sebep.
kodlar çalışacağı zaman sayfalar arası gidip geliyor buda güzel bi görüntü olmuyor.

 

[udentr2002]

Hocam bir örnek dosya ekliyorum.

Kodlardan göreceğiniz gibi textbox1'in duble click olayından sonra textbox1 de yazan veriyi miktar sayfasından arayıp buluyor ve bulduğu hücreyi işarertliyor.
işaretli hücrenin activesell offset kodları ile textbox2, textbox3 ve textbox4 e verileri yazıyor.

kodların çalışması için ben önce miktar sayfasını select ile aktif edip ve3riyi bulduktan sonrada Giris sayfasını aktif ediyorum.
Benimj istediğim sayfaları aktif etmeden kodları çalıştırabilmek.

Not: ben kodları textboxun dubleclick olayının altına yazdım aslında textbox1'den enter yada tabla çıkıldığında kodların çalışmasını isitiyorum.

İlgilenen arkadaşalrıma teşekkür ederim.

 

[Orion1]

Şu seçme işleminden bir türlü bütün arkadaşlar vazgeçemedi gitti.
Bir syafayı seçmek veya bir hücreyi seçmedende veriler alınabilir hücrelerden.Hücreyi seçmek kodlara sıkı bir fren yaptırır.Hız yavaşlar.Vazgeçin şu seçme işleminden.

 

[udentr2002]

işte hocam bende seçme işlemi yapmadan nasıl bir kod yazabilrim select le seçmediğim zaman 3 numaralı mesajımddaki hata kodunu veriyor

 

[Orion1]

Şu seçme işleminden bir türlü bütün arkadaşlar vazgeçemedi gitti.
Bir syafayı seçmek veya bir hücreyi seçmedende veriler alınabilir hücrelerden.Hücreyi seçmek kodlara sıkı bir fren yaptırır.Hız yavaşlar.Vazgeçin şu seçme işleminden.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set s1 = Sheets("miktar")
Set s2 = Sheets("Giris")
For Each isim In s1.Range("a2:a" & s1.Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) Then
      TextBox11 = isim.Offset(0, 3).Value
    TextBox12 = isim.Offset(0, 1).Value
      TextBox13 = isim.Offset(0, 2).Value
[B][COLOR="Red"]exit for[/COLOR][/B]
End If
Next
End Sub

 

[udentr2002]

Hocam teşekkürler

Not: ben kodları textboxun dubleclick olayının altına yazdım aslında textbox1'den enter yada tabla çıkıldığında kodların çalışmasını isitiyorum.

hocam birde textbox1'den enterla yada tabla çıkıldığında kodların çalışması için hangi olayın altına yazacam ?

Tekrar ilgilenirseniz çok sevinirim.

 

[Orion1]

Hocam teşekkürler



hocam birde textbox1'den enterla yada tabla çıkıldığında kodların çalışması için hangi olayın altına yazacam ?

Tekrar ilgilenirseniz çok sevinirim.

Texteboxtan çıkarken çalışması için kodları textboxın exit olayına yazınız.

 

[uzmanamele]

merhaba

bende bişeyler yapmıştım, boşa gitmesin.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set s1 = Sheets("miktar")
Set s2 = Sheets("Giris")
For Each isim In s1.Range("a2:a" & s1.Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) Then
        satır = isim.Row
        sütun = isim.Column
    TextBox2 = s1.Cells(satır, sütun + 1)
    TextBox3 = s1.Cells(satır, sütun + 2)
    TextBox4 = s1.Cells(satır, sütun + 3)
End If
Next
End Sub

 

[udentr2002]

Her iki hocamada ayrı ayrı teşekkür ederim

 

[udentr2002]

Hocam bir şey daha isteyeceğim affınıza sığınarak,

Eğer aranan şeyi bulamazsa
textbox11, textbox12 ve textbox 13'ün boş görünmesi için nasıl bir ekleme yapmalıyım koda

 

[uzmanamele]

merhaba

bunun gibi mi?

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
Set s1 = Sheets("miktar")
Set s2 = Sheets("Giris")
For Each isim In s1.Range("a2:a" & s1.Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) Then
        satır = isim.Row
        sütun = isim.Column
    TextBox2 = s1.Cells(satır, sütun + 1)
    TextBox3 = s1.Cells(satır, sütun + 2)
    TextBox4 = s1.Cells(satır, sütun + 3)
End If
Next
End Sub

 

[udentr2002]

çok teşekkürler hocam aklıma gelmedi valla