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

• #5618 Delila_1 veterán mikoljan #5617

  Új Válasz 2009-11-02 19:12:31 #5618

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

  Azt nem írtad, hogy a háttér, vagy a karakter sárga. Ha a karakter, akkor az Interior szót írd át Font-ra.

  Sub Sárga()
  For sor = 1 To 30000
  If Cells(sor, 1).Interior.ColorIndex = 6 Then
  Cells(sor, 40) = "Sárga"
  Else
  Cells(sor, 40) = "Színtelen"
  End If
  Next
  End Sub

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