Kodlarda çakışma var, Problemin kaynağını bulamadım.

cqners · 20 Kasım 2006

Merhaba;

Kodlar ayrı ayrı çalışmakta fakat ilk kod aktif olunca sayfa içerisinde bulunan ikinci kod çalışmayıp pasif olmaktadır.

Excel'e giriş sırasında şifre soran kod COST_CONTROL a ayittir. 3 hatalı girişte kapanıyor.
Bu kod çalıştığında aşağıda belirttiğim kod çalışmamaktadır.
UserForm Üzerindeki kod ---------------------------------------------------------

Option Explicit

Private Sub CommandButton1_Click()

Static HATA As Integer
Dim KULLANICI As Long
On Error GoTo HATALI_GİRİŞ

With Sheets("UsersMod").Range("E5:E18")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With

If KULLANICI = 0 Then GoTo HATALI_GİRİŞ
If Sheets("UsersMod").Cells(KULLANICI, 6) <> TextBox2.Text Then GoTo HATALI_GİRİŞ

Sheets("UsersMod").Range("C1") = TextBox1.Value
Call TEMİZLE
MsgBox "Sisteme girişiniz onaylanmıştır.", vbInformation, "HOŞGELDİNİZ" & TextBox1.Value
Application.Visible = True
Call Sayfa6.Activate
Login.Hide
Exit Sub

HATALI_GİRİŞ:
MsgBox "Girdiğiniz kullanıcı adı veya parola hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
Call TEMİZLE
HATA = HATA + 1
If HATA = 3 Then Application.Quit
End Sub

Private Sub TEMİZLE()
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox2.TextLength > 3)
End Sub

Private Sub TextBox2_Change()
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox2.TextLength > 3)
End Sub

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

Private Sub UserForm_Initialize()
Label3.Caption = Worksheets("UsersMod").Range("C1")
TextBox1.SetFocus
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub
----------------------------------------------------

Hücrelerde arama yapan ve yukarıdaki kodla birlikte Çalışmayan Kod:
Sayfa içerisindeki Kod ----------------------------------------------------

Private Sub TextBox1_Change()
On Error Resume Next
Application.Visible = True
SONUC2 = TextBox1.Value
Set FC2 = Range("a4:b65536").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
End Sub

Private Sub TextBox1_GOTFocus()
TextBox1.Text = ""
End Sub
-----------------------------------------------------

alpi · 20 Kasım 2006

Hata sebebi Private Sub TextBox1_Change()

Bu olay aynı form editör'ü içerisinde iki kere kullnılmış.

Excel VBA bir kontrolün bir olayı için bir defa izin verir.

Çözüm: Aynı olan iki olayın kodlarını birleştirin.

cqners · 20 Kasım 2006

İlk giriştekiler UserForm üzerinde.
İkinci verdiğim ise sayfalar üzerinde.

Birleştirme dediniz örnek verme şansınız varmı ?

cqners · 20 Kasım 2006

Merhaba;

Birinci kod içindeki hangi satır ikinci kodun çalışmasını engelliyorsa onu ikinci kodua o satırı ekleme şansımız varmı ? False ise True yapma vb.

cqners · 21 Kasım 2006

Merhaba;

Önerisi olan varmı ?

alpi · 21 Kasım 2006

Öncelikle

Private Sub TextBox1_Change()
On Error Resume Next <--------------------Satırını kaldırın
Application.Visible = True
SONUC2 = TextBox1.Value
Set FC2 = Range("a4:b65536").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
End Sub

kodunuzu çalıştırın ve aldığınız hatanın kod numaraını verin.
Böylelikle anlamaya çalışalım.

cqners · 21 Kasım 2006

Hata Kodu olarak:

Run-time error '91':

Object variable or With block variable not set

-------------------------------------Burası sarı olarak seçildi.-------
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
-------------------------------------------------------------------

alpi · 21 Kasım 2006

Tahmin ediyorumki hata FC2 değişkeninden kaynaklanıyor
Set FC2 = Range("a4:b65536").Find(What:=SONUC2) satırında aranan değer bulunamayınca FC2 null değerini içermeye devam ediyor
Application.GoTo Reference:=Range(FC2.Address), Scroll:=False satırında hata veriyor.
Kodlarınızı aşağıdaki gibi değiştirip deneyin

Private Sub TextBox1_Change()
On Error GoTo Hata 'aşağıdaki kod satırlarından birinde hata meydana geldiğinde "Hata" satırına geçilecektir.
Application.Visible = True
SONUC2 = TextBox1.Value
Set FC2 = Range("a4:b65536").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Hata:
End Sub

Not:Bir kod bloğu arasında birden fazla hata varsa On Error Resume Next ikinci hatanın yoksayılması işlemini gerçekleştirmez.

cqners · 21 Kasım 2006

Çaşışmamakta ve hata vermemekte

On Error GoTo Hata kaldırdığımda
Run-time error '91':
Object variable or With block variable not set
Hatasını verdi ve Debug dediğimde ise
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
satırları sarı olmaktadır.

alibal · 21 Kasım 2006

cqners' Alıntı:
Merhaba;

Önerisi olan varmı ?

Sayfada 1 adet .....Change() alt yordamı olmalı. Yani;

Kod:

Private Sub TextBox1_Change()
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox2.TextLength > 3)
End Sub
.............
...........
Private Sub TextBox1_Change()  ' Bu satırı sil
On Error Resume Next
Application.Visible = True
SONUC2 = TextBox1.Value
Set FC2 = Range("a4:b65536").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
End Sub

Alttaki yordamının içindeki kodları yukarıki ile birleştir.

cqners · 21 Kasım 2006

Sn. alibal

Vermiş olduğunuz kod,
Run-time error '424':
Object required
vermiştir ve Debug dediğimde ise;
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox2.TextLength > 3)
sarı olarak işaretlemiştir.

cqners · 21 Kasım 2006

Merhaba;

Önerisi olan varmı arkadaşlar ?

cqners · 22 Kasım 2006

Sn. Excel Dostları.

Bu olay mümkün değilse bilgi verirseniz sevinirim.

kundakci · 22 Kasım 2006

Merhaba

Örnek dosyayı forma eklermisin

Bu şeklide tahmin yürtmektense görerek konuşalım

iyi günler

alibal · 22 Kasım 2006

Sayın cqners,

gönderdiğim kodda 1. textbox1.change() satırı duracak, sonra bu olaya ait End Sub (1. End Sub) satırını sil. Sonra 2. textbox1.change() satırını sil ve tekrar dene. Yani Bu işlemin son hali;

Kod:

Private Sub TextBox1_Change()
On Error Resume Next
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox2.TextLength > 3)
Application.Visible = True
SONUC2 = TextBox1.Value
Set FC2 = Range("a4:b65536").Find(What:=SONUC2)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
End Sub

Şeklinde olacak.
Kolay gelsin....

cqners · 24 Kasım 2006

Sn. AliBal Malesef olmadı yardımlarınız için teşekkürler,

Arama motorunu koymaktan vazgeçtim. Anladığım kadarıyla mümkün değil.