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

• #28759 poffsoft veterán air #28758

  Új Válasz 2015-09-23 23:51:06 #28759

  Ú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

  

  poffsoft

  veterán

  válasz air #28758 üzenetére

  volt ilyen próbálkozásom.
  elég régen. Excel.
  Műszak ütemezés, nem komplett nyilvántartás.

• #28539 poffsoft veterán air #28538

  Új Válasz 2015-09-09 17:56:57 #28539

  Ú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

  

  poffsoft

  veterán

  válasz air #28538 üzenetére

  Excel menü, fejlesztői eszközök, Visual basic.
  Ott duplaklikk a lapod nevén
  copy-paste a felnyílt ablakba
  vissza az excel munkalapra, amin dolgozol.
  Excel menü/fejlesztői eszközök, makrók, kijelölöd az egyetlent (Split), indítás.

• #28537 szatocs1981 aktív tag air #28536

  Új Válasz 2015-09-09 14:57:44 #28537

  Ú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

  

  szatocs1981

  aktív tag

  válasz air #28536 üzenetére

  Ez szétszedi az A1-ben lévöt és A2-B2 töl kezdve feltölti.
  Pr´báld ki:

  Sub Split()
  
  Dim txt As String
  Dim x As Variant
  
  Dim i As Long
  txt = Cells(1, 1).Value
  
  x = Split(txt, ", ")
  
  ReDim y(UBound(x))
  
  For i = 0 To UBound(x)
  
  y(i) = Split(x(i), "(")
  
  Next i
  
  For i = 0 To UBound(x)
  y(i)(1) = Replace(y(i)(1), ")", "")
  Next i
  
  For i = 0 To UBound(x)
  Cells(i + 2, 1).Value = y(i)(0)
  Cells(i + 2, 2).Value = y(i)(1)
  Next i
  
  End Sub

• #28535 szatocs1981 aktív tag air #28534

  Új Válasz 2015-09-09 14:28:54 #28535

  Ú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

  

  szatocs1981

  aktív tag

  válasz air #28534 üzenetére

  amint lesz idöm, megírom neked a makrót hozzá!

• #28533 szatocs1981 aktív tag air #28531

  Új Válasz 2015-09-09 13:29:37 #28533

  Ú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

  

  szatocs1981

  aktív tag

  válasz air #28531 üzenetére

  Egy screenshot sokat segítene a megértésben....legalábbis nekem

• #24914 Fferi50 Topikgazda air #24913

  Új Válasz 2015-01-07 11:01:19 #24914

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

  Igazán nincs mit.
  Elnézést, hogy az elején nem gondoltam a könyvtár kiválasztásra.

  Üdv.

• #24912 Fferi50 Topikgazda air #24908

  Új Válasz 2015-01-07 09:46:54 #24912

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

  Szia!

  Az alábbi kis makrórészletet légy szíves betenni a dim sor után:
  With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = CurDir()
  If .Show Then
  ChDir (.SelectedItems(1))
  Else
  MsgBox "Nem választottál, kilépek a programból!", vbCritical :Exit Sub
  End If
  End With

  Így amikor elindítod a programot, kiválaszthatod, hogy melyik könyvtár adatait rakja össze (ez talán jobb is, mintha kívülről navigálnál, mert ez biztosan oda visz, ahova szeretnéd).
  Ha nem válaszottál könyvtárat, akkor nem megy tovább.

  Üdv.

• #24908 air nagyúr air #24907

  Új Válasz 2015-01-07 08:43:12 #24908

  Ú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

  

  air

  nagyúr

  válasz air #24907 üzenetére

  Sajnos csak a próba sikerült, élesben nem megy a dolog.
  Nem tudom, hogy az előbb miért annak a könyvtárnak a tartalmát kezdte összemásolni amelyiket valóban kellett, mert most az istennek sem tudom rávenni, hogy azt csinálja, amit én akarok, ne pedig a teljes "Dokumentumok" mappámat.
  Tehát továbbra sem tiszta, hogy miként kell elnavigálni a kérdéses mappába.

• #24907 air nagyúr air #24905

  Új Válasz 2015-01-07 08:20:30 #24907

  Ú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

  

  air

  nagyúr

  válasz air #24905 üzenetére

  Működik!
  Köszi.
  Szintaktikai hiba volt benne. Hiányzott egy i betű az egyik application szóból.

