Avatar billede xjln Juniormester
27. februar 2019 - 21:02 Der er 7 kommentarer og
1 løsning

Inputbox der flytter til næste ledige celle

Hejsa, jeg er blevet noget rusten i det med VBA koder kan I måske hjælpe ?

Til et motionsløb havde jeg tænkt en tidstagning i form af en input boks der flytter et løbernummer til næste ledige celle i kolonne A, hvorefter tidspunktet bliver noteret i kolonne B.

Nogen gode ideér ?
27. februar 2019 - 23:42 #1
Jeg forstiller mig noget mere simplet....
Kolonne A LøberNr
Kolonne B Tidsstempel (formateret til hh:mm:ss)

En lille kode på arket
[code]Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Cells(Target.Row, 2) = "" Then
            Cells(Target.Row, 2) = Now()
        End If
    End If
End Sub[/code]

Eksempel 957103
27. februar 2019 - 23:42 #2
glem [code] tags
Avatar billede finb Ekspert
28. februar 2019 - 09:41 #3
Indtast deltager-numrene forud,
brug så Formular,
både til søgning og indtastning.
Avatar billede xjln Juniormester
28. februar 2019 - 15:27 #4
Hej Flemming
Lige det jeg havde brug for - men godt du havde lavet eksemplet så fik jeg det til at virke - TAK.

Kan man på samme måde i kolonne E lave en tæl.hvis funktion af hvor mange gange en person har rundet målstregen (antal gange navnet står i kolonne B) ??
28. februar 2019 - 15:37 #5
tror du ikke en SUM.HVIS kan løse den problematik..?
Avatar billede xjln Juniormester
28. februar 2019 - 16:00 #6
SUM.Hvis, har prøvet lidt men kan ikke rigtig få den til at tælle hvor mange gange eksempelvis Torben står nævnt i kolonne B
Avatar billede xjln Juniormester
28. februar 2019 - 17:43 #7
Hej Flemming

jeg har prøvet at udevide din formel lidt - uden held ;-)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Cells(Target.Row, 3) = "" Then
            Cells(Target.Row, 3) = Now()
           
            Cells(Target.Row, 5).Select
            ActiveCell = "=Count.if(B:B;Cells(Target.Row, 2))"
            '=Countif(B:B;Cells(Target.Row, 2))
        End If
    End If
   
   
End Sub
28. februar 2019 - 18:55 #8
tilføj
Cells(Target.Row, 5).FormulaR1C1 = "=COUNTIF(C[-3],RC[-3])" 
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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