Rij selecteren met if then

[HWV]

Sub AlsGelijkIsAan()
For i = 1 To 60000 'vul hier eindregel in
If Cells(i) = "Mnd" Then
Cells(i).Select.Activate.Row
End If
Next i
End Sub

Hoi wie kan mij helpen met het volgende.
Als een cel gelijk is aan " mnd" dan...
dat is wat ik wil bereiken .

Dus de cel waar "mnd"in staat, de gehele rij celecteren en dan deze cel leeg maken. Zodat ik enkel maar in de gevonden cel "mnd"een nieuwe naam kan invoeren.
Ik loop vast.;(

Groet HWV

 

[Cobbe]

Ik weet niet echt wat je wil maar deze selecteert de eerste cel met de inhoud "Mnd" :

Sub AlsGelijkIsAan()
For i = 1 To 60000 'vul hier eindregel in
If Cells(i) = "Mnd" Then
Cells(i).Select
End If
Next i
End Sub

 

[HWV]

Cel geselecteerd

Beste,

Bedankt voor je in inbreng.
Ik was inderdaad al zover gekomen dat deze cel geselecteerd wordt.

Ik zoek dus naar het begin van een regel doormiddel te zoeken in A op mnd.
Deze regel moet dan leeg gemaakt worden om in deze regel dan een andere waarde te zetten in kolom A, de rest van de rij blijf nu leeg ( daarom moet de gehele rij leeg gemaakt zijn ) nu zijn de rest van de cellen gevuld die leeg moeten zijn.

Ik hoop dat ik duidelijk genoeg ben geweest, ten opzicht van mijn vraag stelling in vorige.

Groet HWV

 

[Relleboer]

Sub AlsGelijkIsAan()
For i = 1 To 60000 'vul hier eindregel in
If Cells(i) = "Mnd" Then
Cells(i).entirerow.clearcontents
End If
Next i
End Sub

 

[HWV]

Hij maak de cel leeg

Hoi,

Hij maak de cel leeg.
Maar eigenlijk wil ik nu in de legecel dus kolom A iets zetten ,
hoe kom ik nu in die cel waar eerst dus Mnd stond

groet HWV

 

[Wigi]

En wat moet er dan in die cel in kolom A komen?

Is dat telkens hetzelfde of iets verschillend?

Want je gaat wel ALLE rijen met Mnd in een zeer groot bereik leeg maken...

 

[HWV]

uitleg

Ik heb een lijst met artikelnummers.
Nu is de lijst opgebouwd uit eindelijk drie lijsten.

Mnd staat ongeveer halverwege, en moet dus eigenlijk vervangen worden door Maand afsluiting maar de rest van de cel moet leeg gemaakt worden.
Dit moet ik in de scheet ogeveer 3 keer doen.
Wil dit dooriddel van vba doen iv dit meerde malen zal voorkomen

HWV

 

[Wigi]

Dit kan je veel beter doen met Find en FindNext.

Uitgebreide code daarvan staat in de helpfiles, of op dit forum ook al veel keren.

O.a. http://www.helpmij.nl/forum/showthread.php?p=2550066&highlight=findnext#post2550066

 

[Cobbe]

Dus je zoekt enkel in Kolom A?
Dan lukt dit hiermee:

Sub AlsGMnfelijkIsAan()
For i = 1 To range("A65000").end(xlup).row
If Cells(i, 1) = "Mnd" Then
oldcell = Cells(i, 1).Address
Cells(i, 1).EntireRow.Delete
Range(oldcell).Select
End If
Next i
End Sub

Cobbe

 

[HWV]

Het werkt

Bedankt voor de input allemaal

groet HW