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

• #27755 Fferi50 Topikgazda sedyke #27746

  Új Válasz 2015-07-14 13:20:25 #27755

  Ú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

  

  Fferi50

  Topikgazda

  válasz sedyke #27746 üzenetére

  Szia!

  Ha jól emlékszem, azt írtad a legelején, hogy minden terméknek külön terméklapja van. Ez azt jelenti, hogy már 800-nál több munkalapot tartalmaz a munkafüzeted.

  Nincs mese, egyszer végig kell menni rajta és megnézni, melyik termék melyik lapon van - különben nem tudod ezt a "behívósdit" megcsinálni.

  Erre itt egy makró:

  Sub vegigkeres()
  Dim sh As Worksheet, ws As Worksheet, xx As Integer
  Set ws = Sheets("Főlap") ' ide a Főlap helyére annak a munkalapnak a nevét írod, amelyre a kigyűjtést szeretnéd.
  xx = 2
  For Each sh In Worksheets
  If sh.Name <> ws.Name Then
  ws.Cells(xx, "N").Value = sh.Cells(1, "B").Value
  ws.Cells(xx, "O").Value = sh.Name
  xx = xx + 1
  End If
  Next
  End Sub

  Ezt akár egy általános modulba, akár a "Főlap" kódlapjára bemásolhatod - ez utóbbi: jobb egérgomb a lapnéven alul, kód megjelenítése, bemásolás.
  Egyszer lefuttatod, akkor az N-O oszlopba beírja a munkafüzetben talált termékkódokat (a munkalapok B1 cellájában levő értéket, mellé pedig annak a munkalapnak a nevét, amelyen találta). Vigyázat, nem ellenőrzi, ha esetleg duplikált termékkód fordul elő.
  Ezután a Főlapod B1 cellájának érvényesítésére megadhatod az N oszlopban levő értékeket.

  Ha mindez megvan, a makróra már nincs is szükséged, mentheted makrómentesen a füzetet.

  Üdv.

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