Merhaba
aşağıdaki kodda C1:C5 aralığıa değil o an aktif olarak taralı (seçili) olan aralık yada sütuna kodu uygulamak için nasıl bir uyarlama yapmam gerekiyor.
teşekkürler ve kolaylıklar
Sub Proper_Case()
For Each x In Range("C1:C5")
x.Value = Application.Proper(x.Value)
Next
End Sub
aşağıdaki kodda C1:C5 aralığıa değil o an aktif olarak taralı (seçili) olan aralık yada sütuna kodu uygulamak için nasıl bir uyarlama yapmam gerekiyor.
teşekkürler ve kolaylıklar
Sub Proper_Case()
For Each x In Range("C1:C5")
x.Value = Application.Proper(x.Value)
Next
End Sub
Range("C1:C5") yerine Selection yazman yeterli.
cakabo
1