Invoegen van een rij

[HWV]

Graag zou ik een rij willen invoegen in een bestand.
Als in A1 "12345" staat en in B1 "Voorbeeld" dan moet er een rij ingevoegd worden op A2
Ik heb in een bestand 13 van deze uitzonderingendie ik vooraf wil instellen. In een bestand van 60.000 regels

Kan iemand mij hierbij helpen

Groet HWV

 

[danny147]

Beste HWV

Met VBA moet dit te doen zijn.

Als je een regel invoegt dan wordt de andere volgende regel, waar er een lege rij onder moet komen, veranderd deze wel van cel naam !

Groetjes Danny. :thumb:

 

[snb]

Sub tst()
    If [A1] & [B1] = "12345Voorbeeld" Then [A2].EntireRow.Rows.Insert
End Sub

 

[HWV]

Als A1 anders is

Als A1 en B1 niet A1 en B1 is maar een waarde die ik niet ken.
de ene keer A1 en B1 maar de voldgende keer A89 en B 89 maar telkens verschillend hoe ga ik daar dan mee om

groet HWV

Misschien wat aanvullende informatie op deze vraag.

Bovenstaande van SNB is perfect mits je het cel nummer weet.
Ik weet niet in welke cel '12345voorbeeld' staat in kolom B
Volgens mij moet er een range bepaald worden maar ik weet echt helaas niet hoe dit moet ik hoop dat U mij verder kunt helpen SNB of andere mensen die hier wel verstand van hebben.

Alvast bedankt HWV

 

[HWV]

Met dank aan Finch

sub tst
for i=1 to 1000 'vul hier eindregel in
if cells(i,1)&cells(i,2)="12345Voorbeeld" then
cells(i+1,1).entirerow.rows.insert
end if
next i
end sub