Hücrelerdeki Açıklamalara Ait Kullanıcı İsimlerini Değiştirme

[iplikci_80]

Arkadaşlar yapmak istediğim şey hücrelerdeki açıklamalara ait kullanıcı adlarını tek tek değilde toplu olarak değiştirmek istiyorum bu hususta yardımlarınızı rica ediyorum.

 

[turist]

Kullanıcı adları ne şekilde değişecek?
Hepsi aynı şekilde mi değişecek?
Detay bilgi ve/veya koşul verirseniz, daha kolay cevap bulabilirsiniz.

 

[iplikci_80]

Evet hepsi aynı " ALİ ARAS " olacak.

 

[turist]

Aşağıdaki Kodu deneyin.

Sub KULLANICIDEGISTIR()
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
newName = "ALİ ARAS"
On Error Resume Next
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xComment In xWs.Comments
oldName = Left(xComment.Text, InStr(1, xComment.Text, ":") - 1)
If oldName <> newName Then
        xComment.Text (Replace(xComment.Text, oldName, newName))
End If
    Next
Next
End Sub

 

[iplikci_80]

Sayın turist ilginize teşekkür ederim. Fakat kullanım nasıl, çalıştıramadım.

 

[turist]

Bu bir makro kodudur.
Excel sayfanızda iken ; Alt tuşuna basılı tutup F11 tuşu na basarak VBA Editor sayfasını açın.
Bir modül ekleyin.
Modüle yukarıdaki kodu kopyalayıp yapıştırın.
Sonra F5 tuşu ile Makroyu çalıştırın.Sonuçları gözlemleyin.

 

[iplikci_80]

Çok teşekkürler.

 

[turist]

Sağolun, iyi çalışmalar.