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

• #45627 Delila_1 veterán sopruk #45626

  Új Válasz 2020-12-30 13:29:57 #45627

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

  Nem rontasz el semmit. Szándékosan írtam úgy, hogy az összesítőbe ne írja be mindenhova a címsort.
  Az alábbi sorból hagyd ki az Offset(1)-et

  Sheets(1).Range("A1").CurrentRegion.Offset(1).Copy WB.Sheets(1).Range("A" & ide)

  Legyen csak
  Sheets(1).Range("A1").CurrentRegion.Copy WB.Sheets(1).Range("A" & ide)

• #45623 Delila_1 veterán sopruk #45622

  Új Válasz 2020-12-29 16:38:28 #45623

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

  Írtam rá egy nyúlfarknyi makrót.
  A füzetet, amiben a makró van, Összesítő.xlsm-nek neveztem el. Ha nálad nem ez a neve, az 5 csillaggal jelzett sorban írd át!
  Ha nem akarod az előző adatokat törölni, a sok csillagos két sort töröld.
  Modulba tedd, ahogy a Téma összefoglalóban olvashatod.

  Sub Osszemasolas()
Dim WB As Workbook, ide As Integer, FN
Set WB = ActiveWorkbook
Const utvonal = "C:\Kivonatok\"

'Előző adatok törlése *************
WB.Sheets(1).Range("A1").CurrentRegion.Offset(1).ClearContents' *************

Application.DisplayAlerts = False
Application.ScreenUpdating = False

ChDir utvonal
FN = Dir(utvonal & "*.xls*", vbNormal)
Do
If FN <> "." And FN <> ".." And FN <> "Összesítő.xlsm" Then '*****
ide = WB.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1
Workbooks.Open Filename:=utvonal & FN
Sheets(1).Range("A1").CurrentRegion.Offset(1).Copy WB.Sheets(1).Range("A" & ide)
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

• #45621 Delila_1 veterán sopruk #45616

  Új Válasz 2020-12-28 16:02:33 #45621

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

  Tisztáznunk kell a fogalmakat. Füzet az a fájl, aminek xls... a kiterjesztése.
  Munkalap a füzetben lévő Munka1, Sheet1, vagy bármi más néven elnevezett lap, szokták fülnek is nevezni.
  Az egyes lapokon lehetnek a táblázatok, bármelyik lapon több is.
  Táblázat az, amit úgy írtál le, hogy a címsoruk az A1:N1 tartományban van, és változatos a soruk száma. Ebből a leírásból kiderül, hogy nem 1 lapon vannak, mert akkor nem lehetne azonos helyen a címsoruk.
  Most már csak azt kellene tudni, hogy 1 füzetben, 20-30 lapon vannak a táblázatok, vagy 20-30 füzetben.
  Ha 1 füzetben, a következő kérdés az, hogy van-e ezeken a lapokon kívül másik lap is – leszámítva az összesítő lapot.
  Ha külön-külön füzetben vannak, mi az útvonaluk (melyik mappában vannak), mi alapján lehet azokat megnyitni.

• #45613 Delila_1 veterán sopruk #45611

  Új Válasz 2020-12-27 14:22:00 #45613

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

  Ahogy mdk01 írta, lehet rá makrót írni. Ahhoz azonban tudni kell pár dolgot.
  A 20-30 táblázat 1 füzetben, vagy 20-30-ban van?
  Ha 1-ben, 1 lapon, vagy 20-30-on?
  Mi a pontos helyük (pl. A1:N..)?
  Hol van az összegző tábla (másik füzetben, másik lapon, melyik területen)?

• #45612 mdk01 addikt sopruk #45611

  Új Válasz 2020-12-27 11:56:00 #45612

  Ú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

  

  mdk01

  addikt

  válasz sopruk #45611 üzenetére

  Makrót lehet rá írni.

• #35723 Apollo17hu őstag sopruk #35722

  Új Válasz 2017-07-14 20:16:06 #35723

  Ú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

  

  Apollo17hu

  őstag

  válasz sopruk #35722 üzenetére

  Solver bővítménnyel. Később leírom részletesen is:

  20243 0
  20043 0
  18992 0
  16210 0
  14500 0
  9996 0
  9750 0
  7205 0
  6594 0
  6558 0
  6317 0
  4998 0
  4400 0
  3956 0
  3661 1
  3297 0
  3003 1
  2839 1
  2750 1
  2499 1
  2200 1
  2135 1
  1900 1
  1700 0
  1600 1
  1319 1
  989 0
  300 0

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