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

• #29491 sedyke tag

  Új Válasz 2015-11-13 10:42:33 #29491

  Ú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 alabbi makrom, amihez meg anno itt kaptam segitseget.
  Lenyegeben a kulonbozo munkalapokon levo koltsegszamitasaimbol kereski ki a termekkodokat es sorakoztatja fel egy oszlopban a munkaful nevevel, hogy kesobb egy osszesito tablaban csak a termekkodok kelljen beirnom es fuggvenyekkel kikeresi az adatokat.
  Amikor ezt a makrot valaki megirta nekem, akkor mukodott is. Ma ujrafuttattam, hogy az uj termekek is bekeruljenek a listaba, amiket az elmult honapokban csinaltam, viszont nem adja oket hozza a listahoz.
  Vajon mi lehet az oka? Elore is koszi a segitseget.

  Sub termeklistas()
  Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
  Set ws = Sheets("Sheet1")
  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

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