• DİKKAT

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

Memurlar için EVRAK TAKİP programı

H

hsntetik

Katılım
20 Temmuz 2006
Mesajlar
44
Öncelikle yardımlarını ve ilgisini esirgemeyen değerli site üyelerine ve excel.web.tr sitesi yöneticilerine teşekkürleri bir borç bilirim.

Ekteki program kendi bilgisayarımda sorunsuz çalışıyor ancak farklı bazı bilgisayarlarda aşağıda belirttiğim hatayı veriyor yardımlarınız için şimdiden teşekkürler.



(1. hata sonsat = [a65536].End(3).Row + 1) yazan alan


Private Sub tel_kaydet_Click()
tel_kaydet.Enabled = False
Sheets("veri").Select
sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox15
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
Cells(sonsat, 9) = TextBox8
Cells(sonsat, 10) = TextBox9
Cells(sonsat, 11) = TextBox10
Cells(sonsat, 12) = TextBox11
Cells(sonsat, 13) = TextBox12
Cells(sonsat, 14) = TextBox13
Cells(sonsat, 15) = TextBox14
MsgBox "Evrak Kayıt Edildi"
Unload Me
ARSİV.Show
End Sub


(2. HATA Private Sub UserForm_Activate() )yazan alan


Private Sub UserForm_Activate()
Sheets("veri").Select
ARSİV.Caption = "xxxxxxxxx - 2011"
SON = Cells(65536, "A").End(3).Row
Label19 = Cells(SON, "A")
ComboBox1 = "."
ComboBox1 = ""
Label15 = Range("A1")
Label16 = Range("B1")
Label17 = Range("C1")
Label36 = Range("D1")
Label56 = Range("E1")
Label57 = Range("F1")
Label24.Caption = Worksheets("PARAMETRE").Range("D1")
End Sub


Özellikle İHSAN TANK Beye çalışmalarından dolayı teşekkür ederim
 

Ekli dosyalar

Merhaba
Dosyanızda ben bir hata almadım nasıl hata aldığınızı anlatır mısınız_?
 
İhsan Tank' Alıntı:
Merhaba
Dosyanızda ben bir hata almadım nasıl hata aldığınızı anlatır mısınız_?
Genişletmek için tıkla ...

