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

• #46629 Senton csendes tag

  Új Válasz 2021-05-09 16:31:36 #46629

  Ú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

  

  Senton

  csendes tag

  Sziasztok!

  Adott egy táblázat, ahol a nevek mellett lévő cellákat "X" értékkel tölti ki a makró. A cella helyzetét ahova az "X"-et kell tennie pedig egy segédtáblázatból veszi.
  
  Az alábbi kód működik viszont így mindegyik névre külön szükséges módosítanom a kódot, az alapján, hogy a név melyik sorban van.
  
  Az lenne a kérdésem, hogy milyen szebb megoldást használhatnék erre.
  
  Alább csatolom a képeket és a kódot.
  
  Előre is köszönöm a segítséget.
  
  Kód:
  Sub SzabaN()
  
  For Each szn In Worksheets("Sheet0").Range("F30:AJ30").Cells
  For Each sznn In Worksheets("Munka2").Range("B3:U3").Cells
  
  Select Case szn.Value
  Case sznn
  ActiveSheet.Range(Cells(8, szn.Column), Cells(8, szn.Column)).Value = "X"
  
  End Select
  
  Next
  Next
  
  For Each szn In Worksheets("Sheet0").Range("F30:AJ30").Cells
  For Each sznn In Worksheets("Munka2").Range("B4:U4").Cells
  
  Select Case szn.Value
  Case sznn
  ActiveSheet.Range(Cells(9, szn.Column), Cells(9, szn.Column)).Value = "X"
  
  End Select
  
  Next
  Next
  
  End Sub
  
  

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