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

• #38701 Fferi50 Topikgazda dfilpo #38697

  Új Válasz 2018-07-25 17:14:47 #38701

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

  Szia!

  Próbáld ki az Adatok - Speciális menüpontot. Itt egy párbeszéd ablakban megadhatod a feltételeket. Külön munkalapra is tud másolni. Ezután ezt a munkalapot átteszed egy fájlba és azt elmented a kívánt néven.
  Makrórögzítő tud segíteni, ha makrózni szeretnél.

  Üdv.

• #33551 Delila_1 veterán dfilpo #33550

  Új Válasz 2016-12-30 16:57:49 #33551

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33550 üzenetére

  Az ominózus sor

  ActiveWorkbook.SaveAs utvonal & "\" & Cells(2, 1) & ".xlsx"

  Azt a füzetet, amiben a makró van, makróbarátként, xlsm kiterjesztéssel kell elmentened.

• #33547 Delila_1 veterán dfilpo #33546

  Új Válasz 2016-12-30 16:39:15 #33547

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33546 üzenetére

  Ha gondolod, küldd el a füzetet. Privátban megadom a címet.

• #33545 Delila_1 veterán dfilpo #33544

  Új Válasz 2016-12-30 16:14:27 #33545

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33544 üzenetére

  Nem lehet gond az ékezet. Nem tudom, mi a baj. Próbáld így:

  ActiveWorkbook.SaveAs utvonal & "\" & cells(sor,1).Value & ".xlsx"

• #33543 Delila_1 veterán dfilpo #33542

  Új Válasz 2016-12-30 16:09:30 #33543

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33542 üzenetére

  Mi van az A2-ben?

• #33541 Delila_1 veterán dfilpo #33540

  Új Válasz 2016-12-30 16:03:02 #33541

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33540 üzenetére

  A

  ActiveWorkbook.SaveAs utvonal & "\" & sor - 1 & ".xlsx"

  sort kell átírnod.

  ActiveWorkbook.SaveAs utvonal & "\" & cells(sor,1) & ".xlsx"

• #33539 Delila_1 veterán dfilpo #33538

  Új Válasz 2016-12-30 15:15:59 #33539

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33538 üzenetére

  Nosza!

• #33537 Delila_1 veterán dfilpo #33535

  Új Válasz 2016-12-30 12:55:37 #33537

  Ú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

  

  Delila_1

  veterán

  válasz dfilpo #33535 üzenetére

  Az első lapon vannak az adatok. A makró egyenként átmásolja egy új lapra a címsort, alá az egyes sorokat, majd az új lapot lementi 1.xlsx, 2.xlsx, stb. néven abba a könyvtárba, ahol a makrós fájl van.

  Sub MentesFajlokba()
Dim sor As Long, utvonal As String

utvonal = ActiveWorkbook.Path
sor = 2
Do While Cells(sor, "A") <> ""
With Sheets(1)
.Rows(1).Copy Sheets(2).Range("A1")
.Rows(sor).Copy Sheets(2).Range("A2")
End With
Sheets(2).Copy
ActiveWorkbook.SaveAs utvonal & "\" & sor - 1 & ".xlsx"
ActiveWorkbook.Close
sor = sor + 1
Loop
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
End Sub

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