User Formlari Bİrlİkte ÇaliŞtiramama Sorunu?

[hozay]

Göndermiş olduğum dosyada makrolar çalıştırılınca giriş şifresi alfabetik ne yazarsanız o, Makroları devre dışı bırakarak data sayfasında sorunumla ilgili açıklama yaptım. İlgilenenlere şimdiden teşekkür ederim.

 

[hozay]

userfomları birlikte çalıştırma sorunu

Göndermiş olduğum dosyada makrolar çalıştırılınca giriş şifresi alfabetik ne yazarsanız o, Makroları devre dışı bırakarak data sayfasında sorunumla ilgili açıklama yaptım. İlgilenenlere şimdiden teşekkür ederim.

1. mesajda dosyayı yollayamadığım için

 

[hozay]

userfomları birlikte çalıştırma sorunu

2. denemedede dosyayı ekleyemedim yeniden deniyorum.

 

[hozay]

Sayın sistem yöneticisi hocalarımın dikkatine 3 defa denememe rağmen sorum için dosya eklemesini gerçekleştiremedim. Sorunun neden kaynaklandığını anlayamadım.
Saygılarımla

 

[hozay]

userfomları birlikte çalıştırma sorunu

1. mesajda dosyayı yollayamadığım için

1. mesajımda ve diğerlerinde dosya yüklemesini beklemeden çıkış yaptığımdan yükleyememişim, açıklamalar 1. mesajımdaki gibidir. saygılarımla...

 

[hozay]

Sayin ArkadaŞlar Yardim Eden Kİmse Olmayacak Mi?

Benim yeterli bilgim olmadığından bir acemi olarak günlerce uğraştım ve Excel formunda ki cevap verilen sorulardan kopyalama yaparak kendi projemi enson gönderdiğim şekle getirdim. Fatan bundan sonrasında bir uzman elinin değmesi gerektiği aşikar.
Biliyorum projem biraz uzun ve karmaşık gibi ama imkansızda değil sanırım.
Siz değerli uzman ve arkadaşların sorunlarımın hepsini olmasada kısım kısım yardımcı olabilseniz sorunlarım çözülür.
"Hiç bilenle bilmeyen bir olur mu?"

 

[sumuas]

Private Sub CommandButton2_Click()
If Val(TextBox1) = Worksheets("data").Range("aa1").Value Then
Sheets("data").Select
Range("a1").Select
Sheets("data").Select
Range("a1").Select
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
Sheets("data").Select
Range("a1").Select
End If
End Sub

Lütfen üstteki kodları şu şekilde deneyiniz.

Private Sub CommandButton2_Click()
if textbox1.value="1234" then sheets("data").range("a1").select '1234 şifre olarak belirlenmiş ve istediğiniz gibi değiştirebilirsiniz.
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If
End Sub

 

[hozay]

sumuas bey yazmış olduğunuz kod hata verdi

sayın sumuas önce ilginiz için teşekkür ederim, kodu ilgili yere koyaladım fakat hata verdi.

Private Sub CommandButton2_Click()
if textbox1.value="1234" then sheets("data").range("a1").select '1234 şifre olarak belirlenmiş ve istediğiniz gibi değiştirebilirsiniz.
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If
End Sub

HATA MESAJI "Compile error: Else without ıf
formüldeki else işaretli olarak gözüküyor.

 

[ECYavuz]

sayın sumuas önce ilginiz için teşekkür ederim, kodu ilgili yere koyaladım fakat hata verdi.

Private Sub CommandButton2_Click()
if textbox1.value="1234" then sheets("data").range("a1").select '1234 şifre olarak belirlenmiş ve istediğiniz gibi değiştirebilirsiniz.
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If
End Sub

HATA MESAJI "Compile error: Else without ıf
formüldeki else işaretli olarak gözüküyor.

Private Sub CommandButton2_Click()
if textbox1.value="1234" then
Sheets("data").range("a1").select
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If

şeklinde deneyin...
End Sub

 

[ECYavuz]

Private Sub CommandButton2_Click()
if textbox1.value="1234" then
Sheets("data").range("a1").select
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If
End Sub

olacak tabii ki...

 

[hozay]

sayın ECYavuz çok çok teşekkür edrim şifre sorunum çözüldü.

Private Sub CommandButton2_Click()
if textbox1.value="1234" then
Sheets("data").range("a1").select
Unload Me
ANA_FORM.Show
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "data çalışma"
TextBox1.SetFocus
TextBox1.Value = ""
Sheets("data").Select
Range("a1").Select
End If

şeklinde deneyin...
End Sub

Kod işe yaradı elinize sağlık. Porojemin bir sorunu çözüldü fakat diğer sorunlarım hala devam ediyor ve yardımı olabilecek arkadaşların yardımlarını beklemeye devam edeceğim. Emeği geçen ve geçmeyen tüm arkadaşlarıma: İyiliğin hiç bir maddi bedelle ölçülemez. Ben de karşılığını dualarımla ödemek istiyorum. "Allah cümlenizin yar ve yardımcısı olsun." AMİN...