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

• #23407 bteebi veterán

  Új Válasz 2014-09-23 15:32:12 #23407

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Van több munkalapon néhány táblázat, amikben bizonyos cellák kék hátterűek (RGB kód: 141, 180, 226). Ezeket a cellákat kellene kigyűjtenem egy külön lapra ("Összefoglaló") bizonyos elnevezési szabály alapján. A kép alapján érthető(bb) lesz.

  

  Vegyük mondjuk a C12-es cellát. Kék hátterű, és úgy kellene kiírni az "Összefoglaló" lapra (a C2-es cellától kezdve lefelé), hogy Város 1 - 20150106 - du.; a többi kék cella ennek az analógiájára lenne elnevezve.

  A munkafüzetben nagyon sok munkalap van, és csak a "Lista" névvel kezdődőeknél vannak ilyen cellák, ezért összességében felgyorsítaná a folyamatot, ha csak ezeket a lapokat nézné végig a makró.

  Egyelőre eddig jutottam, de minden bizonnyal több hiba is van benne. Tudnátok segíteni a kijavításában?

  Sub osszeir()
  Dim ws As Worksheet, i As Integer, j As Integer, cella As Range
  j = 2
  For i = 1 To Worksheets.Count
  If Left(ws.Name, 5) = "Lista" Then
  ws.Activate
  For Each cella In ActiveSheet.UsedRange
  If cella.Interior.Color = RGB(141, 180, 226) Then
  Sheets("Összefoglaló").Cells(j, 3).Value = Cells(5, cella.Column) & " - " & Cells(cella.Row, 1) & " - " & Cells(6, cella.Column)
  j = j + 1
  End If
  Next
  End If
  Next i
  End Sub

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