Uren op laten tellen macro

[Gielekes]

Ik zou graag een macro hebben die de cellen in de kolom A vanaf rij 10 optelt met een bepaalde waarde. Deze bepaalde waarde komt uit een invulveld. Is dit mogelijk om aan een macro toe te voegen?

 

[edmoor]

Ja, dat is mogelijk.

 

[Gielekes]

hier bijgaand het excel bestand

 

[jkpieterse]

Geen antwoord op je vraag, maar 1 routine in je code moet worden veranderd want die voegt bij iedere uitvoering een nieuwe gegevensverbinding toe (je hebt er nu al een stuk of 10 of zo). Beter is om de bestaande te gebruiken:

Private Sub Import_CSV(strFile As String)
    Dim ws As Worksheet

    Set ws = ActiveWorkbook.Sheets("blad1")    'set to current worksheet name

    With ws.Range("A10").QueryTable
        .Connection = "TEXT;" & strFile
        .Refresh BackgroundQuery:=False
    End With
    Sheets("blad1").Range("B:T").NumberFormat = "0.00"
    Worksheets("Blad1").Range("A10").AutoFilter
    ThisWorkbook.Worksheets("Blad1").Cells.EntireColumn.AutoFit
    Kill strFile
End Sub