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

• #21858 bteebi veterán

  Új Válasz 2014-06-03 14:40:49 #21858

  Ú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!

  

  Adott a képen látható táblázat. Adott háttérszínű (mondjuk piros, de igazából lényegtelen) cellához tartozó sorok, oszlopok neveit szeretném összefűzni. Az 5. sorban (2 cellánként) számok vannak "00" formátummal, a 6. sorban pedig ehhez tartozó azonosítók, az A oszlopban pedig időpontok. Tehát ha mondjuk a "G9" cella piros hátterű lenne, akkor az összefűzött név úgy nézne ki, hogy 03-B-2.00h. Ezeket az összefűzött neveket egy külön lapra ("osszeir") szeretném kigyűjteni egymás alá. Több munkalapon is van ilyen táblázat. Az általam írt makró valamiért sajnos nem működik. Egyelőre itt tartok:

  Sub osszeir()
  Dim lap%, i As Integer, cella As Range, tartomany As Range
  i = 1
  For lap% = 1 To Worksheets.Count
  Sheets(lap%).Activate
  If Sheets(lap%).Name <> "osszeir" Then
  Set tartomany = ActiveSheet.UsedRange
  For Each cella In tartomany
  If cella.Color.Interior = 255 Then
  Sheets("osszeir").Cells(i, 1).Value = ActiveSheet.Cells(5, Int(cella.Column / 2) * 2) & "-" & ActiveSheet.Cells(6, cella.Column) & "-" & ActiveSheet.Cells(cella.Row, 1) & "h"
  i = i + 1
  End If
  Next cella
  End If
  Next lap%
  End Sub

  Meg tudnátok mondani, hogy mi lehet a gond? Valószínűleg a cella.Column nem (se) tetszik neki, viszont nincs ötletem, hogy hogy lehetne máshogy megírni. Nagyon köszönöm a segítségeteket!

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