Tekst vervangen

[jammi]

Beste,

Ik heb een vraag omtrent het wijzigen van tekst.
Ik heb een kolom F2 tm F48 waar dmv een dropdown een 4 tal mogelijkheden geselecteerd kunnen worden.
Deze wil ik kunnen resetten, dus dat de gewijzigde waarde in de onbeveiligde cellen weer terug naar "NO" gereset wordt

Dus het gaat om de onbeveiligde cellen in F2 tm F48

Alvast bedankt

 

[JEC.]

Bvb

Sub jec()
[F2:F48] = "NO"
End Sub

 

[jammi]

De "NO" mag alleen worden ingevuld als de Cel niet beveiligd is.

Het is dus niet de hele reeks F2 tm F48

 

[JEC.]

Is je werkblad beveiligd?
Dan moet je er even een activesheet.unprotect voor zetten en een activesheet.protect onder zetten.

Sub jec()
 With Application
  .FindFormat.Clear
  .FindFormat.Locked = False
   Range("F2:F48").Replace "", "NO", SearchFormat:=True, ReplaceFormat:=False
  .FindFormat.Clear
 End With
End Sub

 

[jammi]

Bedankt alweer, deze werkt prima.

:thumb: