Avatar billede ABraagaard Novice
15. september 2009 - 11:28 Der er 11 kommentarer og
1 løsning

En celle til indtastning, resultat i flere

Hej Experter

Jeg har en opgave med at lave et regneark hvor jeg ved at indtaste en værdi i Eks. celle A2 og trykker enter, skal have værdien over i celle B4. Curseren skal blive i A2 klar til næste indtastning. Næste indtsatning skal så skrives i næste celle "B5".

Kan i hjælpe mig?
Avatar billede lsskaarup Nybegynder
15. september 2009 - 11:42 #1
Skal brugeren så manuelt skifte til B5 eller skal den skifte fra A2 til B5, når værdi er indtastet?
Avatar billede lsskaarup Nybegynder
15. september 2009 - 11:43 #2
Og hvilken værdi skal der vises i B4?
Avatar billede ABraagaard Novice
15. september 2009 - 11:52 #3
Ok, jeg fik hvis ikke forklaret det godt nok, My bad ;o)

Meningen er at man skal indtaste i samme celle, men alle indtastede værdier skal skrives i en kolonne ved siden af.
Således at man gemme de indtastede værdier i kolonnen, men ikke i indtastningscellen.
Avatar billede lsskaarup Nybegynder
15. september 2009 - 12:00 #4
Ahh, okay så forstår jeg... :-)

Umiddelbart vil jeg mene der skal noget kodning til, for jeg kender ikke en metode i Excels front-end der kan gøre sådan.

Desværre har jeg ikke så meget tid i øjeblikket til at kode, men jeg skal da se, om jeg ikke kan presse det ind et eller andet sted.
Avatar billede supertekst Ekspert
15. september 2009 - 13:52 #5
Sker indtastningen sammenhængende eller??
Avatar billede ABraagaard Novice
15. september 2009 - 13:58 #6
Hej Supertekst

Indtastningen sker ved at man taster en værdi, trykker enter og indtaster en ny værdi i samme felt, som så skal gemmen cellen under den senest indtastede værdi.
Avatar billede supertekst Ekspert
15. september 2009 - 14:06 #7
Hej A Braagaard

Ja - det er forstået - er i gang med koden det egentlige spørgsmål er overflødigt - da jeg leder frem til første ledige celle i kolone B.

mvh
Supertekst
P Braagaard
Avatar billede supertekst Ekspert
15. september 2009 - 14:18 #8
Koden anbringes i relevante ark (Højreklik - Vis programkode)

Const tastecelle = "$A$2"
Const resultatKolonne = "B"
Const resultatRække1 = 4
Dim antal As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = tastecelle And Target.Value <> "" Then
        Range(resultatKolonne & FindFørsteResultatRække) = Target.Value
        Range(tastecelle).Select
        ActiveCell.ClearContents
    End If
End Sub
Private Function FindFørsteResultatRække() As String
Dim række As Long
    For række = resultatRække1 To 65000
        If Range(resultatKolonne & CStr(række)) = "" Then
            FindFørsteResultatRække = række
            Exit Function
        End If
    Next række
End Function
Avatar billede ABraagaard Novice
15. september 2009 - 14:42 #9
Hej P Braagaard


Tusind tak for hjælp ;o)

Det virker bare perfekt.

Mange hilsner A Braagaard
Avatar billede supertekst Ekspert
15. september 2009 - 14:51 #10
Selv tak...

Så får du et svar, som du kan accepterer.

(Husk at SVAR ikke skal anvendes af opgavestilleren men kun af de, der beSVARER - derfor blot Kommentar i denne situation) :-)
Avatar billede ABraagaard Novice
15. september 2009 - 15:02 #11
Point taken, det vil jeg skrive mig bag øret.

Endnu engang tusind tak for hjælpen.
Avatar billede supertekst Ekspert
15. september 2009 - 18:17 #12
En fornøjelse...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel-kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





White paper
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis