Indsætte brugernavn ved ændring i række i excel (VBA)

Kopier nedenstående og sæt ind i arket, håber det er dét du søger ellers må du sige til :)



Sub Worksheet_Change(ByVal Target As Range)

'KR DESIGN -Sustainable Solutions

'Makroen kører ikke super godt fordi den kører for række 6
'og du samtidig ændrer noget i række 6, hvis du ændrer
'Range("S6") til ALT andet end noget i række 6, er det bedre!
               
    Dim MinRække As Range
    Dim IntersectRange As Range
   
    Set MinRække = Rows(6) 'her kan du ændre rækkenummer
    Set IntersectRange = Intersect(Target, MinRække)
   
    If IntersectRange Is Nothing Then
        'intet sker, ellers:
   
    Else
        'indsætter det efter lighedstegnet i nedenstående
        'linje når du ændrer/ sletter celleværdi i række 6
       
       
        DitValg = "Du ændrede en celle i række 6"
        'denne linje kan du ændre til Application.UserName
       
        Range("S6") = DitValg
       
   
    End If

End Sub

Hvis du kan bruge ovenstående kan du smide point her :)

Mange tak for svaret, det løste mit problem, men kan der laves en snedighed så den kan gøre det udfor alle linjer i et ark, uden at man skal skrive alle linje numrene ind?

Jeg har siddet et par timer nu her, orker ik mere lige nu men jeg har en løsning til dig i aften! Der er lige nogle "småting" jeg skal have til at fungere, når det virker håber jeg du gir et point eller 2 :)

Jeg har faktisk lavet en løsning til dig men den kan rent programmeringsmæssigt godt forfines... Men jeg har noget du nok kan bruge, hvad siger du til det? :)

Det vil jeg meget gerne se, jeg skal self nok smide point efter dig, kan man give flere point til tråden eller skal jeg oprette et nyt emne?