Print side | Luk vindue

Mangler et stykke kode

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=499
Udskrevet den: 18.Maj.2024 kl. 14:15


Emne: Mangler et stykke kode
Besked fra: kbno
Emne: Mangler et stykke kode
Posteringsdato: 21.Okt.2011 kl. 10:07

Kort beskrivelse:

Jeg ønsker at når man har tastet færdig i række 1 og trykker "Enter" i kolonne "I" at man automatisk
springer til kolonne "B" og samtidig oprettes der et fortløbende ID i kolonne "A"

/uploads/183/mangleliste.xls" rel="nofollow">uploads/183/mangleliste.xls
Hygge - Kim


-------------
Hygge - Kim
Excel 365 DK user



Svar:
Besked fra: Allan
Posteringsdato: 21.Okt.2011 kl. 12:18
Hej Kim,
 
Højreklik på fanen og vælg 'Vis programkode'
 
Sæt denne kodestump ind:
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 AND Target.Row > 1 Then
    Range("B" & Target.Row + 1).Select
    Range("A" & Target.Row + 1).Value = Range("A" & Target.Row) + 1
End If
End Sub
 
Det burde virke
 
//Allan


Besked fra: kbno
Posteringsdato: 24.Okt.2011 kl. 08:11
Hej Allan
 
Endnu engang 10000 tak for hjælpen Clap Thumbs Up
 
Hygge - Kim


-------------
Hygge - Kim
Excel 365 DK user


Besked fra: Allan
Posteringsdato: 24.Okt.2011 kl. 08:37
Velbekomme Kim, fedt at du kunne bruge det.
 
//Allan



Print side | Luk vindue