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

• #27430 m.zmrzlina senior tag Fferi50 #27429

  Új Válasz 2015-06-18 21:45:01 #27430

  Ú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 Fferi50 #27429 üzenetére

  Így jön létre a két változó:

  str_Teljesnev = Application.GetOpenFilename
  If str_Teljesnev = "False" Then
  Exit Sub
  ElseIf Mid(str_Teljesnev, (InStrRev(str_Teljesnev, "\") + 1), 9) <> Left(str_Szolgnev, 9) Then
  MsgBox "Rossz fájlt választottál!"
  Exit Sub
  Else
  Set wb_Temp = Workbooks.Open(str_Teljesnev)
  End If
  
  wb_Temp.Worksheets(1).Name = str_MunkalapA
  wb_Temp.Worksheets(2).Name = str_MunkalapD
  
  'kabelo munkalapot létrehoz
  wb_Temp.Worksheets(str_MunkalapA).Copy before:=wb_Temp.Worksheets(1)
  wb_Temp.Worksheets(1).Name = "kabelo"
  Set ws_Kabelo = wb_Temp.Worksheets("kabelo")

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