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

• #23972 Fferi50 Topikgazda snorbi82 #23970

  Új Válasz 2014-10-29 15:55:19 #23972

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

  Szia!

  Itt ugyan a 25. sorban van Minta Janika, de sebaj, mindegy is melyik sorban van, azt majd megadod.

  Nagy vonalakban a javaslatom:
  Indulsz a meglevő, beolvasott csv adatokkal.
  A változó deklarációkat rád bízom...

  set adatok=activesheet
  utsor=cells(1000,1).end(xlup).row 'megkeressük az utolsó sort
  For ugyfsor=18 to utsor ' ettőll eddig kell a ciklusnak menni
  set ujws=workbooks.add.sheets(1) 'létrehozza az új munkafüzetet és aktívvá teszi
  range(adatok.cells(ugyfsor,"J"),adatok.cells(ugyfsor,"Z").copy range("J18")
  range(adatok.cells(ugyfsor,"AA"),adatok.cells(ugyfsor,"AB").copy range("J19")
  range(adatok.cells(ugyfsor,"AC"),adatok.cells(ugyfsor,"AD").copy range("J20")
  ' és így tovább..... ha az első oszlopnál akarod kezdeni, akkor range("A18") a "J18" helyett stb.
  ' ha végig értél az ügyfélen
  ujws.parent save as filename:=fájlnév ' (amit természetesen neked kell megadni)
  ujws.parent close false
  next 'és megy vissza az elejére a ciklus

  Remélem, tudsz belőle valamit használni.

  Üdv.

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