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

• #22787 Fferi50 Topikgazda botond187 #22786

  Új Válasz 2014-08-05 21:07:19 #22787

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

  Szia!

  Kell egy makrót írnod, ami végigmegy a cikkszámokon és az általad megadott cikkszám melletti cellába beírja a szintén általad definiált feltétel szerinti cikkszámokat:
  Csak vázlatosan:

  for yy = 1 to 100
  kieg=""
  if cells(yy,1).value>="G-010100000" and cells(yy,1).value<="G-010100099" then
  for xx= 2 to 100
  if cells(xx,1).value>="G-010504000" and cells(xx,1).value<="G-010504099" then
  if kieg="" then
  kieg= cells(xx,1).value
  else
  kieg=kieg & elválasztó & cells(xx,1).value
  endif
  endif
  next
  end if
  if kieg<>"" then cells(yy,2).value=kieg
  next

  A ciklusok vége az A oszlopban levő adatait mennyiségétől függ. Az elválasztó helyébe írd be azt a karaktert, amelyet elválasztóként szeretnél használni.
  Ha a feltételeket megváltoztatod a makróban, akkor bármelyik cikkszám mellé tud írni bármilyen cikkszám verziót.

  Üdv.

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