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

• #4243 Delila_1 veterán Chili7 #4242

  Új Válasz 2008-12-22 13:04:51 #4243

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

  Az előző leírásaidból számomra nem derült ki, hogy a háttereket akarod kifesteni, és az sem, hogy a C: D oszlopok értékadására is dátum-beírással reagáljon a program. Azt gondoltam, ez a két oszlop csak a színezésre szolgál, mármint a progi szempontjából.

  Ímé a legújabb változat, a legújabb óhajok szerint (az előzőek helyett).

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  sor = Target.Row: oszlop = Target.Column
  If oszlop = 1 Then Exit Sub
  If oszlop = 3 Or oszlop = 4 Then
  Range(Cells(sor, 1), Cells(sor, 13)).Select
  If Target.Value = "alma" Then Selection.Interior.ColorIndex = 3
  If Target.Value = "körte" Then Selection.Interior.ColorIndex = 5
  End If
  
  Cells(sor, oszlop).Select
  Cells(sor, 1).Select
  Selection.Formula = "=TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  End Sub

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