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

• #5477 Fire/SOUL/CD félisten SAxchivava #5476

  Új Válasz 2009-10-14 19:57:04 #5477

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz SAxchivava #5476 üzenetére

  Hali!

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Range("A1") = "" Then
  Munka1.Tab.ColorIndex = xlColorIndexNone
  Else
  Munka1.Tab.Color = vbGreen
  End If
  
  End Sub

  Fire.

• #5457 Fire/SOUL/CD félisten SAxchivava #5453

  Új Válasz 2009-10-13 14:58:58 #5457

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz SAxchivava #5453 üzenetére

  Hali!

  Vagy ezt

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("A1") = "" Then
  Munka1.Tab.Color = RGB(0, 255, 0)
  Else
  Munka1.Tab.Color = RGB(255, 0, 0)
  End If
  End Sub

  Fire.

• #5456 Delila_1 veterán SAxchivava #5453

  Új Válasz 2009-10-13 14:39:21 #5456

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

  Jobb klikk után ezt vidd be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Worksheets("Munka1").Tab.ColorIndex = 4
  End Sub

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