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

• #4236 Delila_1 veterán Chili7 #4235

  Új Válasz 2008-12-22 11:29:28 #4236

  Ú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 Chili7 #4235 üzenetére

  Az első kérdésed megoldásához az alábbi makrót másold be a laphoz (lapfülön jobb klikk, a gyorsmenüből a "Kód megjelenítése" menüpontot választva a VBA szerkesztőjében jobb oldalon kapsz egy üres lapot, oda):

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column > 1 Then
  Cells(Target.Row, 1).Select
  Selection.Formula = "=TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  End If
  Application.CutCopyMode = False
  End Sub

  A második kérdéshez nem írtad, hogy ugyanazon a lapon akarod-e alkalmazni, ahol az előbbit. Én másik laphoz írtam hozzá makrót, amit ugyanúgy másolj be a másik lap kódlapjához, mint az előzőt. A makró az F oszlop változását figyeli (IFoszlop=6), és két értékre színezi az egész aktuális sort (target.value="alma" –> piros karakter, target.value="körte" –> kék karakter). Az oszlopba érdemes a két választható választ előre megadni az Adatok/Érvényesítés/Beállítások fül/Lista, a Forráshoz alma; körte.

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  sor = Target.Row: oszlop = Target.Column
  
  If oszlop = 6 And Target.Value = "alma" Then
  Rows(Target.Row & ":" & Target.Row).Select
  Selection.Font.ColorIndex = 3
  End If
  If oszlop = 6 And Target.Value = "körte" Then
  Rows(Target.Row & ":" & Target.Row).Select
  Selection.Font.ColorIndex = 5
  End If
  Cells(sor, oszlop).Select
  End Sub

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