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

• #16616 GoZoL senior tag Mutt #16615

  Új Válasz 2013-02-06 21:20:02 #16616

  Ú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

  

  GoZoL

  senior tag

  válasz Mutt #16615 üzenetére

  Ehhez hasonló megoldást eszközöltem, de minden új munkafüzet másolás után két üres oszlopot szúr be! Holnap megnézem a te verziódat! Köszi!

• #16604 GoZoL senior tag

  Új Válasz 2013-02-06 08:36:29 #16604

  Ú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

  

  GoZoL

  senior tag

  Sziasztok!

  A következő makrót szeretném módosítani:
  Sub Osszevon_()
  Const utvonal = "adat"
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer

  Application.ScreenUpdating = False

  oszlop_gy = 3
  Set WBGy = Workbooks("adat.xlsm")
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN

  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Range("G27:G197").Copy
  ActiveWindow.ActivatePrevious
  Cells(9, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""

  Application.ScreenUpdating = True
  End Sub

  Plusz tartományt kellene másolni (E9:E26) ami a 9-14 sorba illesztené be és utána jönne a fent látható tartomány de a 15. sortól illesztené be. Egy kijelöléssel és egy másolással nemigen lehetséges.

  Köszönöm a segítséget!

• #14529 GoZoL senior tag

  Új Válasz 2012-08-02 09:29:12 #14529

  Ú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

  

  GoZoL

  senior tag

  Üdv!

  A probléma az FKERES függvény alkalmazásánál jön elő, hiányzik értékkel de csak ritka esetben.
  A képlet: =FKERES(F10;Géplista_teszt.xls!gépek;5;HAMIS)
  működése: ebben a munkafüzetben az F10-es cella értékét megkeresi egy másik fájlban a gépek nevű munkafüzet 5. oszlopában. Ha megtalálta akkor beírja az értéket.
  95 %-ban működik kb 1400 sor van de bizonyos értékeket nem talál meg. Már a formátumától kezdve a cellának a tulajdonságait mindent megnéztem, de nem találtam különbséget. Ha IGAZ értékre átírom akkor működik de úgy olvastam, hogy nem a pontos értéket adja vissza hanem a hozzá legközelebbit. Még annyit, hogy 1000 alatti számokat 4 jegyűre egészítettem ki, egy darab 0-val. A hiba csak az 1000 feletti számoknál jön elő de ott sem mindenhol. Köszi!

• #11944 GoZoL senior tag Delila_1 #11939

  Új Válasz 2011-11-09 14:05:38 #11944

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11939 üzenetére

  Minden nagyon szuperül megy!!! Makrós könyvből érdemes tanulni?

• #11935 GoZoL senior tag Delila_1 #11931

  Új Válasz 2011-11-08 18:34:39 #11935

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11931 üzenetére

  Bocsánat már ég az arcom a sok kéréstől Nagyon szépen köszönöm, több kívánságom nem lesz!

• #11929 GoZoL senior tag Delila_1 #11926

  Új Válasz 2011-11-08 14:56:29 #11929

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11926 üzenetére

  Köszi, még annyi utolsó bajom van, hogy értékként szeretném másolni mert képlet van az eredeti helyen és képletet másol!

• #11925 GoZoL senior tag Delila_1 #11921

  Új Válasz 2011-11-08 11:06:22 #11925

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11921 üzenetére

  Nem tudom beparaméterezni. Pontosítok, a kimásolandó fájlokban (minden fájlban itt van) a H28 : H80 tartományt másolja a gyüjtő.xls C9 : C61 tartományába, a következő pedig a D9 : D61-es tartományába másolódjon értékként és így tovább. A végén kb. 250 oszlopom lesz

• #11920 GoZoL senior tag Delila_1 #11905

  Új Válasz 2011-11-08 06:21:11 #11920

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11905 üzenetére

  Szia!

  Annyi problémám van, hogy nem az utolsó oszlopot másolja át hanem az elsőt. Lehet még annyit paraméterezni rajta, hogy megadjam az utolsó oszlop tartományát amit másolni kell és a gyüjtő.xls-ben kezdő oszloptartományt ahova kezdje másolni?

  Köszi!

• #11909 GoZoL senior tag Delila_1 #11905

  Új Válasz 2011-11-07 17:04:17 #11909

  Ú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

  

  GoZoL

  senior tag

  válasz Delila_1 #11905 üzenetére

  Nagyon szépen köszönöm! Sok munkától mentettél meg!

• #11901 GoZoL senior tag

  Új Válasz 2011-11-07 09:48:33 #11901

  Ú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

  

  GoZoL

  senior tag

  Sziasztok!

  Lehetséges e olyan makrót készíteni amely megnyitja egy mappában az összes xls fájlt, majd az excelben lévő össze lapot megnézve egy adott oszlopot(mindig az utolsót) átmásolna egy másik excel táblázatba? Minden munkalap utolsó oszlopát egymás mellé másolgatná.
  Köszi előre is a segítséget!

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