Kendi Bilgisayarımda HATA vermiyor Ancak İŞ yerimde olan bazı bilgisyarlada hata veriyor belirttiğim hata ihsan bey birde farklı bir sayfaya yüklediğim memnuniyet anketine sizin bu kodlarınızı nasıl ilave ederim (http://www.excel.web.tr/f48/memnuniyet-anket-aly-masy-sorunsuz-t106624.html#post580800)

aslında ilave ettim çalıştı önce ana_menü girip userform1 (ÖĞRETMEN) bir linkine tıklattığımda 10 saniye sonra ana_menü ekranına dönüyor ancak tekrar userform1 (ÖĞRETMEN) dönmek istediğimde hata veriyor ilginize teşekkürler




ThisWorkbook a yazılacak
Private Sub Workbook_Open()
UserForm1.Show
End Sub

'Module e yazılacak
Sub KapatForm1()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF1"
End Sub
Sub KF1()
UserForm1.Hide
UserForm2.Show
End Sub

'UserForm1 kod sayfasına yazılacak
Private Sub UserForm_Activate()
KapatForm1
End Sub
 
hsntetik' Alıntı:
Kendi Bilgisayarımda HATA vermiyor Ancak İŞ yerimde olan bazı bilgisyarlada hata veriyor belirttiğim hata ihsan bey birde farklı bir sayfaya yüklediğim memnuniyet anketine sizin bu kodlarınızı nasıl ilave ederim (http://www.excel.web.tr/f48/memnuniyet-anket-aly-masy-sorunsuz-t106624.html#post580800)

aslında ilave ettim çalıştı önce ana_menü girip userform1 (ÖĞRETMEN) bir linkine tıklattığımda 10 saniye sonra ana_menü ekranına dönüyor ancak tekrar userform1 (ÖĞRETMEN) dönmek istediğimde hata veriyor ilginize teşekkürler




ThisWorkbook a yazılacak
Private Sub Workbook_Open()
UserForm1.Show
End Sub

'Module e yazılacak
Sub KapatForm1()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF1"
End Sub
Sub KF1()
UserForm1.Hide
UserForm2.Show
End Sub

'UserForm1 kod sayfasına yazılacak
Private Sub UserForm_Activate()
KapatForm1
End Sub
Genişletmek için tıkla ...

Şimdi anlaşıldı hata verme sebebi diğer userform açık kaldığı için hata veriyor bunun yerine
ya açtığınız userform'un unitalize olayına
Kod: 
unload userform1
bunu yazın. yada formu açtığınız butonun
Kod: 
userform.show 0
Şeklinde değiştirin.
 
İhsan Tank' Alıntı:
Şimdi anlaşıldı hata verme sebebi diğer userform açık kaldığı için hata veriyor bunun yerine
ya açtığınız userform'un unitalize olayına
Kod: 
unload userform1
bunu yazın. yada formu açtığınız butonun
Kod: 
userform.show 0
Şeklinde değiştirin.
Genişletmek için tıkla ...

HATA ALANI

Sub KF1()
UserForm1.Hide
ANA_MENÜ.Show
End Sub

İHSAN BEY AYRICA TAM ANLAMI İLE BELİRTİĞİNİZ ALANI AÇIKLARMISINIZ MEVZUSU GEÇEN BAHSETTİĞİMİZ KONU ANKET ÇALIŞMASI DEĞİLMİ ? CEVABINIZI ARKADAŞLARIN KAFASI KARIŞMAMASI İÇİN YUKARDA LİNKİNİ VERDİĞİM PROGRAM SAYFASINDAN RİCA EDEBİLİRİMİYİM HOŞÇA KALIN GÖRÜŞMEK ÜZERE
 
hsntetik' Alıntı:
HATA ALANI

Sub KF1()
UserForm1.Hide
ANA_MENÜ.Show
End Sub

İHSAN BEY AYRICA TAM ANLAMI İLE BELİRTİĞİNİZ ALANI AÇIKLARMISINIZ MEVZUSU GEÇEN BAHSETTİĞİMİZ KONU ANKET ÇALIŞMASI DEĞİLMİ ? CEVABINIZI ARKADAŞLARIN KAFASI KARIŞMAMASI İÇİN YUKARDA LİNKİNİ VERDİĞİM PROGRAM SAYFASINDAN RİCA EDEBİLİRİMİYİM HOŞÇA KALIN GÖRÜŞMEK ÜZERE
Genişletmek için tıkla ...

Size bu şekilde yanıt vermemi bekliyor musunuz_?
Form kurallarına aykırı hareket ettiniz.
Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.
Genişletmek için tıkla ...
Çok üzgünüm.
 
Yesilyurtlu' Alıntı:
ARSİV.Show
kısmında kod hatası veriyor
Genişletmek için tıkla ...



ARSİV.Show hatası veriyor


Private Sub UserForm_Activate()
Sheets("veri").Select
ARSİV.Caption = "xxxxxxx - 2011"
SON = Cells(65536, "A").End(3).Row
Label19 = Cells(SON, "A")
ComboBox1 = "."
ComboBox1 = ""
Label15 = Range("A1")
Label16 = Range("B1")
Label17 = Range("C1")
Label36 = Range("D1")
Label56 = Range("E1")
Label57 = Range("F1")
Label24.Caption = Worksheets("PARAMETRE").Range("D1")
End Sub
 
ihsanbey düzeltilmiş sekli lik verirmisiniz
cok açil ihtiyacım var en indirdim hata veriyor
 
bunu calışır vaziyetde göndere bilecek yokmu arkadarşlar acil lazım saygılar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst