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

• #24501 szix96 csendes tag

  Új Válasz 2014-12-05 18:45:48 #24501

  Ú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

  

  szix96

  csendes tag

  Sziasztok!
  Ki tudnátok segíteni, hogy hogyan tudnám azt meg csináltatni ezzel a makróval, hogy egy szöveg dobozba be írom mondjuk hogy E56 akkor ez a makró ott(abba a cellába írjon be először) kezdje a beillesztését az Excel fájlnak és azt hogy több Excel fájl is bekérhető legyen vele.
  Előre is köszönök mindent!
  Itt a makró:
  Sub fileosszegzo()
  Set mf = ActiveWorkbook
  Set lap = ActiveSheet
  If MsgBox("Akar adatokat beolvasni ?", vbYesNo) = vbYes Then
  fnev = Application.GetOpenFilename()
  If fnev <> False Then
  Workbooks.Open Filename:=fnev ' megnyitás
  Range("A8:E56").Copy
  lap.Range("A56").PasteSpecial 'Beillesztés
  ActiveWindow.Close 'Bezárja
  Range("A2").Select 'Rááll és vége
  End If
  Else
  MsgBox ("Tehát nem akar!")
  End If
  End Sub

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