Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #23972 Fferi50 Topikgazda snorbi82 #23970
    Új Válasz #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