Tidstagning til løb
Hej Eksperter.Jeg er ved at arrangere et løb i en lille by og vil i den forbindelse bruge Excel til at holde styr på tiden.
Jeg har fundet en makro i et andet spørgsmål her inde: http://www.eksperten.dk/spm/437527#reply_7376225
Option Explicit
Sub TagTid()
Dim rCell As Range
Dim bFound As Boolean
Dim iRowNo As Integer
Dim iRytNo As Integer
iRytNo = InputBox("Angiv rytter nr. ")
For Each rCell In Range("A6:A25")
If rCell.Value = "" Then Exit For
If rCell.Value = iRytNo Then
bFound = True
iRowNo = rCell.Row
Exit For
End If
Next rCell
If bFound = True Then
Range(Cells(iRowNo, 1), Cells(iRowNo, 1)).Select
ActiveCell.End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = Format(Now, "HH:MM:SS")
End If
End Sub
Det skal lige nævnes at jeg ingen forstand har på at programmere, men bare har hugget makroen :-)
Men den passer lige til det jeg skal lave, på nær en ting.
Der bliver tre ruter man kan løbe og i mit ark ville jeg gerne have de tre ruter med folks navne og nummer stående ved siden af hinanden.
Men så kan jeg ikke få makroen til at fungere.
For i denne linie:
For Each rCell In Range("A6:A25")
Angives det hvor løbernes start nummer skal stå. Jeg kan godt finde ud af at flytter den "Range" til et andet sted feks. C6:C50, men hvis jeg nu gerne vil have makroen til at "se" i flere forskellige rækker feks. C6:C50, D6:D50 og G6:G50, hvordan skal det så skrives i makroen?
Håber det er bare lidt forståeligt hvad jeg spørger om, ellers uddyber jeg gerne :-)
Allan