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

• #24326 m.zmrzlina senior tag gyu84 #24323

  Új Válasz 2014-11-24 12:22:30 #24326

  Ú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

  

  m.zmrzlina

  senior tag

  válasz gyu84 #24323 üzenetére

  Ez a pár sor át fogja másolni a Munka1 lap A1 cellában megadott nevű munkalap A1:B10 tartományát a Munka1 lap A2 cellában megadott nevű munkalap A1:B10 tartományába

  Sub masol()
  
  Dim strHonnan As String
  Dim strHova As String
  
  strHonnan = ThisWorkbook.Worksheets("Munka1").Range("A1").Value '"Munka2"
  strHova = ThisWorkbook.Worksheets("Munka1").Range("A2").Value '"Munka3"
  
  Worksheets(strHova).Range("A1:B10").Value = Worksheets(strHonnan).Range("A1:B10").Value
  
  End Sub

• #24325 Delila_1 veterán gyu84 #24323

  Új Válasz 2014-11-24 12:11:53 #24325

  Ú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 gyu84 #24323 üzenetére

  A két füzet és a hozzájuk tartozó lapok nevét a B1:B4 tartományba vittem be szövegként.

  Sub másolás()
  Dim WBInnen As String, WSInnen As String
  Dim WBIde As String, WSIde As String
  
  WBInnen = Range("B1") 'füzet neve kiterjesztéssel
  WSInnen = Range("B2") 'lap neve
  WBIde = Range("B3") 'füzet neve kiterjesztéssel
  WSIde = Range("B4") 'lap neve
  
  Workbooks(WBInnen).Sheets(WSInnen).Range("F1:H20").Copy Workbooks(WBIde).Sheets(WSIde).Range("D1")
  End Sub

• #24324 Fferi50 Topikgazda gyu84 #24323

  Új Válasz 2014-11-24 12:10:20 #24324

  Ú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 gyu84 #24323 üzenetére

  Szia!

  Ahol a makróban a forrrás és a cél munkalap neve van, ott az adott cellára kell hivatkozni, ahova a nevet beírtad.
  Pl. sheets("Munka1").range("B1").copy helyett sheets(activesheet.range("A1").value).range("B1").copy

  A másolandó munkalap neve az activesheet A1 cellában van.
  Ugyanígy a cél munkalappal is.

  Ha felteszed a makródat "kamu" nevekkel, akkor még pontosabb választ kaphatsz.

  Üdv.

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