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

• #23144 Fferi50 Topikgazda botond187 #23141

  Új Válasz 2014-09-08 14:31:34 #23144

  Ú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 botond187 #23141 üzenetére

  Szia!

  Két dolog okozta a hibát:
  1. Az első sortól indítottad a ciklust és így a cikkszámot is kereste, ami persze nem volt.
  Ezért ezt a sort: For sor = 1 To usor át kell javítani erre: For sor = 2 To usor
  2. Az A oszlopban vannak üres cellát, ami szintén hibát okoz. Vagy "eltünteted" az üres cellákat, vagy beírod a következő feltételt a makróba:
  ehhez = Cells(sor, "A")
  If ehhez <> "" Then
  sorS = Application.Match(ehhez, Range("D:D"), 1)

  valamint a lezárását:
  Next
  End If
  Next

  A félkövérrel szedett sorokat kell beszúrnod a másik kettő közé.

  Üdv.

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