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

iplikci_80

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
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.
 

Ekli dosyalar

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Evet hepsi aynı " ALİ ARAS " olacak.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Aşağıdaki Kodu deneyin.
Kod:
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

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Sayın turist ilginize teşekkür ederim. Fakat kullanım nasıl, çalıştıramadım.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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.
 
Son düzenleme:

iplikci_80

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Çok teşekkürler.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağolun, iyi çalışmalar.
 
Üst