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

• #906 lapa veterán Gh0sT #905

  Új Válasz 2006-02-01 22:41:37 #906

  Ú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

  

  lapa

  veterán

  válasz Gh0sT #905 üzenetére

  Option Explicit
  Sub feltetlen()
  Dim tartomany As Range
  Set tartomany = Range(Cells(1, 1), Cells(20, 1))
  If Cells(1, 1) <> '''' Then
  tartomany.Interior.ColorIndex = 6
  Else
  End If
  End Sub
  

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