Sanırım işletim sistemi sorunu

[feryat]

Win 7 işletim sistemi ve Office 2007 yüklü bir bilgisayarda öğrencilerim için hazırladığım bir günlük yazma programını sınıfımdaki bilgisayarda (win XP office 2007) çalıştırmayı denediğimde

Dim bak As Range
For Each bak In Range("g1:g" & WorksheetFunction.CountA(Range("g1:g40")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
UserForm1.Hide
UserForm2.Show
End If
Next bak

kodunu kullandığım her işlev

If StrConv(bak.Value, vbUpperCase) aşamasında hata veriyor.
Belki office bileşenlerinde eksik kurulum vardır diye office programını kaldırdım ve yeniden full kurdum ama hata hala devam ediyor. Bu kodu kullanmadan programı baştan yazmak benim çok zamanımı alacak belki de beceremeyeceğim.
Acaba bu hata nereden kaynaklanır? Bilgisi olan ya da tecrube edinmiş olan biri çözüm hakkında yardımcı olursa sevinirim.
Bu arada program benim bilgisayarımda gayet sağlıklı çalışıyor.

 

[Levent Menteşoğlu]

Verdiği hata kodu nedir?

 

[Levent Menteşoğlu]

İlgili butondaki kodu aşağıdaki ile değiştirerek te kullanabilirsiniz. Döngü kullanmak gereksizdir.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
MsgBox "Günlük yazmak için lütfen bir kullanıcı adı seçiniz!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "lütfen şifrenizi yazınız!"
Exit Sub
End If
If CStr(Cells(ComboBox1.ListIndex + 2, "h")) = CStr(TextBox2) Then
UserForm1.Hide
UserForm2.Show
Else
MsgBox "Şifreniz yanlış. Lütfen tekrar deneyiniz!"
TextBox2.Value = ""
TextBox2.SetFocus
Exit Sub
End If
End Sub