(Error 91)

[k.guclu]

arkadaşlar aşağıdaki komutu çalıştırdığımda

"Object variable or With block variable not set (Error 91)" hatası veriyor formu inceledim fakat bir çözüm bulamadım. yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
Dim Bul, x, i
Dim yaz1, yaz2 As Range
Set yaz1 = Sheets("I.HACİMLER")
Bul = TextBox1.Value
x = yaz1.[D65536].End(3).Row
For i = 1 To x
Set yaz2 = Sheets("I.HACİMLER").Range("D1:D200").Find(Bul, Lookat:=xlWhole)
If Range("D" & i).MergeCells = True Then
yaz2.Select
Else
End If
Next
Unload Me
Set yaz1 = Nothing
Set yaz2 = Nothing
End Sub

 

[Fuat Şirin]

I.HACİMLER
sheetinin var olduğundan emin olun

İ I farkı olabilir
varsa tekrar sorun bakayım
tekrar

 

[k.guclu]

üstat öyle olduğundan eminim çünkü başka bir yerde kullandım sorun vermedi.

 

[Fuat Şirin]

sheet ismi neyse onu yazın
kodun o bölümüne
yada arıza istemiyorsanız
küçük harfle sayfa açın
ve arada "." kullanmayın
o sayfanın ismini de kodun ilgili bölümüne yazın

 

[k.guclu]

tamm hocam bir öyle deneyeyim.

 

[k.guclu]

üstat denedim yaz2.select' te hata veriyor.

 

[k.guclu]

üstat sorunu buldum ama çözümü bilmiyorum.

Sorun D hücresinde bulmak istediğim değer E hücresiyle birleşik halde ondan öyle hata veriyor bu sorunu nasıl çözebilirim. birleşik hücredeki değeri bulup seçmek için.

 

[Fuat Şirin]

o farketmez birleişk olması
zaten birleşen hücreye tıkladığındada
d1 d2 gibi seçer

bence sorun yaz2.select te
yaz2 select yerine yaz2 yaz sadece

çünkü yaz2.select
yaz2 sayfasına gider
böle bir sayfada olmadığı için hata verir
olmazsa
dosyanı
yolla bakayım

 

[k.guclu]

üstat tamm sorunu giderdim çok teşekkürler ederim iyi çalışmalar