• 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.

koşullu biçimlendirme makrosu

  1. R

    Çözüldü Koşullu biçimlendirme makrosu

    Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo hata If Intersect(Target, [C5:I10]) Is Nothing Then Exit Sub If Target.Value = "Rapor" And Target.Interior.ColorIndex = 16 Then Target.Value = "Rpr" Exit Sub End If hata: ActiveSheet.Range("H5:I10").Replace what:="Rapor"...
Geri
Üst