Soru Makronun uygulama alanını sınırlandırmak..

[EKREM1661]

Değerli Arkadaşlar..! Aşağıdaki kod F ve H sütunlarında yazılanı büyük harfe döndürüyor.. Bu eylemi tüm sütunda değil de örneğin, 10.ncu satırdan sonrasına uygulasın dersek ne gibi bir değişiklik yapabiliriz..

Private Sub Worksheet_Change(ByVal Target As Range)
Case 6, 8 'F ve H sütununda yazilani BÜYÜKHARF'e döndürür..
Veri.Value = UCase(Replace(Replace(Veri.Value, "i", "I"), "i", "I"))
End Select
Next
End Sub

 

[Orion1]

En üstr satıra yazın.

If Intersect(Target, Range("F10:F" & Rows.Count & ",H10:H" & Rows.Count)) Is Nothing Then Exit Sub

 

[EKREM1661]

Evren hocam, çok teşekkürler..