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

• #39661 wednesday őstag Delila_1 #39660

  Új Válasz 2018-11-26 10:39:01 #39661

  Ú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

  

  wednesday

  őstag

  válasz Delila_1 #39660 üzenetére

  Köszi.

  Ugye az a probléma, hogy a Sheets neve is generálódik. A nevet és dátumot kapja meg.

  If wsOut Is Nothing Then
  'hozzon létre egy új lapot a formanyomtatvány alapján és nevezze át
  Set wsOut = Sheets.Add
  wsOut.Move after:=Sheets(Data)
  wsOut.Name = lookup_name & "_" & Format(lookup_date, "YYYYMMDD")
  End If

  wsForm.Range("A1100").Copy wsOut.Range("A1")
  wsOut.Range("D8").Validation.Delete
  wsOut.Range("D15").Validation.Delete

  Ez a teljes makró. Nem tudom ezt hova tehetném be. Ehhez sajnos amatőr vagyok.

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