bir if kodunda 91 nolu hatayı alıyorum

[Sezerkaratas]

merhabalar
ElseIf Not k Is Nothing And k.Offset(-1, 0) = Sheets(Sayfa1).ComboBox1.Value Then
kodunda hata alıyorum nerede yanlış yapıyorum yardım eder misiniz ?
And k.Offset(-1, 0) = Sheets(Sayfa1).ComboBox1.Value
bu alanı silince çalışıyor fakat benim bu sorguyuda yapmam lazım kodumu düzeltir misiniz?
c3 hücresini sayfa 1 c stununda aratıyorum k değişkeni o oluyor
c3 ün değerinin aynısı sayfa 1 c kolonunda varsa ve aynı kategoriye aitse katogoride sayfa ikide combobox1 ile seçiliyor
sayfa1 de b kolonunda yazıyor . yani c3 hücresinin değerinin aynısı sayfa 1 c kolonunda varsa ve combobox ın değeride b kolonunda onun yanındaysa msgbox versin

lütfen yardım eder misiniz

 

[PLİNT]

Merhaba
Sheets(Sayfa1).ComboBox1.Value yerine aşağıdaki gibi deneyiniz
Sheets("Sayfa1").ComboBox1.Value
veya
Sayfa1.ComboBox1.Value

Ayrıca "k" değeri bulunmazsa;
k.Offset(-1, 0) adresli bir hücre olmayacağından yine hata verecektir

Sorunuzun "msgbox" ile ilgili bölümü için tüm makroyu eklermisiniz?

 

[Sezerkaratas]

Merhaba
Sheets(Sayfa1).ComboBox1.Value yerine aşağıdaki gibi deneyiniz
Sheets("Sayfa1").ComboBox1.Value
veya
Sayfa1.ComboBox1.Value

Ayrıca "k" değeri bulunmazsa;
k.Offset(-1, 0) adresli bir hücre olmayacağından yine hata verecektir

Sorunuzun "msgbox" ile ilgili bölümü için tüm makroyu eklermisiniz?

Teşekür ederim
Peki ama k.offset değerini nasıl ayarlayacağım

Tüm macro şu

İf not k is nothing and k.offset(-1, 0) = combobox1 then
Msgbox “aynı kategoride girdiğiniz isim mevcuttur lütfen değiştiriniz”
End if
End sub

 

[Saban Sertkaya]

Sayın PLİNT cevaplamışlar. Muhtemelen Offset(-1,0) daki, -1 değeri hata verdiriyor. Yani sola veya yukarıya doğru gidilecek bir hücre olmadığında hata ile karşılaşıyorsunuzdur.

Hata almamak için bir if döngüsü kurabilirsiniz. Örneğin
if k.rows < 1 then exit sub
gibi. Siz exit sub yerine GOTO ile başka bir satıra yönlendirme yapabilirsiniz.

 

[PLİNT]

Evet sn. saban20152015 'in belirttiği gibi "-1" k.Offset(0, -1) şeklinde olmalı

Aşağıdaki gibi deneyin
Arama yapılan adres ; "Sayfa1.[C:C]" sütunu ve "combobox" 2. sayfada ise;

If Not k Is Nothing Then
If k.Offset(0, -1) = Sayfa2.ComboBox1 Then MsgBox "aynı kategoride girdiğiniz isim mevcuttur lütfen değiştiriniz"
End If

 

[Sezerkaratas]

Teşekür ederim deneyip bilgi vereceğim .

 

[Sezerkaratas]

ÇOK TEŞEKÜR EDERİM SORUNUM ÇÖZÜLDÜ