Kod tagı içindeki biçimlendirmeler

[ÖmerBey]

Merhabalar,
Eski konularda yer alan kod tagı içindeki kodlarda renk, boyut, kalınlık gibi biçimlendirmeler varsa bunlar yeni forumda araya metin olarak giriyor.
Aşağıda olduğu gibi...

 If Not Intersect(Target, Range("[B][SIZE="4"][COLOR="Red"]A5:Z55[/COLOR][/SIZE][/B]")) Is Nothing Then

 

[netzone]

Merhaba,

Malesef Eski Yazım denetleyicisi ile bu sistemin denetleyicisi farklı geçmiştekiler için yapılacak tek yol sql ile müdahele etmek olabilir. içinde BB kod barındıran kod alanlarını zengin metin biçimine dönüştürülebilirse şu şekilde bir görüntü ortaya çıkacaktır.

If Not Intersect(Target, Range("A5:Z55")) Is Nothing Then

 

[htsumer]

Sub oytemizle()
uyarı1 = MsgBox("Parti ve adayların aldıkları oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı1 = vbYes Then
    sonsat = Cells(Rows.Count, "A").End(3).Row
    sonsut = Cells(4, Columns.Count).End(xlToLeft).Column

    For i = 10 To sonsut Step 2
        Range(Cells(5, i), Cells(sonsat, i)).ClearContents
    Next
    
End If

End Sub