Seçili hücrelerin sonuna karakter eklemek???

[MİLENYUMTUNCAY]

Merhaba arkadaşlar. Seçili olan hücrelerin sonuna virgül (,) eklemek istiyorum. Bunu yapabileceğim bir kod yazarsanız çok sevinirim. Şimdiden çok teşekkürler. Saygılarımla...

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir butona atayın ve fare ile hücreleri seçtikten sonra butona basın.

Sub virgulekle()
Dim hucre As Range
For Each hucre In Range(Selection.Cells.Address)
If hucre <> "" Then hucre = hucre & ","
Next
End Sub

 

[MİLENYUMTUNCAY]

Çok teşekkür ederim sayın leventm. Çok yardımcı oldunuz...