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

• #22915 Delila_1 veterán greenface #22914

  Új Válasz 2014-08-14 12:36:02 #22915

  Ú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 greenface #22914 üzenetére

  Szívesen. Remélem, ebbe már nem csíszott huba.

• #22912 Delila_1 veterán greenface #22910

  Új Válasz 2014-08-14 11:23:45 #22912

  Ú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 greenface #22910 üzenetére

  Mint kiderült, nem is volt jó a kód. Az Exceledben a bővítményeknél jelöld be a két, Analyzis kezdetűt, hogy a VB szerkesztő megismerje az egyes utasításokat.

  Sub Erteket_Beilleszt()
  Dim FN As String
  Const utvonal = "C:\Adatok\Alkönyvtár\"
  Application.DisplayAlerts = False
  
  ChDir utvonal
  FN = Dir(utvonal & "*.xlsx", vbNormal)
  
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=utvonal & FN
  
  Muvelet FN
  
  ActiveWorkbook.Save
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Application.DisplayAlerts = True
  End Sub

  Ezt kell indítanod, az egyes fájlok behívása után elindítja a Muvelet makrót, ami az értékek beillesztését végzi.

  Sub Muvelet(FN)
  Dim cella As Range
  
  For Each cella In Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18")
  cella = cella.Value
  Next
  
  For Each cella In Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14")
  cella = cella.Value
  Next
  Sheets("Munka1").Delete
  End Sub

• #22905 Delila_1 veterán greenface #22902

  Új Válasz 2014-08-14 09:10:31 #22905

  Ú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 greenface #22902 üzenetére

  2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.

  A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.

  Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
  A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
  A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).

  Sub Erteket_Beilleszt()
  Dim FN As String
  Const utvonal = "C:\Adatok\Alkönyvtár\"
  Application.DisplayAlerts = False
  
  ChDir utvonal
  FN = Dir(utvonal & "*.xlsx", vbNormal)
  
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=utvonal & FN
  Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
  Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
  Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
  Range("A5, D5, A8, A10, C10, A12, C14").Value
  Sheets("Munka1").Delete
  ActiveWorkbook.Save
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Application.DisplayAlerts = True
  End Sub

• #22903 Fferi50 Topikgazda greenface #22901

  Új Válasz 2014-08-14 08:38:15 #22903

  Ú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 greenface #22901 üzenetére

  Szia!

  Miután az activeworkbook munkalapjain megy végig, a makrónak az adott munkafüzet egy moduljában kellene lenni.
  Viszont megoldható az is, hogy egy külön munkafüzetbe teszed, akkor viszont ki kell egészíteni egy olyan résszel, ami megnyitja egyenként a fájlokat, utána ezzel a makróval elvégzi a módosítást, majd visszazárja/elmenti a fájlokat.

  Ha emlékeim nem csalnak, volt már itt ilyenről szó. (fájlok listázása mappából).

  Ha mégsem találnád, írj és segítek.

  Üdv.

• #22898 Delila_1 veterán greenface #22896

  Új Válasz 2014-08-14 07:14:03 #22898

  Ú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 greenface #22896 üzenetére

  Nagyszerű, így könnyebb megírni a makrót. Viszont nem írhatom, hogy az IGEN nevű mappában lévő fájlokból az IGEN nevű lapot kell törölni, és az IGEN területre kell beilleszteni az értéket.

  Gyorsabb lenne a munka, ha az adatokat is közölnéd.

• #22875 Fferi50 Topikgazda greenface #22869

  Új Válasz 2014-08-13 13:14:34 #22875

  Ú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 greenface #22869 üzenetére

  Szia!

  Próbáld ki a következőt:

  Sub kepletszun()
  Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
  if sh.name<>"törölni kell" then
  sh.UsedRange.Value = sh.UsedRange.Value
  endif
  Next
  application.displayalerts=false
  sheets("törölni kell").delete
  application.displayalerts=true
  End Sub

  Ha csak képletek és értékek vannak, akkor menni fog. Ha kimutatás is van a munkalapokon, akkor viszont a kimutatásnál hibával leáll. (Természetesen lehet a hibát kezelni, de most csak gyorsan ezt dobtam fel, ha szükséges, szívesen átírom arra is.)

  Üdv.

• #22873 Delila_1 veterán greenface #22869

  Új Válasz 2014-08-13 12:58:27 #22873

  Ú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 greenface #22869 üzenetére

  Azonos mappában vannak a fájlok?
  A fájlokon belül minden lapon kell módosítani?
  Minden fájlban azonos annak a lapnak a neve, amit törölni kell?
  Az egyes lapokon azonos területeket kell felülírni az értékükkel?

  Ezeket kell tudni az automatizáláshoz.

• #22870 Bobrooney senior tag greenface #22869

  Új Válasz 2014-08-13 12:02:36 #22870

  Ú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

  

  Bobrooney

  senior tag

  válasz greenface #22869 üzenetére

  Ha minden igaz akkor exportáld csv-ként (elvileg ilyenkor rákérdez, hogy mi legyen, menj az igen-re), azt hiszem ezután eltűnnek a képletek, és copy-zd össze.

• #19691 honfoglalo senior tag greenface #19685

  Új Válasz 2013-11-29 21:30:49 #19691

  Ú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

  

  honfoglalo

  senior tag

  válasz greenface #19685 üzenetére

  Sub lathatocellak()
  Dim lArea As Long

  With Sheet1.AutoFilter.Range.Columns(1)
  For lArea = 1 To .Areas.Count
  .Areas(lArea).FormulaR1C1 = "=peldastring"
  Next lArea
  End With
  End Sub

  Ahol a columns()-ba pedig az adott oszlop száma kerüljön. A mezőnevet írd vissza manuálisan, a peldastring helyére kerüljön a képlet.

• #14418 lappy őstag greenface #14417

  Új Válasz 2012-07-20 12:47:06 #14418

  Ú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

  

  lappy

  őstag

  válasz greenface #14417 üzenetére

  Szia!
  Példa:
  Ha a cellában ez van
  A1 2012.06.07 23:59:59 ---- formázás dátumra
  A1-ben a következőt látod 2012.06.07 de ha rámész a cellára akkor még ott van a óó:pp:mp
  Beszúrsz egy oszlopot az adataid mellé
  Ezután B1-be a következő képletet írod =A1
  Nálam (2007-ben) a B1 cellában a következőt látom 2012.06.07 ami dátum formátumú
  és ahhoz hogy dolgozni tudj vele kijelölöd a B oszlopot és másolás -- irányított beillesztés-- érték!
  ha nem megy akkor vhova töltsd fel és átalakítva megkapod!

• #14408 lappy őstag greenface #14406

  Új Válasz 2012-07-20 09:49:53 #14408

  Ú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

  

  lappy

  őstag

  válasz greenface #14406 üzenetére

  Szia!
  Gondolom sok adatod lehet éé:hh:nn óó:pp:mp formátumú amit sikerült formázással dátum formátumra varázsolni! És ebből kell neked csak a dátum rész!
  Akkor segédtáblát kellene létrehozni! A képlet pedig A1 cella esetén =A1 ezután pedig kijelölöd mindet és másolás majd irányított beillesztés csak érték és formázod dátumra és kész!

• #3073 Delila_1 veterán greenface #3072

  Új Válasz 2008-01-31 16:20:14 #3073

  Ú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 greenface #3072 üzenetére

  Esetleg a színbeállításoknál a "Honnan másolja a színeket" legördülőbe nem került valami nem odaillő?

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