Çap işareti değiştirmek-eklemek

[k0081]

Merhaba arkadaşlar

D16 gibi bir ifadeyi Ø16 Insaat Demiri olarak bir buton yardımı ile nasıl değiştirebilirim ? detaylar örnek dosyadadır.

örnek dosya
Ekli dosyayı görüntüle Kitap1.xlsm




Yardımcı arkadaş(a)lara şimdiden Teşekkürler., Herkese Kolay gelsin.

 

[YUSUF44]

Aşağıdaki kodları bir modüle yapıştırıp, eklemiş olduğunuz command buttonun kodlarına da sadece demir ifadesini eklediğinizde istediğiniz "dolambaçlı yoldan" gerçekleşiyor. Ya da sayfaya düğme ekleyip makro olarak demir makrosunu ekleyebilirsiniz:

Sub demir()
For i = 3 To [d2].End(xlDown).Row
Cells(i, 5) = "Ø" & Right(Cells(i, 4), Len(Cells(i, 4)) - 1) & " İnşaat Demiri"
Next
Range("E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D3").Select
End Sub

 

[YUSUF44]

Aşağıdaki kodlar ise dolambaçsız yoldan bu işi yapıyor:

Sub demir()
For i = 3 To [d2].End(xlDown).Row
çap = Right(Cells(i, 4), Len(Cells(i, 4)) - 1)
Cells(i, 4) = "Ø" & çap & " İnşaat Demiri"
Next
End Sub

Aynı şekilde ya command butonun kodlarına demir yazacaksınız ya da normal düğme ekleyip demir makrosunu atayacaksınız.

 

[k0081]

Hocam çok teşekkür ediyorum tamamdır.. son göndermiş olduğunuz macro kodu daha kullanışlı ve kısa.. Elinize , yüreğinize sağlık.. saygılar.