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

• #21069 alfa20 senior tag

  Új Válasz 2014-03-24 10:10:23 #21069

  Ú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

  

  alfa20

  senior tag

  Sziasztok,

  Van egy makróm ami magában szépen működik, de szeretném egy UserFrom-ba tenni az űrlap részét, az UserFrom kész van a működő makrót is áthelyeztem, viszont rögtön az elején el is akadtam, mert az alábbi résznél hibára fut:
  Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
  forras_nev = ActiveWorkbook.Name
  A forras_nev nem tetszik neki, pedig az nagyon kellene, mert a fülnév minden nap változik, ez miatt viszont fontos lenne egy váltózóban tárolni a további képlet hivatkozások miatt (és persze mind a 6 táblában vannak fülnevek amiket szintén tárolni kellene)).

  A makró eleje így néz ki most:
  Sub xy_rnd()
  Dim forras_allnev As Worksheet, keszlet_allnev As Worksheet, _
  ab_allnev As Worksheet, felt_allnev As Worksheet, kert_allnev As Worksheet
  
  forras_allnev = UserForm1.Label1.Caption
  keszlet_allnev = UserForm1.Label2.Caption
  ab_allnev = UserForm1.Label3.Caption
  felt_allnev = UserForm1.Label4.Caption
  kert_allnev = UserForm1.Label5.Caption
  Unload UserForm1
  
  Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
  forras_nev = ActiveWorkbook.Name
  forras_fulnev = ActiveSheet.Name
  
  Workbooks.Open Filename:=forras_allnev
  Rows("1:1").Select
  Selection.Delete Shift:=xlUp
  Rows("2:2").Select
  Selection.Delete Shift:=xlUp
  Columns("A:A").Select
  Selection.Delete Shift:=xlToLeft
  
  Range("A1:AA1").Value = Array("1", "2", "3", "4", "5", _
  "6", "7", "8", "9", "10", "11", "12", "13", "14", _
  "15", "16", "17", "18", "19", _
  "20", "21", "22", "23", "24", "25", "26", "27")

  eredetiben meg így nézett ki, ami működik is:
  Sub xy_rnd()
  forras_allnev = Range("c3").Value
  keszlet_allnev = Range("c4").Value
  ab_allnev = Range("c5").Value
  felt_allnev = Range("c6").Value
  kert_allnev = Range("c7").Value
  aktnev = ActiveWorkbook.Name
  
  Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
  forras_nev = ActiveWorkbook.Name
  forras_fulnev = ActiveSheet.Name
  
  stb...

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