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

• #29520 sztanozs veterán TrollBalint #29515

  Új Válasz 2015-11-17 12:25:22 #29520

  Ú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

  

  sztanozs

  veterán

  válasz TrollBalint #29515 üzenetére

  sumifs szerintem a megoldás - amúgy miért gond az 52* lemásolás? megírod egyszer, és lehúzod az 52. sorig (sőt, ha több lapot kijelölsz egyszerre, akkor az összes lapon odamásolja a függvényt)

• #29517 Delila_1 veterán TrollBalint #29515

  Új Válasz 2015-11-17 11:49:22 #29517

  Ú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

  

  Delila_1

  veterán

  válasz TrollBalint #29515 üzenetére

  Még annyit, hogy az emberek lapjain mindenhol van címsor.

• #29516 Delila_1 veterán TrollBalint #29515

  Új Válasz 2015-11-17 11:42:51 #29516

  Ú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

  

  Delila_1

  veterán

  válasz TrollBalint #29515 üzenetére

  Nem írtad meg az adatok pontos elhelyezkedését, nem vetted figyelembe a Téma összefoglalóban leírtakat. Ezért úgy írtam egy makrót a megoldáshoz, ahogy elképzeltem, majd átírod.

  Az első lap neve Adatok, ennek az A oszlopában vannak a tantárgyak, a B-ben a hozzá tartozó értékek.
  A többi lap az egyes emberek adatait tartalmazza. Az A oszlopban választod ki az I. héthez tartozó tantárgyakat, a B-ben a II. hetit, az AZ-ben az 52. hetit.

  Az összes pontszám mindegyik lapon a BA1 cellában jelenik meg a makró futtatása után.

  Sub OsszesPont()
  Dim lap As Integer, ter As Range, CV As Range, pontok As Double
  
  For lap = 2 To Sheets.Count
  Set ter = Sheets(lap).Range("A1").CurrentRegion.Offset(1, 0)
  pontok = 0
  For Each CV In ter
  If CV > 0 Then
  pontok = pontok + Application.WorksheetFunction.VLookup(CV.Value, Sheets("Adatok").Range("A:B"), 2, 0)
  End If
  Next
  Sheets(lap).Range("BA1") = pontok
  Next
  End Sub

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