Ú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
  
  

• #46615 Senton csendes tag Fferi50 #46612

  Új Válasz 2021-05-07 20:32:02 #46615

  Ú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

  válasz Fferi50 #46612 üzenetére

  Köszönöm neked is legalább fogom tudni ezt is. Mint mondtam kb 1 hete kezdtem a táblázatot legyártani a semmiből csak az internet használatával .
  Köszi meg egyszer a segítséget.

• #46614 Senton csendes tag Delila_1 #46613

  Új Válasz 2021-05-07 20:30:57 #46614

  Ú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

  válasz Delila_1 #46613 üzenetére

  Wow very nice! Elegánsan tökéletes . Igen Fkeresre hasonló formába én is gondoltam de nem ált össze.
  Nagyon köszönöm és köszönöm Fferi50-nek is legalább ha lesz valami hasonló akkor tudom azt is használni.
  Köszi nagyon .

• #46611 Senton csendes tag Fferi50 #46609

  Új Válasz 2021-05-07 19:02:11 #46611

  Ú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

  válasz Fferi50 #46609 üzenetére

  Köszönöm ez így önmagában tökéletesen működik ahogy beépítettem a táblázatomban.
  
  Én nem fejtettem ki jól a dolgot és a képet is csak utólag vettem észre hogy nem csatoltam a postomhoz.
  
  Úgy szeretném, hogy amikor kitöltötte ezt az oszlopot akkor ugorjon a következő oszlopra.
  Láttam róla megoldásokat sorra de egyszerűen nem tudtam összehozni, hogy működjön oszlopokra is.
  
  

• #46608 Senton csendes tag

  Új Válasz 2021-05-07 18:27:23 #46608

  Ú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!
  Az adott excel táblázatban szeretnék egy olyan makrót létrehozni ami attól függően tölti ki az oszlopokat, hogy milyen nap van az adott cellában.

  Pl.: Ha "H" van a H6-os cellában akkor az alatta lévő cellákat töltse ki 9-es értékkel és így sorban. A szombatnak és a vasárnapnak is más értéke lenne.
  Csatolom az excel táblázatot is de képként is felteszem.

  Leszögezném borzasztó kezdő vagyok benne amit eddig létrehoztam azt is innen onnan megtanulva készítettem el de ez a feladat már egy kicsit soknak tűnik angol oldalakon sem jutok egyről a kettőre.

  Előre is köszönöm a segítséget.

  https://drive.google.com/file/d/1GEm_ymKeIZWRbN7DdVxPR_Chs94nYNOx/view?usp=sharing
  

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