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

• #18136 m.zmrzlina senior tag lapa #18133

  Új Válasz 2013-05-25 08:31:39 #18136

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lapa #18133 üzenetére

  Itt egy lehetséges megoldás makróval:

  Sub legnagyobb_hol()
  
  For Each cella In Selection.Cells
  datum = cella.Value
  
  For Each cella_1 In Selection.Cells
  If cella_1.Value = datum And cella_1.Offset(0, -1).Value > temp Then
  legnagyobb_sor = cella_1.Row
  temp = cella_1.Offset(0, -1).Value
  End If
  Next
  
  For Each cella_2 In Selection.Cells
  If cella_2.Value = datum Then
  cella_2.Offset(0, 1).Value = temp
  End If
  Next
  
  temp = 0
  Next
  
  End Sub

  "A" oszlopban vannak az értékek, "B" oszlopban a hozzájuk tartozó dátumok, "C"-ben pedig, hogy az adott dátumnál mi a legnagyobb érték.
  

  Úgy indulsz, hogy kijelölöd a dátumokat tartalmazó cellákat az elsőtől az utolsóig. Ha a te munkalapod szerkezete nem ilyen (amire jó esély van ) akkor tegyél be egy képet és hozzáfaragjuk a makrót.

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