Ongelmani on varmastikin jo loppuun kaluttu, mutta kysyn siltikin..
Eli, taulukossa mulla on ensimmäisellä rivillä sarakkeissa B1-S1 kellon ajat 6:00..7:00..8:00.............23:00 asti. A -sarakkeessa on hlö nimet A2-A21.
Idea on, että solualueelle: B2-S21 tulee henkilöiden nimiä (varauksia) siten, ettei vahingossakaan millekään sarakkeelle tule kenenkään henkilön nimi tuplasti tai peräti useimmin.
Löytyykö valmista VBA -koodia?
Eli, taulukossa mulla on ensimmäisellä rivillä sarakkeissa B1-S1 kellon ajat 6:00..7:00..8:00.............23:00 asti. A -sarakkeessa on hlö nimet A2-A21.
Idea on, että solualueelle: B2-S21 tulee henkilöiden nimiä (varauksia) siten, ettei vahingossakaan millekään sarakkeelle tule kenenkään henkilön nimi tuplasti tai peräti useimmin.
Löytyykö valmista VBA -koodia?
Vastaukset 3
Vanhimmat
tämä löytyi
Uniikit
Soluun H1 ehdollinen muotoilukaava
=Uniikit(H2:H30)29
ja moduuliin käyttäjän funktio
Function Uniikit(Alue As Range) As Long
Dim solu As Range
Dim Ainutkertainen As New Collection
Application.Volatile
On Error Resume Next
For Each solu In Alue
Ainutkertainen.Add solu.Value, CStr(solu.Value)
Next solu
On Error GoTo 0
Uniikit = Ainutkertainen.Count
End Function
Miks en saa toimimaan?
Excel 2010 löytyy "Ehdollinen muotoilu" > Solujen korostussäännöt" > "Arvojen kaksoiskappaleet".
Toiminto "värittää" kaksoiskappaleet haluamallasi tavalla heti jos niitä ilmestyy.
Ei tahdo millään onnistua.
Ehd.muot. valittu esim vihreä vaihtoehto.. Tuo makro tallennettu moduuliin.
Solussa H1 koko ajan vihreä tekstillä: "TOSI"?!
Nyt oon hieman neuvoton.