userform hatası

[abuitun]

Sub düzenle()
UserForm1.Show
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Rows("1:2").Delete

End Sub
________________________________________________-
Merhabalar
Sorum şöyle düzenle makrosunu çalıştırdığımda listbox içindeki değeri seçili iken iptal tuşuna bastığımda activ sheet 2 satır siliniyor. yani iptal düğmesi veya x işe yaramıyor.
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Rows("1:2").Delete
satırlarını kaldırırsam hata vermiyor.
ama ben iki satırıda silerek çalışmasını istiyorum.kod nasıl değişmeli?
_______________________________________________________
ikinci sorum satır ve sutun (gizle)dışında yok etmenin bir yolu varmı.
örneğin Tablom (a1:k25)arasında 25. satırve l sütunundan sonra gelen satır ve sutunlar kapansın ????

 

[Levent Menteşoğlu]

Birinci sorunuzu biraz daha açarmısınız ben tam olarak anlayamadım. Listbox userform1 üzerinde anladığım kadarı ile, listboxa verileri hangi komutla aktarıyorsunuz. Ayrıca iptal düğmesinde hangi kod yazılıdır.

yani iptal düğmesi veya x işe yaramıyor.

Bu cümlenizden ne kasdediyorsunuz?

İkinci sorunuza gelince gizlemekten başka seçeneğiniz yok. Bildiğim kadarı ile satır ve sütun sayısına sınırlama getiremiyorsunuz.

 

[danersin]

Benim anladığım kadarıyla sizin 2 makroya ihtiyacınız var. düzenle ile sadece userformu göstereceksiniz. sil makrosunuda userform üstünde bir düğmeye atayıp çalıştıracaksınız,... yada örnek dosya ile sorunuzu anlatmayı deneyin.


Sub düzenle()
UserForm1.Show
End Sub

Sub sil()
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Rows("1:2").Delete
End Sub