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

• #44201 Darko_addict őstag

  Új Válasz 2020-06-05 20:04:12 #44201

  Ú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

  

  Darko_addict

  őstag

  Sziasztok!

  Office 365 keretében a legfrissebb Excel verziót használom.
  Van egy havi jelenléti ív, amit eddig mindig kinyomtattak 40 lapon, majd kézzel írták fel az emberek nevét rá és húzták ki a hétvégéket, hogy nehogy valaki elrontsa (félreírja). Kb. 30 perc megcsinálni... Csináltam egy Excelt, megszerkesztettem, ahogy elvárják (ők csak fénymásolták, nem volt meg az eredeti...), majd másik munkafüzetbe leírtam az emberek neveit és az elsőbe csináltam egy legördülő listát. Úgy tudom, hogy a legördülő lista alapján úgy tud minden név mellé "saját" jelenlétit csinálni, ha ez makróban van megadva. A makrókhoz semmit nem értek...
  Ezt találtam:
  Sub Iterate_Through_data_Validation()
  Dim dvCell As Range
  Dim inputRange As Range
  Dim c As Range
  
  'Which cell has data validation
  Set dvCell = Worksheets("Munka1").Range("A1")
  'Determine where validation comes from
  Set inputRange = Evaluate(dvCell.Validation.Formula1)
  
  For Each c In inputRange
  dvCell = c.Value
  'add some print page code here
  Next c
  End Sub

  De nem hajlandó nyomtatni. Fórumposztban ez szerepelt angolul (csak hogy autentikus legyen az információ): "You will have to add the print code inside the for/each/next loop". A Print Code-ról semmit nem találtam. Ki tudunk valamit találni közösen?

  Köszi szépen!

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