• #24903 Fferi50 Topikgazda air #24901

  Új Válasz 2015-01-07 07:50:03 #24903

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

  Szia!

  Elnavigálsz abba a könyvtárba, ahol a fájljaid vannak.
  Elindítod az excelt, ami egy új munkafüzettel indít.
  Ide összemásolhatod a fájlokat.
  Ezután Alt+F11 lenyomásával átmész a VBA project ablakba.
  A menüből kiválasztod az insert, azon belül pedig a module pontot.
  A megnyilt modullapra bemásolod az alábbi kódot:
  Sub osszerako()
  Dim hova As Worksheet, fajlneve As String, usor As Long, xx As Integer
  Set hova = ActiveSheet
  fajlneve = Dir("*.xls*")
  Application.EnableEvents = False
  Applicaton.ScreenUpdating=False
  Do While fajlneve <> ""
  xx = xx + 1
  usor = hova.UsedRange.Rows.Count + 1: If usor = 2 Then usor = 1
  Workbooks.Open Filename:=fajlneve, ReadOnly:=True
  ActiveSheet.UsedRange.Copy Destination:=hova.Cells(usor, 1)
  ActiveWorkbook.Close False
  fajlneve = Dir()
  If xx Mod 10 = 0 Then Application.StatusBar = "Másolva: " & xx & "db fájl!"
  Loop
  Application.EnableEvents = True
  Application.ScreenUpdating=True
  Application.StatusBar = False
  MsgBox "A másolásnak vége, kérem, mentse el a fájlt!", vbInformation, "Fájlok összemásolása"
  End Sub

  Visszamész az excel munkalapra (Alt+F11 ismét).
  Ezután menü - nézet- makrók megjelenítése. Megjelenik a listában az osszerako. Inditás.
  Alul a státusz soron fogod látni a begyűjtött fájlok számát, tizesével nőve.

  Ha végzett, kapsz egy üzenetet.
  Ezután mentés másként művelettel nevezd el a fájlodat, a mentés után bezárhatod.

  Remélem, sikerülni fog.

  Üdv.

• #24898 Fferi50 Topikgazda air #24896

  Új Válasz 2015-01-06 23:53:28 #24898

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

  Szia!

  Próbáld ki a következőt:
  Sub osszerako()
  Dim hova As Worksheet, fajlneve As String, usor As Long, xx As Integer
  Set hova = ActiveSheet
  fajlneve = Dir("*.xls*")
  Application.EnableEvents = False
  Do While fajlneve <> ""
  xx = xx + 1
  usor = hova.UsedRange.Rows.Count + 1: If usor = 2 Then usor = 1
  Workbooks.Open Filename:=fajlneve, ReadOnly:=True
  ActiveSheet.UsedRange.Copy Destination:=hova.Cells(usor, 1)
  ActiveWorkbook.Close False
  fajlneve = Dir()
  If xx Mod 10 = 0 Then Application.StatusBar = "Másolva: " & xx & "db fájl!"
  Loop
  Application.EnableEvents = True
  Application.StatusBar = False
  MsgBox "A másolásnak vége, kérem, mentse el a fájlt!", vbInformation, "Fájlok összemásolása"
  End Sub

  Remélem segít.

  Üdv.

• #24895 Fferi50 Topikgazda air #24892

  Új Válasz 2015-01-06 21:24:02 #24895

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

  Szia!

  Ez a gomb szerintem csak közös használatú munkafüzeteknél aktív.

  Nem egészen világos még mindig: Adott 300+ fájl egy-egy munkalappal különböző számú sorokkal.
  Az adott fájlból a munkalapon levő sorokat a "Főfájl" egyetlen munkalapjának az utolsó sorai után kell bemásolni?

  Mindenesetre jó lenne, ha az összes fájl egy könyvtárban lenne. Akkor lehet egy viszonylag egyszerű makrót írni az összemásolásukra.

  Most más dolgom van, de ha visszajövök, segítek, de írd meg lsz. jól értettem-e a feladatot.

  Üdv.

• #24893 Wyll őstag air #24892

  Új Válasz 2015-01-06 20:40:52 #24893

  Ú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

  

  Wyll

  őstag

  válasz air #24892 üzenetére

  Nem lehet, hogy egyszerre kell hogy megnyitva legyen legalább 2 file, és akkor aktiválódik a gomb?

• #24891 Fferi50 Topikgazda air #24889

  Új Válasz 2015-01-06 20:23:31 #24891

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

  Szia!

  Egyrészt, nem tudom, hogy a Munkafüzetek összehasonlítása és egyesítése menüpont azt csinálja-e amit szeretnél. Másrészt ki lehet tenni ezt is a menüszalagra, a testreszabásnál ki kell választanod, hogy minden parancsot szeretnél látni és akkor egyéni csoportba "át tudod tolni" a menüszalagra is.

  Továbbá, mit értesz azon, hogy egyesíteni kellene egyetlen darab fájlba?
  Azt, hogy az összes munkafüzetben levő összes munkalapot bele kellene másolni egy db munkafüzetbe,
  vagy azt, hogy a munkalapokon levő adatokat valamilyen algoritmus szerint egy db munkafüzetbe össze kellene fésülni (pl. a Munka1 munkalapon levő cellák értéke a legutolsó előfordulás szerint legyen)?

  Azért nem gondolod Te sem komolyan, hogy különböző verziókban leledző többszáz munkafüzet majd csettintésre átalakul egy munkafüzetté? Meg kell azért bizony dolgozni. Szépen sorban meg kell nyitogatni őket, majd elvégezni rajtuk/velük a szükséges műveletet (átrakni az "örökös" munkafüzetbe) és utána visszazárni.
  Ezt egy nem túl nagy makró megcsinálja, ha tudod, hogy mit szeretnél.

  Üdv.

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