kelime içindeki hatalı harfi işaretleme

[peleryn]

Herkese Merhabalar;

Ek'te verdiğim örnek dosyada doğru yazılışı excel tarafından saklı tutulan değeri bir hücreye doğru şekilde girmek koşuluyla çalışacak bir uygulamaya ait bir örnek soru var.

Veri girişi yanlış yapıldığında uygulama çalışmayacağından girilen verideki yanlışın vurgulanmasına ihtiyaç duyuyorum.

Bunun nasıl yapılması gerektiği konusundaki açıklamayı dosyamda yaptım.

İlgilenecek olan herkese teşekkür ederim.

 

[halit3]

Herkese Merhabalar;

Ek'te verdiğim örnek dosyada doğru yazılışı excel tarafından saklı tutulan değeri bir hücreye doğru şekilde girmek koşuluyla çalışacak bir uygulamaya ait bir örnek soru var.

Veri girişi yanlış yapıldığında uygulama çalışmayacağından girilen verideki yanlışın vurgulanmasına ihtiyaç duyuyorum.

Bunun nasıl yapılması gerektiği konusundaki açıklamayı dosyamda yaptım.

İlgilenecek olan herkese teşekkür ederim.

bu kodu kendinize göre uyarlayınız.

Sub kelimebul()
deg1 = Worksheets(ActiveSheet.Name).Cells(4, 4).Value
deg2 = Worksheets(ActiveSheet.Name).Cells(5, 4).Value
If Len(deg1) <> Len(deg2) Then
MsgBox "eksik veya fazla kelime girdiniz."
Exit Sub
End If
Worksheets(ActiveSheet.Name).Cells(5, 4).Font.ColorIndex = xlAutomatic
For i = 1 To Len(deg1)
If Mid(deg1, i, 1) <> Mid(deg2, i, 1) Then
Worksheets(ActiveSheet.Name).Cells(5, 4).Characters(Start:=i, Length:=1).Font.ColorIndex = 3
End If
Next
End Sub

 

[peleryn]

Halit hocam çok teşekkür ederim konuyu fazlasıyla çözmüş tüm hatalı olanları işaretliyor.Ellerinize sağlık tekrar teşekkür ederim.

 

[halit3]

Halit hocam çok teşekkür ederim konuyu fazlasıyla çözmüş tüm hatalı olanları işaretliyor.Ellerinize sağlık tekrar teşekkür ederim.

iyi çalışmalar