Girilen metni büyükharfe çevir, tireyi iki noktaya çevir

[mdagistanli]

Merhabalar.

MAC adresleri ve IP adresleri tablomda, A sütunu MAC adresleridir ve hücreye mac adresini yazdığımda otomatik büyük harfe çevirmesini, - işretini : 'ya çevirmesini istiyorum.

Örnek;

b4-fa-48-6c-de-00 -> B4:FA:48:6C:DE:00

 

[Mdemir63]

Selamlar
Formülle isterseniz
Bilgilerinizin A1 hücresinden başladığını varsayalım;

B1 Hücresine aşağıdaki formülü kopyalayıp aşağı doğru çogaltabilirsiniz.

=BÜYÜKHARF(YERİNEKOY(A1;"-";":"))

VBA ile isterseniz

Sub Degistir()
Dim c As Range
Dim aralık As Range
Dim lr As Integer
lr = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
Set aralık = Sheets("Sayfa1").Range("A1:A" & lr)

      For Each c In aralık
            c.Value = UCase$(c.Value)
             c.Value = WorksheetFunction.Substitute(c.Value, "-", ":")
      Next c
      MsgBox "İşlem Tamam", vbInformation, "Bilgi Mesajı"
End Sub