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

• #10033 Delila_1 veterán varikahun #10028

  Új Válasz 2011-04-11 16:09:57 #10033

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

  A 10032-be írt sor elé még egyet tegyél be, amivel együtt így néz majd ki az egész:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 3 Then Exit Sub
  If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone
  If Target.Column = 3 And Target = "OK" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
  If Target.Column = 16 And Target = "Worn" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
  End Sub

• #10031 Delila_1 veterán varikahun #10028

  Új Válasz 2011-04-11 16:02:22 #10031

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

  A Private Sub ... sor alá írd be ezt:

  If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone

• #10027 Delila_1 veterán varikahun #10026

  Új Válasz 2011-04-11 12:57:53 #10027

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

  Szívesen.

• #10025 Delila_1 veterán varikahun #10024

  Új Válasz 2011-04-11 12:52:54 #10025

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

  A lapfülön jobb klikk, Kód megjelenítése.
  Bejutottál a VB szerkesztőbe, jobb oldalon kaptál egy üres felületet, ide másold be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target = "OK" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
  If Target.Column = 16 And Target = "Worn" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
  End Sub

  Ez a C oszlopban megadott OK-ra sárga hátteret ad, a P-be beírt Worn-re pirosat.
  A színeket a makróban a 6, ill. a 3 módosításával tudod változtatni.

• #10023 Delila_1 veterán varikahun #10021

  Új Válasz 2011-04-11 12:42:54 #10023

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

  A saját sorában színezzen? Vagyis ha a C3=OK, akkor a 3. sor legyen hupikék?
  Ha igen, add meg, melyik oszloptól melyikig színezzen.

• #10022 Delila_1 veterán varikahun #10020

  Új Válasz 2011-04-11 12:39:34 #10022

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

  Igen, második feltétellel ezt add meg.
  Összesen 3 feltételt lehet megadni.

• #10018 Delila_1 veterán varikahun #10017

  Új Válasz 2011-04-11 12:24:29 #10018

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

  Jelöld ki a tartományt, amit színezni akarsz. Hívd be a Formátum - Feltételes formázást.
  A feljövő ablakban a legördülőben legyen "A képlet értéke", a másodikba írd be: =$C$3="OK", a Formátumnál add meg a megfelelő formátumot.
  Ez a 2003-as verzióra vonatkozik, szólj, ha nem ezt használod.

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