• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform debug (hatalar veriyor)

E

Ercan_ÇELİKOĞLU

Katılım
5 Nisan 2007
Mesajlar
413
Excel Vers. ve Dili
excel 2010 tr
http://s8.dosya.tc/server3/tcsbzt/ERCAN_KKE_DENEME.xls.html

1. hata karşılama mesajı hoşgel din günaydın iyi akşamlar gibi workbook da kodlarrım var evde çalışıyor işyerinde pcde çalışmıyor.
2. hata formda bir TC NO SEÇİP BUL DEDİĞİMDE BULMUYOR Debug hatası veriyor.
3.hata yeni bir kayıt yapıp kaydete basınca debug hatası veriyor.
ne denediysem olmadı elimden geldiğince kodları kontrol ettim evde laptopta çalışıp işyeri pcde çalışmaması bir tuhaf geldi bana
anlayan ustalardan üstadlardan saygıyla yardım istiyorum.

lütfen cevaplarken anlayacağım şekilde cevaplarsanız sevinirim.
 
Ercan_ÇELİKOĞLU' Alıntı:
http://s8.dosya.tc/server3/tcsbzt/ERCAN_KKE_DENEME.xls.html

1. hata karşılama mesajı hoşgel din günaydın iyi akşamlar gibi workbook da kodlarrım var evde çalışıyor işyerinde pcde çalışmıyor.
2. hata formda bir TC NO SEÇİP BUL DEDİĞİMDE BULMUYOR Debug hatası veriyor.
3.hata yeni bir kayıt yapıp kaydete basınca debug hatası veriyor.
ne denediysem olmadı elimden geldiğince kodları kontrol ettim evde laptopta çalışıp işyeri pcde çalışmaması bir tuhaf geldi bana
anlayan ustalardan üstadlardan saygıyla yardım istiyorum.

lütfen cevaplarken anlayacağım şekilde cevaplarsanız sevinirim.
Genişletmek için tıkla ...

1. için kodlarınızı aşağıdaki şekilde deneyin.
Kod: 
'module1 e açılışta çalış.
Private Sub Workbook_Open()
'kodlarınız
End Sub

2. için aşağıdaki şekilde deneyin.
Kod: 
Sheets("Veri").Activate 'Veri sayfasını açar

3. için aşağıdaki şekilde deneyin.
Kod: 
ActiveWorkbook.Save
 
ilk 2 soruna göre bende çalıştı.Sorun yok,çalışıyor.
alttaki kodu onun altındaki kod ile değiştirin.:cool:
Kod: 
Workbooks("ERCAN KKE DENEME.XLS").Save
Kod: 
Workbooks("ERCAN_KKE_DENEME.XLS").Save
 
üstadım uygulayıp dosyayı paylaşma şansınız varmı

Ücretli üye değilim rar olarak paylaşamıyorum dediğiniz kodları nerelere uygulayacağımı anlayamadım saygılarımla.
uygulayıp paylaşabilirmisiniz saygılarımla.
ayrıca en önemli notum laptopta evde çalışıyor iş yerinde pc de çalışmıyor.
 
Kaydet butonunda aşağıdaki kodu
Kod: 
Workbooks("ERCAN KKE DENEME.XLS").Save
aşağıdaki kod ile değiştirin.:cool:
Kod: 
Workbooks("ERCAN_KKE_DENEME.XLS").Save
 
Sayın Orion

Orion1' Alıntı:
Kaydet butonunda aşağıdaki kodu
Kod: 
Workbooks("ERCAN KKE DENEME.XLS").Save
aşağıdaki kod ile değiştirin.:cool:
Kod: 
Workbooks("ERCAN_KKE_DENEME.XLS").Save
Genişletmek için tıkla ...
Dediğiniz kodu uyguluyorum excel açılışta donuyor hiç açılmıyor anlamadım ki sorun ne?
lütfen çözemiyorum saygılarımla.
 
bağlanamıyor.id yanlışmı verdiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst