Merhaba arkadaşlar.
Yapmış olduğum ve çalıştırdığım excel makro proğramında run time eror '91'Hatası alıyorum.devamındada "Object veriable or with block variable not set" iletisi cıkıyor.Bu konuda yaptığım araştırmalar ve çalışmalarım sonuç vermedi.Hatayı düzeltemedim.
Yapmaya çalıştığım sayfa silme makrosunda bu hatayı almamak için yardımlarınızı bekliyorum.
Yaptığım makronun modüle yazılımını aşağıya ekledim.Nerede düzeltme yapmam gerek, yada eksiik yaptığım yeri düzeltir ve tamamlarsanız çok sevinirim .
Yazmaya çalıştığım makro modülü:
Sub sayfapozsil()
Application.DisplayAlerts = False
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name = "beni_oku" Or WS.Name = "İÇMAL" Or WS.Name = "DEM_MET" Or WS.Name = "DEM_KESİM_(5cm)" Or WS.Name = "ÖRNEK METRAJ" Then GoTo sonraki
If MsgBox(" " + WS.Name + " MAHAL SAYFASI SİLİNSİNMİ?") + vbYesNo = vbNo Then GoTo sonraki
If MsgBox(" SON KARARINIZMI BAK SİLİNİYOR?", vbYesNo) = vbYes Then
WS.Delete
MsgBox "SAYFA SİLİNDİ"
sonraki:
End If
Next
MsgBox "İşleminiz tamamlanmıştır."
MsgBox (" ÖRNEK METRAJ A geçilsinmi "), vbYesNo = vbYes
End Sub
Yazılımı çalıştırdığım zaman
Run time eror '91'Hatası veriyor ve "Object veriable or with block variable not set" uyarıası çıkıyor.
Bunu düzeltemedim.Aslında "ÖRNEK METRAJ" sayfasında kalması lazım.Bu konuda yardımlarınızı bekliyorum.Çok selamlar ve saygılar
Yapmış olduğum ve çalıştırdığım excel makro proğramında run time eror '91'Hatası alıyorum.devamındada "Object veriable or with block variable not set" iletisi cıkıyor.Bu konuda yaptığım araştırmalar ve çalışmalarım sonuç vermedi.Hatayı düzeltemedim.
Yapmaya çalıştığım sayfa silme makrosunda bu hatayı almamak için yardımlarınızı bekliyorum.
Yaptığım makronun modüle yazılımını aşağıya ekledim.Nerede düzeltme yapmam gerek, yada eksiik yaptığım yeri düzeltir ve tamamlarsanız çok sevinirim .
Yazmaya çalıştığım makro modülü:
Sub sayfapozsil()
Application.DisplayAlerts = False
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name = "beni_oku" Or WS.Name = "İÇMAL" Or WS.Name = "DEM_MET" Or WS.Name = "DEM_KESİM_(5cm)" Or WS.Name = "ÖRNEK METRAJ" Then GoTo sonraki
If MsgBox(" " + WS.Name + " MAHAL SAYFASI SİLİNSİNMİ?") + vbYesNo = vbNo Then GoTo sonraki
If MsgBox(" SON KARARINIZMI BAK SİLİNİYOR?", vbYesNo) = vbYes Then
WS.Delete
MsgBox "SAYFA SİLİNDİ"
sonraki:
End If
Next
MsgBox "İşleminiz tamamlanmıştır."
MsgBox (" ÖRNEK METRAJ A geçilsinmi "), vbYesNo = vbYes
End Sub
Yazılımı çalıştırdığım zaman
Run time eror '91'Hatası veriyor ve "Object veriable or with block variable not set" uyarıası çıkıyor.
Bunu düzeltemedim.Aslında "ÖRNEK METRAJ" sayfasında kalması lazım.Bu konuda yardımlarınızı bekliyorum.Çok selamlar ve saygılar