Op cellen met bepaalde waarde in range een formule toepassen

Status
Niet open voor verdere reacties.
globe

globe

Verenigingslid
Lid geworden
18 mrt 2001
Berichten
3.584
Goedenmiddag,

Ik maak gebruik van een stukje code waar ik op een range (gehele kolom) een formule toepas:

Code: 
Dim rng As Range
Set rng = Application.InputBox("Selecteer kolom met EAN", Type:=8)
If Not rng Is Nothing Then Set rng = rng.EntireColumn
rng.Select

rng.Formula = "FORMULE"

Nu wordt de formule op de gehele kolom toegepast.

Echter wil ik dat alleen de formule wordt toepast binnen deze range op cellen die de waarde 'TBC" hebben.

Hoe krijg ik dat voor elkaar?
 
Code: 
Sub M_snb()
  For Each it In Application.InputBox("Selecteer kolom met EAN", , , , , , , 8)
     If it = "TBC" Then it.Offset(, 1) = "snb"
  Next
End Sub
 
Laatst bewerkt:
top snb!

Hier kan ik wel weer verder mee.

dank tot zover.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan