object variable or with block variable not set hatası

[a_self_lion]

Selam arkadaşlar,

Sizlerinde yardımıyla oluşturmuş olduğum ürün takip programında
Run-time error '91'
object variable or with block variable not set

şeklinde bir hata alıyorum kod satırıda
kaptırken

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Worksheets("MLZ_KOD").Visible = False
Worksheets("veri").Visible = False
Worksheets("RAPOR").Visible = False
Worksheets("KODLAR").Visible = False
 
Worksheets("PARAMETRE").Visible = False
Worksheets("MLZ_KOD").Visible = False
Worksheets("FRM").Visible = False
Worksheets("MaliyetVeSatFiyBul").Visible = False
Worksheets("BAGLAN").Visible = False
Worksheets("SONUC").Visible = False
Worksheets("Fatura").Visible = False
 
End Sub

açerken de

Private Sub Workbook_Open()
 
Worksheets("MLZ_KOD").Visible = True
Worksheets("veri").Visible = True
Worksheets("RAPOR").Visible = True
Worksheets("KODLAR").Visible = True
 
Worksheets("PARAMETRE").Visible = True
Worksheets("MLZ_KOD").Visible = True
Worksheets("FRM").Visible = True
Worksheets("MaliyetVeSatFiyBul").Visible = True
Worksheets("BAGLAN").Visible = True
Worksheets("SONUC").Visible = True
Worksheets("Fatura").Visible = True
 
UserFormKullanici.Show
 
 
End Sub

hatayı burada veriyor UserFormKullanici.Show açarken yukarıda hatayı alıyorum Daha önce ofice 2007 kullanıyordum sorun yoktu. Hatta hala ofise 2007 kullanan makinada açıyorum sorun yok. Fakat benim pc de win7 64bit ve ofise 2010 yüklü sebebi bu olabilirmi. Olursa da sebebi neden olur.

 

[merakli_72]

formun açılış olayındaki komutlar nedir
Office 2007-2010 ile ilgili bir sorun olacağını sanmam
formun açılış olayındaki komutlarda bir problem var gibi
Mümkünse dosyanızı eklerseniz çözüm çok daha kolay olacaktır

 

[a_self_lion]

Tabi hemen dosyayı ekliyorum. Bu arada F den çalıştırınca bu hatayı alıyormuş. masaüstüne kopyaladım ordan çalıştırdım hata almadı. ama nedeni ne olabilir. F altından yani serverden çalıştırınca üstte şöyle bir uyarı çıkıyor ve ben düzenlemeyi Etkinleştir diyorum.
Korumalı Görünüm Bu kaynağı bir internet konumu; dosya güvenli olmayabilir. Daha fazla ayrıntı için tıklayın. Düzenlemeyi Etkinleştir diye bir seçenek çıkıyor bende etkinleştir diyroum. Ama bu uyarı masaüstüne kopyalınca çıkmadı ve hata da vermedi. 2007 de böyle bir sorunum yoktu.

 

[merakli_72]

hem 2010 hemde 2007'de
Dosya/Seçenekler/Güven Merkezi/Güven merkezi Ayarları/Dış İçerik kısmına bakarmısınız
sanırım 2007'de burda 2010'dan farklı bir şey işaretli o yüzden 2007'de hata almıyorsunuz diye düşünüyorum, denermisiniz

 

[a_self_lion]

buradaki tik işaretini kaldırınca düzeldi fakat sebebi nedir bilmiyorum. Bilen arkadaşlar açıklarlarsa sevinirim. İlginiz için çok teşekkür ederim.

 

[cems]

Her makinedeki ofis kendine özgü bir gizli imzayı yaratılan dosya üzerine yazar. Kendisi dışında üretilen bir dosya açıldığında doğal olarak bu gizli imza uyuşmaz ve ofis kendisi ile makineyi ; dosyayı dondurarak korumaya çalışır, bunu da size uyarı olarak bildirir.

Dosya içeriğinde risk olduğundan değil, sadece bu dosya benim kromozomlarımı taşımıyor, dikkatli ol, güvenilirliğinden eminsen aç diyor. Antikor olarak da dosyayı dondurup size uyarı gönderiyor.

Sizin kaldırdığınız tık da bu işlevi internetten gelen dosyalar için durduruyor.
Altındaki diğer iki tık'tan ilki network içinden gelen dosyalar , sonuncu da e-posta ile gelen dosyalarda aynı şekilde kromozomlara bakıyor. Tıkları kaldırırsanız ofisiniz bir daha bunlarla ilgilenmez.

 

[a_self_lion]

Teşekkür ederim cems kardeş.

 

[mafit]

Merhaba arkadaşlar,
Mevcut sayfadaki ÜrünKodu sütununda aradığım ürünkodunu (urunkodual değişkeni ile) bulmak istiyorum.

Aşağıdaki satırları aynı Sub içinde bir kaç kez kullandım ve sorunsuz çalıştı. Ancak şimdi aynı Sub içinde yine kullanmak istediğimde yukarıdaki satırların birinden kopyalayıp sayfa isimlerini değiştirdim ve "object variable or with block variable not set" hatası aldım.

Yardımcı olabilirseniz sevinirim.

Cells'in sol tarafına;
1. Hiç bir şey yazmadan,
2. Activesheet. yazarak
3. Aşağıdaki gibi Sheets("STOKTAN"). yazarak hep aynı hatayı aldım

Sheets("STOKTAN").Activate
Sheets("STOKTAN").Select
Sheets("STOKTAN").Range("A1").Select
Sheets("STOKTAN").Cells.Find(What:=urunkodual, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Offset(0, 2).Select

 

[Korhan Ayhan]

Dosyanızı ekleyip yapmak istediğini işlemi açıklayınız.

 

[mafit]

Dosya eklendi.

AA SATINALMA sayfasında I sütununda bulunan STOK bilgisini STOKTAN sayfasında ilgili ürün kodunu aratarak almak istiyorum.

STOK BİLGİSİ AL butonuna bastığımda hata mesajı alıyorum. Aynı kodlarla daha önce arama yaptırmış olmama rağmen bu kez başarılı olamadım.

 

[anemis]

Benimde çok canımı sıkan bir hata. Konuyu takip etmek amacı ile (email bildirilerini aktif etmek) bu mesajı atıyorum

 

[mafit]

Konu güncel arkadaşlar.

 

[Haluk]

Konu güncel arkadaşlar.

Aşağıdaki kırmızı ile belirtilen değişikliği yapıp, deneyin....

Sheets("STOKTAN").Cells.Find(What:=urunkodual, After:=ActiveCell, LookIn:=[B][COLOR="Red"]xlValues[/COLOR][/B], LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Offset(0, 2).Select

.

 

[mafit]

Haluk Bey,
Dediğiniz düzeltmeyi az önce yaptım ve istediğim şekilde çalıştı. İlginize çok teşekkür ederim.
Benim anlamadığım bu kodun düzeltmeyi yapmadığım üst satırlarda sorunsuz çalışıp son satırlarımda çalışmamış olmasıydı.

Tekrar teşekkürler.

Düzeltme: Önceki satırlarda başvuru hücresinde formülle gelen değerler varmış. Ben bunu atlamışım.

Aşağıdaki kırmızı ile belirtilen değişikliği yapıp, deneyin....

Sheets("STOKTAN").Cells.Find(What:=urunkodual, After:=ActiveCell, LookIn:=[B][COLOR="Red"]xlValues[/COLOR][/B], LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Offset(0, 2).Select

.