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

• #23275 Des1gnR őstag Fferi50 #23246

  Új Válasz 2014-09-15 15:09:57 #23275

  Ú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

  

  Des1gnR

  őstag

  válasz Fferi50 #23246 üzenetére

  Közben az a helyzet állt elő, hogy van amikor az új árlistában kevesebb termék van, így azokat ami a "mi" listánkba benne van és az újba nincs, azt ki szeretném listázni egy új munkalapra.

  Az általad írt ciklust fordítottam vissza és 80%-ban működik is, de a két munkalap sorainak számának különbségéből látom, hogy 21 terméket vettek ki az új listából, ám az én makróm csak 17-et listáz ki.
  Sajnos nem jöttem rá, hogy mi a gond. (Remélem nem bonyolítottam túl a leírást.)

  For i = 2 To Sheets("pm_nk_arlista").UsedRange.Rows.Count
  Set ujszam = Sheets("pm_nk_arlista_uj").UsedRange.Columns(1).Find(What:=Sheets("pm_nk_arlista").Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
  If ujszam Is Nothing Then
  Sheets("Kiesett_termékek").Cells(a, 1).Value = Sheets("pm_nk_arlista").Cells(i, 1).Value
  Sheets("Kiesett_termékek").Cells(a, 2).Value = Sheets("pm_nk_arlista").Cells(i, 2).Value
  Sheets("Kiesett_termékek").Cells(a, 3).Value = Sheets("pm_nk_arlista").Cells(i, 3).Value
  Sheets("Kiesett_termékek").Cells(a, 4).Value = Sheets("pm_nk_arlista").Cells(i, 4).Value
  Sheets("Kiesett_termékek").Cells(a, 5).Value = Sheets("pm_nk_arlista").Cells(i, 5).Value
  a = a + 1
  End If
  Next i

  Van ötletetek?

• #23248 Des1gnR őstag Fferi50 #23246

  Új Válasz 2014-09-14 14:37:42 #23248

  Ú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

  

  Des1gnR

  őstag

  válasz Fferi50 #23246 üzenetére

  Ohh, így már príma. Nagyon köszönöm a segítséget.
  Nem kizárt, hogy még lesz gondom

  m.zmrzlina: Neked is köszönöm, a későbbiekben lehet hasznos lesz. Másoknak is.

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