kod hatası

[canerrrrrr]

arkadaslar carıhesap programımım kod hatası verıor.. yenı müsteri eklerken veya silerkenn.. yardımlarınızı bekliorum ... teşekkürler

 

[uzmanamele]

merhaba

yeni kişi eklerken "şablon" adında sayfayı arıyor, bulamayınca hata veriyor.
muhtemelen şablon sayfayı silmişsiniz.

 

[canerrrrrr]

EVET haklı olabilirsiniz

fakat ben bu sablonu sizin paylasım forumunuzdan almıstım... bu hatayı nasıl giderebilirim ? yeni bir sayfa ekledim şablon die ama gene çalışmadı ... yardımcı olabilirmisiniz yeniden olusturabilmem için ?

 

[canerrrrrr]

sayın uzman amele ...

evet sonunda becerebildimm calıstırabildimm ... bi sorum daha var .. olusturdugum müşteriyi silmem gerektiği zaman nasıl silmemi uygun görürsünüz ? normal sil dediğimde griş sayfasındaki "varolan müşteriyi sec dediğimde " ordan yok olmuor?

 

[Eser Gökay]

muhtemelen örneği kendinize uyarlarken Şablon isimli sayfayı sildiniz. o yüzden müşteri kartlarından birini kopyalayıp adını Şablon olarak değiştirin ve formül olmayan alanları silin. her yeni müşteri açarken o şablonu kopyalayıp kullanacak.

 

[Eser Gökay]

pardon zaten çözmüşsünüz.

 

[uzmanamele]

merhaba

bu şekilde olur mu?

Sub müşteri_sil()
sayfa_sil = InputBox("Kopyalamak İstediğiniz Sayfanın adını giriniz")
Sheets(sayfa_sil).Delete
End Sub

 

[uzmanamele]

merhaba

müşteri sayfasını sildiğinizde listeden ilgili satırı da silmek gerekecektir.

Sub müşteri_sil()
On Error GoTo hata
sayfa_sil = InputBox("Kopyalamak İstediğiniz Sayfanın adını giriniz")
Sheets(sayfa_sil).Delete
sonsatir = Sheets("liste").Cells(65536, 1).End(xlUp).Row
For i = 1 To sonsatir
If Sheets("liste").Cells(i, 1) = sayfa_sil Then
Sheets("liste").Rows(i).Delete
End If
Next
hata:
End Sub