Új hozzászólás Aktív témák

• #8809 Delila_1 veterán Swen_N #8808

  Új Válasz 2010-12-08 10:49:40 #8809

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Swen_N #8808 üzenetére

  Az X, vagy x beírása az első sorba hozza működésbe a makrót.

  Lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutsz, jobb oldalra másold be a makrót. Az Interior.ColorIndex = 3 -nál a 3 (piros) helyett megadhatsz más számmal más színt.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 1 And UCase(Target.Value) = "X" Then _
  Columns(Target.Column).Interior.ColorIndex = 3
  If Target.Row = 1 And UCase(Target.Value) = "" Then _
  Columns(Target.Column).Interior.ColorIndex = xlNone
  End Sub

Új hozzászólás Aktív témák