Ustalara Selam ;
UCase Komutunu aşağıdaki makroda kullanmaya çalıştığımda comple error, Can't find project or library hatası veriyor. Ne yapmam gerekiyor. Aynı kod başka bir makinada çalışıyordu.
Private Sub CommandButton1_Click()
Worksheets("Menu").Unprotect
If UCase(TextBox1.Value) = UCase(Sheets("veri").Range("e2").Value) And UCase(TextBox2.Value) = UCase(Sheets("veri").Range("f2").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e3").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f3").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e4").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f4").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e5").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f5").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e6").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f6").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
MsgBox "Şifreyi Hatalı Girdiniz Lütfen Tekrar Deneyiniz"
TextBox1.Value = ""
TextBox2.Value = ""
End If
End If
End If
End If
End If
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
UCase Komutunu aşağıdaki makroda kullanmaya çalıştığımda comple error, Can't find project or library hatası veriyor. Ne yapmam gerekiyor. Aynı kod başka bir makinada çalışıyordu.
Private Sub CommandButton1_Click()
Worksheets("Menu").Unprotect
If UCase(TextBox1.Value) = UCase(Sheets("veri").Range("e2").Value) And UCase(TextBox2.Value) = UCase(Sheets("veri").Range("f2").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e3").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f3").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e4").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f4").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e5").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f5").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e6").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f6").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)
Unload Me
Else
MsgBox "Şifreyi Hatalı Girdiniz Lütfen Tekrar Deneyiniz"
TextBox1.Value = ""
TextBox2.Value = ""
End If
End If
End If
End If
End If
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub