Makro İle Kırp Fonksiyonu

[baydeniro]

Sayın Necdet Yeşertener ustanın, aşağıda çok güzel bir kodu var. Bu kodu dizin (aralık) şekline dönüştürmek ve İndirect (dolaylı) yolu ile hücreyi adresini hücreden almak mümkün mü ?

Public Sub Trim_Yap()
[B2] = LTrim([A2])
[C2] = RTrim([A2])
End Sub
Yani :
1) B2 yerine B2:B100 ve A2 yerine A2:A100 gibi bir aralık ve/veya
2) B2 adresini Sayfa3 teki H1 hücresinden alması sağlanabilir mi ?

 

[halit3]

bu kod işini görürmü

Public Sub Trim_Yap()
For i = 2 To 100
Cells(i, "B").Value = Trim(Cells(i, "A").Value)
Next i
End Sub

 

[baydeniro]

Sayın halit3, yardımlarınız için çok teşekkür ederim. Çok faydalı bir kod. Sağlıcakla kalın.