Dezelfde If ..End if voor meerdere cellen in een enkele kolom toepassen

[dvsteen]

Ik wil graag onderstaande formule toepassen voor alle cellen in kolom A.
Als ik 1 cel selecteer dan doet de formule het wel.. Echter als ik meerdere selecteer dan lukt het niet?
Heb ook gekeken naar een Loop functie.. maar dat heeft ook geen effect

Ik ben niet zo bekend met VBA dus ik kan elke hulp gebruiken.

If InStr(ActiveCell, "/20") Then
Selection.Replace What:="              ", _
Replacement:= _
"                                                                                                                 " _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
End If

Bij voorbaat dank!

 

[Niels28]

Het kan zo, maar waarom ga je in hemelsnaam 14 spaties vervangen door 113 spaties?

For Each cl In Range("A:A").SpecialCells(2)
If InStr(cl.Value, "/20") Then
cl.Replace What:="              ", Replacement:="                                                                                                                 " _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
End If
Next

Niels

 

[dvsteen]

Bedankt voor je reactie Niels.

Ik wil een txt-bestand inlezen met zo'n 4000 regels, deze komen in kolom a terecht. Niet op elke regel staat dezelfde informatie dus wil ik deze informatie scheiden om kolommen te kunnen maken, vandaar de spaties.
In dit voorbeeld wil ik een regel die een datum bezit (/20) opschuiven naar rechts.

Ik heb de code ingevuld in mijn bestand en helaas werkt hij echter niet. Enig idee waarom dit kan?

Bij voorbaat dank

 

[dvsteen]

Toch een fout bij mijn kant! Het is nu wel gelukt!

Hartelijk bedankt en hopelijk mag ik je in de toekomst nog een keer raadplegen!

Met vriendelijke groeten,

 

[snb]

sub snb()
 For Each cl In columns(1).SpecialCells(2)
   If InStr(cl.Value, "/20") Then cl.replace space(14),space(113)
 Next
End Sub

 

[dvsteen]

De volgende vraag is gekomen.

Ik heb nu als voorbeeld de volgende situatie

Kolom C      Kolom D
A               1
                 2
                 3
B               1
                 2

Hoe krijg ik nu in Kolom C dat alles onder A ook A wordt en onder B ook B etc.

Bij voorbaat dank voor de hulp!

 

[snb]

Plaats svp een voorbeeldbestand.

 

[dvsteen]

Bekijk bijlage Vb.xls
Toegevoegd een voorbeeld bestand.
Ik wil graag Werkorder en Regel kunnen filteren en met name als ik dan werkorder filter op 1 niet alleen regel 10 zie en niet de overige regels onder die order.

Bij voorbaat dank!

 

[snb]

Ik kan er geen touw aan vastknopen. Probeer eens een duidleijke vraag te stellen aan de hand van je werkblad; geef aan wlek reultaat je veracht in het werkblad.
En volgens mij is dit een andere vraag. Dat hoort in een nieuwe draad thuis.