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

• #23415 bteebi veterán Fferi50 #23410

  Új Válasz 2014-09-23 17:43:32 #23415

  Ú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

  válasz Fferi50 #23410 üzenetére

  Nagyon köszönöm a segítséged , már majdnem jó .

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

  A Sheets("Összefoglaló").Cells(j, 3).Value = ws.Cells(5, (cella.Column \ 2) * 2) & " - " & ws.Cells(cella.Row, 1) & " - " & ws.Cells(6, cella.Column) sornál akad el, "Application-defined or object-defined error"-ral. Sajnos nem megy se ws-sel, se anélkül.

  #23411: Neked is köszönöm Delila . Az összevont cellás részt egyébként megoldottam így: (cella.Column \ 2) * 2. A "\" (mint újonnan ismét megtanultam) egész osztást végez, a mod (ezt is el szoktam felejteni) pedig a maradékos osztás maradékát adja meg. Például 14\3 = 4, 14 Mod 3 = 2.

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