büyük harfle açma

[kartal1a]

Değerli hocalarım ve sayın arkadaşlar.
Veri tabanında büyük harflerle yazılmış İMREN, İĞNE gibi kelimeleri ararken strconv vbLowercase ile çevirince ımren, ığne şekline dönüşüyor.
Böylelikle küçük harflerle arama yapmak için imren yazılınca veri bulunamıyor. excelde kitap açılırken klavyeyi büyük harf ile yazacak şekilde ayarlayacak kod nedir?.Teşekkürl

 

[Levent Menteşoğlu]

Arama yaptığınız kodlarınızı verirmisiniz.

 

[kartal1a]

sayın leventm kodlar aşağıda ilginize teşekkürler fakat kodlar çalışıyor ama yanlışlıkla küçük harflerle arama yapılırsa sadece büyük İ harfinde sorun çıkıyor.
Private Sub kayıt_bul()
Dim Say As Integer: Dim pn As String: Dim sn As String
If Range("açıklama").Value <> "" And Range("iendeks").Value <> "" Then
cevap = MsgBox("Form Temizlensin mi?", vbQuestion + vbYesNo, "DİKKAT")
If cevap = 6 Then
Call temizle: Range("abone").Select: Exit Sub
Else: Exit Sub
End If

End If
If Range("abone").Value = "" And Range("pano").Value = "" And Range("sayaç").Value = "" Then
MsgBox "Lütfen Abone adı yada Pano ile Sayaç no girin", vbCritical, "DİKKAT": Range("abone").Select: Exit Sub
Else:
pn = Range("pano").Value: sn = Range("sayaç").Value
aadı = Range("abone").Value: bb = Len(aadı)
Say = WorksheetFunction.CountA(Worksheets("veri").Range("a6:a500")): End If
For satırno = 6 To Say + 5

If aadı <> "" And StrConv(Left(aadı, bb), vbUpperCase) = StrConv(Left(Range("veri!C" & satırno).Value, bb), vbUpperCase) Then
GoTo Atla
Else
If pn <> "" And pn = Range("veri!a" & satırno).Value And _
sn <> "" And sn = Range("veri!b" & satırno) Then
Atla:
Range("form!pano").Value = Range("veri!A" & satırno).Value 'Hücrelere değerleri yazıyoruz.
Range("form!sayaç").Value = Range("veri!b" & satırno).Value
Range("form!abone").Value = Range("veri!c" & satırno).Value
Range("form!atarihi").Value = Range("veri!d" & satırno).Value
Range("form!ktarihi").Value = Range("veri!e" & satırno).Value
Range("form!otarihi").Value = Range("veri!f" & satırno).Value
'aşağıda son endeks kontrol ediliyor ilkendeksten büyükse
'"ilkendeks" alanına yazdırılıyor küçükse ilk endeks yazdırılıyor
If Range("veri!h" & satırno) > Range("veri!g" & satırno) Then
Range("form!iendeks").Value = Range("veri!h" & satırno).Value
Else: Range("form!iendeks").Value = Range("veri!g" & satırno).Value

End If
Range("açıklama").Value = Range("veri!j" & satırno).Value
Range("veri!x1").Value = Range("veri!j" & satırno).Value
End If: End If
Next satırno
End Sub

 

[Levent Menteşoğlu]

StrConv(Left(aadı, bb), vbUpperCase) = StrConv(Left(Range("veri!C" & satırno).Value, bb), vbUpperCase)

Yukar&#305;daki sat&#305;r&#305; a&#351;a&#287;&#305;daki ile de&#287;i&#351;tirerek denermisiniz.

Evaluate("=UPPER(" & Left(aadı, bb) & ")")=Evaluate("=UPPER(" & Left(Range("veri!C" & satırno).Value, bb) & ")")

 

[kartal1a]

teşekkürler deneyeceğim
Fakat istediğim excel sayfası açıldıktan sonra büyük harf yazmak için Caps Lock tuşuna basılmış gibi işlem yapacak auto open olayına yazılacak bir makro varmıdır?. Hepinize teşekkürler

 

[Levent Menteşoğlu]

Bu durumda a&#351;a&#287;&#305;daki kodu kullanabilirsiniz.

Sub auto_open()
CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"
End Sub

 

[kartal1a]

Sayın Leventm çok çok Teşekkür ederim sizler sayesinde bir sorun daha çözüldü. ellerinize sağlık Dertler sizden uzak olsun.