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

• #6921 Delila_1 veterán superecneB #6916

  Új Válasz 2010-04-20 12:16:40 #6921

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

  Ha 2007-esnél régebbi verziód van, lefuttatod az alábbi kis makrót, ami a zöld hátterű cellák sorában a C oszlopba 1-et, a nem zöldek mellé 2-t ír. Ezután már tudod rendezni a C oszlop szerint, igény esetén a C-n belül más oszlopokat is bevehetsz a rendezésbe.

  Sub szin()
  Dim sor As Integer
  sor = 1
  Do While Cells(sor, 1) <> ""
  If Cells(sor, 1).Interior.ColorIndex = 35 Then
  Cells(sor, 3) = 1 'Itt írd át a 3-at, hogy ne a 3. (C) oszlopba írja a számot
  Else
  Cells(sor, 3) = 2 'és itt.
  End If
  sor = sor + 1
  Loop
  End Sub

  A különböző zöldeknél a 35 helyére a megfelelő számot írd.
  

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