Kodların açıklamasını istiyorum.

[ferhatgurbuz]

Kodların açıklamasını yapabilirmisiniz.

Private Sub CommandButton3_Click()
If Val(TextBox2) = Worksheets("veri").Range("aa1").Value Then
Sheets("veri").Select
Range("a1").Select
Sheets("giriş").Select
Range("a1").Select
Unload Me
UserForm1.Show

Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "Adres-Telefon REHBERİ"
TextBox2.SetFocus
TextBox2.Value = ""
Sheets("veri").Select
Range("a1").Select
Sheets("giriş").Select
Range("a1").Select
End If
End Sub


Ya benim anladığım Veri sayfasının AA1 hücresinde şifre var. Peki giriş sayfası ve Range a1 in anlamları nedir.teşekkür ederim.

 

[hsayar]

Private Sub CommandButton3_Click()
If Val(TextBox2) = Worksheets("veri").Range("aa1").Value Then 'Tektbox 2 nin değeri Veri sayfasının AA1 hücresinin değeri ile aynımı, eğer aynıysa
Sheets("veri").Select 'Veri sayfasını seç
Range("a1").Select 'A1 hücresini seç
Sheets("giriş").Select 'Giriş sayfasını seç
Range("a1").Select 'A1 hücresini seç
Unload Me 'Beni Kaldır (Açık olan userform kapanır)
UserForm1.Show 'Userform1 i göster
Else 'Değilse
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "Adres-Telefon REHBERİ" 'Mesaj Gönder
TextBox2.SetFocus 'Textbox2yi seç
TextBox2.Value = "" 'İçeriğini boşalt
Sheets("veri").Select 'Veri sayfasını seç
Range("a1").Select 'a1 hücresini seç
Sheets("giriş").Select 'Girişi sayfasını seç
Range("a1").Select 'a1 hücresini seç

End If 'Kontrol Sonu
End Sub 'Prosodür sonu

 

[ferhatgurbuz]

Çok TeŞekkÜr Edİyorum. Kolay Gelsİn

 

[ferhatgurbuz]

Sayın hsayar bu kodda aceba hani veri sayfasını seçiyor sonra giriş sayfasını seçiyor. Aceba giriş sayfasında falan karşılaştırma yapıyor mu onu merak ediyorum.

 

[hsayar]

bu kodda sadece veri sayfası a1 hücresi ile textbox2 nin değeri karşılaştırılıyor...

eğer aradığınız sayfa1 ile sayfa2 arasındaki farkların listesi ise eklentiler bölümüde compare worksheet veya benzei bir adda sn yurttas ın eklediği bir eklenti olacaktı.