waarde zoeken en kopiëren (macro)

[Danielle22]

Hallo allemaal,

Ik het ook mogelijk met een macro als er bijvoorbeeld in kolom A het woord “test” voorkomt dat dan op die regel ook in de kolommen B t/m F het woord “niet van toepassing” komt te staan o.i.d?

Alvast heel erg bedankt voor de eventuele reacties.

Groetjes,

Danielle

 

[Roeland035]

Moet het een macro zijn?

Indien het niet een vereiste is dan kan je de volgende formule over de desbetreffende kolommen trekken.
=ALS($A:$A="test";"nvt";"")

 

[Danielle22]

Bedankt voor je reactie.

Het moet inderdaad een macro zijn. Ik kan geen formules kwijt op het blad namelijk.

Groetjes,

Danielle

 

[Roeland035]

Sorry voor de late reactie.

Probeer dit eens:

Sub Check()
Dim i As Long
Dim lastrow As Long

    lastrow = Columns("A:A").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
        For i = 1 To lastrow
          If Cells(i, 1) = "test" Then
                Cells(i, 2).Value = "nvt"
                Cells(i, 3).Value = "nvt"
                Cells(i, 4).Value = "nvt"
                Cells(i, 5).Value = "nvt"
                Cells(i, 6).Value = "nvt"
            End If
        Next
    End Sub

Wanneer moet de macro zich eigenlijk uitvoeren?
Bovenstaande macro werkt indien je hem aan een knop hangt.

 

[VenA]

Ik kan geen formules kwijt op het blad namelijk.

Lijkt mij zeer bijzonder dus een voorbeeldje zou welkom zijn.

 

[Danielle22]

Top heel erg bedankt :thumb:

Werkt perfect.

 

[VenA]

Mooi dat het opgelost is maar ik blijf benieuwd waarom het niet met formules kan. Of beter gesteld

Ik kan geen formules kwijt op het blad namelijk

 

[HSV]

Of:

Sub Check()
Dim cl as range
        For each cl in columns(1).specialcells(2)
            If cl = "test" Then
              cl.offset(,1).resize(,5) = "nvt"
            End If
        Next
    End Sub