Combobox ta hata

[plus44]

Üstatlarım, ben Combobox tan buldugum verileri textbox lara getiriyordum, ama hiçbir değişiklik yapmadıgım halde sürekli hata veriyor, kodları aşagı yazıyorum,

Private Sub ComboBox1_Change()
Dim bul As Range
With Sheets("KATSAYILAR")
For Each bul In .Range("O4:O" & .Range("o65536").End(3).Row)
If bul.Text = ComboBox1.Text Then: bul.Select
If ComboBox1.ListIndex < 0 Then Exit Sub
TextBox2.Text = ActiveCell.Offset(0, 1).Value
TextBox3.Text = ActiveCell.Offset(0, 2).Value
TextBox4.Text = ActiveCell.Offset(0, 3).Value
TextBox5.Text = ActiveCell.Offset(0, 4).Value
Next bul
End With
End Sub

hata

If bul.Text = ComboBox1.Text Then: bul.Select

bul.Select sarı yanıyor,
ugraşmama rağmen çözemedim, yardımlarınıza ihtiyacım var şimdiden tşklr

 

[Orion1]

aşağıdaki kodu ilgili yerindeki ile değiştirip denyiniz.

If bul.Text = ComboBox1.Text Then bul.Select

 

[plus44]

Sayın Orion
bul.Select
yine sarı yanıyor hata veriyor

 

[Orion1]

Sayın Orion
bul.Select
yine sarı yanıyor hata veriyor

Bende çalışıyor.

 

[plus44]

sayın Orion bu formülle ilk yaptıgım zaman gayet iyi çalışıyordu, ama şimdi çalışmamaması, acaba başka forumlardaki kodlar etkili olurmu, inan kafayı yiyeceğim, hatta siz yazdıktan sonra denedim çalışmadı, başka bir dosyada denedim önce bir iki çalıştı ama sonra tekrar aynı hatayı veriyor,
neler etkiler acaba bu tür çalışmayı ?

 

[Orion1]

VBA'da tools==> refernce'den bakınız.
Missing yazan varmı varsa tikini iptal edin.
Bu durumda o mesneyi kullanmayacaksınız.Çünkü yok.Ondanda hata verebilir.

 

[plus44]

VBA'da tools==> refernce'den bakınız.
Missing yazan varmı varsa tikini iptal edin.
Bu durumda o mesneyi kullanmayacaksınız.Çünkü yok.Ondanda hata verebilir.

Missing yok

 

[Orion1]

Missing yok

Peki O sütununda Birleştirilmiş hücre varmı.

 

[plus44]

Peki O sütununda Birleştirilmiş hücre varmı.

Hayır tek tek baktım yoktur

 

[Orion1]

Aktif olmayan bir sayfadan hücre seçimi yapıyor olabilirsin.
koda şunu ekleyiniz.

With Sheets("KATSAYILAR")
[B][COLOR="Red"].select[/COLOR][/B]
For Each bul In .Range("O4:O" & .Range("o65536").End(3).Row)

 

[plus44]

Sayın Orion Dosya ekte bunun üzerinde bir deneme yapsanız ben olmadı forumu değiştireceğim,
ekteki dosyada yapmak istediklerim,
Ara dediğimde bilgiler geliyor, üzerinde değişiklik yaptıgımda değiştirmiyor bunu düzeltirmisiniz, başkada çalışıp çalışmayan varmı birzahmet bakarmısınız.

 

[Orion1]

Yolladığınız dosyada vba kodlama yoktur.

 

[plus44]

yeniden yolladım dosyayı,
select yazdım çalıştı, fakat sayfa gizliyken tekrar hata veriyor, sayfayı gizli yapmadıgımda, gidip sayfayı bulup açıyor bilginize

 

[Orion1]

yeniden yolladım dosyayı,
select yazdım çalıştı, fakat sayfa gizliyken tekrar hata veriyor, sayfayı gizli yapmadıgımda, gidip sayfayı bulup açıyor bilginize

Bundada yok kod.

 

[Orion1]

o kodları bunlarla değiştirin.

Dim bul As Range
With Sheets("KATSAYILAR")
If ComboBox1.ListIndex < 0 Then Exit Sub
For Each bul In .Range("O4:O" & .Range("o65536").End(3).Row)
    If bul.Text = ComboBox1.Text Then
        TextBox2.Text = bul.Offset(0, 1).Value
        TextBox3.Text = bul.Offset(0, 2).Value
        TextBox4.Text = bul.Offset(0, 3).Value
        TextBox5.Text = bul.Offset(0, 4).Value
   end if
Next bul
End With

 

[plus44]

Sayın Orion bu gece sizi bayagı uğraştırdık hakkını helal et ya,
sonra gönderdiğim dosyayı kaç kez açtım forumda kodlar ve forum var, sizde nasıl görünmüyor anlamadım,
son yazdığınız kodları değiştim
Next bul
hata veriyor

 

[Orion1]

Sayın Orion bu gece sizi bayagı uğraştırdık hakkını helal et ya,
sonra gönderdiğim dosyayı kaç kez açtım forumda kodlar ve forum var, sizde nasıl görünmüyor anlamadım,
son yazdığınız kodları değiştim
Next bul
hata veriyor

Düzeltemeyi yaptım.
tekrar onları deneyiniz.

 

[plus44]

Çok Sağolun düzeldi,
Allah Razı olsun hayırlı çalışmalar