• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

renklendirme kodu çalışmıyor

  1. B

    Çözüldü renklendirme kodu çalışmıyor

    Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [C2:C9999]) Is Nothing Then Cells(Target.Row, "A") = Date + Time Range("A" & Target.Row).Characters(1, 10).Font.Color = vbRed Range("A" & Target.Row).Characters(12, 5).Font.Color = vbGreen End If End Sub Böyle bir kod...
Geri
Üst