# Eleganta ideer för att hålla reda på sina växter...
Author: alva03

Någon som har en mall eller exempel på hur man kan typ bokföra vilka arter man har, vilken individ man haft hur länge, kanske med bild...?

Tycker appen planta är lite ewww då man inte ör helt fri med infon man lägger in. :P

## Comment 1
Author: Vixxen

Bra om det fanns nån enkel app!

Kör på olika listor, men det är lite jobb att hålla dem uppdaterade.

## Comment 2
Author: beem

Jag gör anteckningar i ett block. Jag har  även använt excel i datorn många år men det slutade jag med.

## Comment 3
Author: alva03

Testar nu excel... ska se om jag får till på numbers...
![image.png](https://files.ifokus.se/u2/0a621a0299eb73327bf7d85264c61e51/560/image.png)


för ålder:
=IFS(F2<>"", DATEDIF(F2,TODAY(),"Y")&" år, "&DATEDIF(F2,TODAY(),"YM")&" månader", E2<>"", DATEDIF(E2,TODAY(),"Y")&" år, "&DATEDIF(E2,TODAY(),"YM")&" månader", TRUE, "")

Worksheet kåd:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String
    
    ' Change "A:A" to match your specific drop-down column letter
    If Not Intersect(Target, Range("H:H")) Is Nothing Then
        If Target.Cells.Count > 1 Then Exit Sub
        
        On Error GoTo Exitsub
        If Target.Value <> "" Then
            ' 1. Temporarily turn off Excel events to prevent freeze/bugs
            Application.EnableEvents = False
            
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            
            ' 2. If the cell was empty, just add the new value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                ' 3. Check if the item is already in the list
                If InStr(1, ", " & Oldvalue & ", ", ", " & Newvalue & ", ") > 0 Then
                    ' It exists: Remove it
                    Dim temp As String
                    temp = ", " & Oldvalue & ", "
                    temp = Replace(temp, ", " & Newvalue & ", ", ", ")
                    
                    ' Clean up trailing/leading commas and spaces
                    If Left(temp, 2) = ", " Then temp = Mid(temp, 3)
                    If Right(temp, 2) = ", " Then temp = Left(temp, Len(temp) - 2)
                    Target.Value = temp
                Else
                    ' It does not exist: Append it
                    Target.Value = Oldvalue & ", " & Newvalue
                End If
            End If
        End If
    End If

Exitsub:
    ' 4. ALWAYS turn events back on so Excel works normally
    Application.EnableEvents = True
End Sub

## Comment 4
Author: Caeli

Finns färdiga mallar på Etsy som man kan köpa och ladda ner. Sök på "potted plant planner" eller "potted flower journal" tex.

Eller gör en junk journal med egna bilder och texter. Pressade blad/blommor, urklipp, skötselråd osv. Lite mer personligt och originellt.

## Comment 5
Author: alva03

#4: vill ej betala för mallar... men kanske kan göra en egen...