Ik ben beginnend met het werken met VBA.
Ik heb een bestand waarin gegevens importeer vanuit een txt-bestand. Het aantal regels dat geïmporteerd wordt varieert iedere keer.
Aan deze regels moet in kolom A en kolom B d.m.v. formules gegevens worden toegevoegd. Kolom C kan als bepalend worden gezien voor het aantal regels in het bereik.
Na zoeken hier in het forum ben ik gekomen tot de volgende code :
Echter nu wordt de formule alleen in regel 2 toegevoegd en niet in de overige regels.
Wat doe ik fout ?
Ik heb een bestand waarin gegevens importeer vanuit een txt-bestand. Het aantal regels dat geïmporteerd wordt varieert iedere keer.
Aan deze regels moet in kolom A en kolom B d.m.v. formules gegevens worden toegevoegd. Kolom C kan als bepalend worden gezien voor het aantal regels in het bereik.
Na zoeken hier in het forum ben ik gekomen tot de volgende code :
Code:
Range("A1").Select
ActiveCell.FormulaR1C1 = "=afschriftnr+1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""B"",RC[-1],""-"",ROW(RC[-1]))"
[COLOR="#FF0000"]Range("A1:B1").AutoFill Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row), xlFillDefault[/COLOR]
Columns("A:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Echter nu wordt de formule alleen in regel 2 toegevoegd en niet in de overige regels.
Wat doe ik fout ?