Yaptığım çalışmada hatalarımın sebeplerini bulamadım

[Mdemir63]

Arkadaşlar iyi geceler

benim dosyamada bazı hatalar var yapmaya çalıştım ama bir türlü beceremedim. bir yerlerde hata yaptığımı düşünüyorum bu konuda yardımlarınıza ihtiyacım var. hatalarımın detayını dosyalarda açıkladım

Saygılarımla

 

[Metin Karaağaç]

Private Sub CommandButton1_Click()
On Error Resume Next
SONSAT = [a65536].End(3).Row + 1

"On Error Resume Next" satırını ekleyince hata vermiyor.

Bir de

unload me

satırını silerseniz form kapanmıyor.

Alt toplamlarda bir hata göremedim.

 

[Mdemir63]

Private Sub CommandButton1_Click()
On Error Resume Next
SONSAT = [a65536].End(3).Row + 1

"On Error Resume Next" satırını ekleyince hata vermiyor.

Bir de

unload me

satırını silerseniz form kapanmıyor.

Alt toplamlarda bir hata göremedim.

Hocam günaydınlar

evet son iki söylediğinizi sorunumu bildirdikten sonra çözmüştüm. çok teşekkür ediyorum ilginize
ama başka bir problemim var. açılışta direk olarak Userformla açılıyor.Userform üzerine bir buton koydum ve butonunun kod penceresine aşağıdami gibi kodu yazdım

Sheets("Sayfa1").Select

ama formla kayıt yaptığım sayfayı açamadım. İlgilenirseniz sevinirim

Saygılar sunuyorum.

 

[Mdemir63]

arkadaşlar merhabalar

bir problemim vardı ama yanıt bulamadım size zahmet bakabilirmisiniz

Sheets("Sayfa1").Select

kodunu Userformdaki butonun kod penceresine yazıyorum ama butonu klikleyince o sayfayı açmıyor nedenihakkında bilgilendirirseniz memnun olurum

Saygılar