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

• #44562 sedyke tag

  Új Válasz 2020-07-29 16:47:09 #44562

  Ú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

  

  sedyke

  tag

  Sziasztok!
  Van egy excel fájlom, amiben sok-sok termék költésgszámítás szerepel az elmúlt évekből különböző munkafüzetekben termékcsoportonként.
  Pár évvel ezelőtt szerettem volna egy oldalt, ahol a termékkód és a végső ár listázva van. Anno ehhez itt kaptam segítséget macro formájában.
  Sajnos észrevettem, hogy már nem minden termék kerül felsorolásra. Tudnátok tanácsot adni, hogy mi lehet a gond? Én magam nem tudok macrokat írni, csak futtatni.

  Sub termeklistas()
  Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
  Set ws = Sheets("AUTODATA")
  yy = 1
  For Each sh In Worksheets
  xx = 1
  If sh.Name <> ws.Name Then
  Do While True
  If sh.Cells(xx, "B").Value = "" Then Exit Do
  ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
  ws.Cells(yy, "O").Value = sh.Name & "!"
  ws.Cells(yy, "P").Value = xx - 1
  xx = xx + 51
  yy = yy + 1
  Loop
  End If
  Next
  End Sub

  Lényegében az 'N' oszlopban vannak felsorolva a termékkódok, 'O' oszlopban a munkafüzet neve és 'P' oszlopban a termékkód sorszámát kellene mutatnia (-1 mert a egy másik oszlopban képlettel kikeresem az árát).
  Lehetséges, hogy már túl sok munkafüzet vagy adat szerepel a fájban?
  Előre is nagyon köszönöm a segítséget! Szép napot kívánok!

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