Beste Helpmij helpers,
Ik heb een macro (zie hieronder en in het excel bestand) gemaakt waarbij ik vanuit een CVS bestanden (zie twee voorbeelden als attachment) het gewicht, leeftijd en geslacht van de desbetreffende hardloper haal.
Vervolgens wil ik deze in de laatste 3 kolommen (EB, EC & ED) plaatsen.
Zoals ik 'm nu geschreven heb gaat dit goed voor de eerste hardloper, maar bij n= 2 of groter gaat het mis.
Ik heb al heel veel varianten geprobeerd, maar helaas kom ik er niet uit. Kan iemand me "leren" hoe ik dit kan oplossen?
Bedankt vast voor de moeite/reactie,
Groet Maarten
Ik heb een macro (zie hieronder en in het excel bestand) gemaakt waarbij ik vanuit een CVS bestanden (zie twee voorbeelden als attachment) het gewicht, leeftijd en geslacht van de desbetreffende hardloper haal.
Vervolgens wil ik deze in de laatste 3 kolommen (EB, EC & ED) plaatsen.
Zoals ik 'm nu geschreven heb gaat dit goed voor de eerste hardloper, maar bij n= 2 of groter gaat het mis.
Ik heb al heel veel varianten geprobeerd, maar helaas kom ik er niet uit. Kan iemand me "leren" hoe ik dit kan oplossen?
Bedankt vast voor de moeite/reactie,
Groet Maarten
Code:
Sub InlezenGewichtLeeftijdGeslacht()
c00 = "/Users/mvdworp/Documents/Zebris/Onderzoek/Hardloper"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
t = Application.InputBox("Voor hoeveel hardlopers wil je de gegevens bewerken?", , , , , , , 1)
If IsNumeric(t) Then
For n = 1 To t
Filename1 = c00 & n & "/Data1/patient-and-record-info.csv"
With Workbooks.Open(Filename1)
Dim Age As Integer
Datum = Date
Weight = Range("N2").Value
Birth = Range("E2").Value
Age = (Datum - Birth) / 365.25
Gender = Range("D2").Value
.Close
End With
'Leeftijd:
With ThisWorkbook.Sheets("DATATOTAAL").Cells(n + 1, Columns.Count).End(xlToLeft).Offset(, 1)
With .Rows(n)
.Value = Age
End With
End With
'Geslacht:
With ThisWorkbook.Sheets("DATATOTAAL").Cells(n + 1, Columns.Count).End(xlToLeft).Offset(, 1)
With .Rows(n)
.Value = Gender
End With
End With
'Gewicht:
With ThisWorkbook.Sheets("DATATOTAAL").Cells(n + 1, Columns.Count).End(xlToLeft).Offset(, 1)
With .Rows(n)
.Value = Weight
End With
End With
Next n
End If
End Sub