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

• Delila_1 veterán

  #32089

  #32088 merkucyo

  2016-07-17 16:48:19

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #32088 merkucyo

  #32088 merkucyo

  Sziasztok!

  A következő problémára keresem a megoldást:

  Van nekem 10 excel táblám külön-külön lementve. Mind a 10 ugyan olyan elrendezésű, de különböző az adatok értéke. Ha beírogatom a számomra fontos képleteket az egyik excel táblába van arra mód, hogy a többibe egyszerű úton-módon tudjam beilleszteni a képleteket és ne kelljen újraírogatnom őket a maradék 9 alkalommal?

  Válaszokat előre is köszönöm

  Az elsőben, ahova már beírtad a képleteket, másold be a makrót egy modulba.
  A többi 9 fájlt másold át egy új mappába, legyen ez a "C:\aaa\"

  A WS.Range("B10:H100").Copy FN.Sheets("Munka1").Range("B10") sorban írd át a másolandó képletek helyét, ami itt a B10:H100 tartomány.
  A sor első fele WS.Range("B10:H100").Copy adja a másolandó tartományt, a második rész, FN.Sheets("Munka1").Range("B10") pedig azt, hogy a megnyitott füzetben hova másoljon. Itt csak a terület bal felső cellájának a helyét kell megadni.

  A makró egyenként megnyitja a 9 fájlt, elvégzi a másolást, menti és bezárja a megnyitott füzetet.
  Ha rendesen összejött, visszamásolhatod a 9 fájlt az eredeti helyükre.

  Sub Masolas()
Dim FN, WS As Worksheet
Const utvonal = "C:\aaa\"
Set WS = ActiveWorkbook.Sheets("Munka1")

Application.ScreenUpdating = False 'Képernyőfrissítés letiltása
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xlsx")
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN 'megnyitja a fájlt
WS.Range("B10:H100").Copy FN.Sheets("Munka1").Range("B10") 'másolás az elsőből a megnyitottba
Workbooks(FN).Save 'megnyitott mentése
Workbooks(FN).Close 'megnyitott bezárása
End If
FN = Dir()
Loop Until FN = ""
Application.ScreenUpdating = True 'Képernyőfrissítés engedélyezése
End Sub

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