I think this will be a simple answer, least I hope, but I am drawing a blank at the moment! With this very simple code below, how do I prevent this from occurring in a certain range of cells? I've tried "If Not Intersect(Target, Range("sheet1UV")) Is Nothing Then" but it did not work. Thanks for any help!
Private Sub CommandButton1_Click() Application.EnableEvents = False For Each c In Selection c.Activate ActiveCell.Formula = "P" Next c Application.EnableEvents = True End Sub
Hi, thecdnmole,
maybe like this (although I would like to have more control over the range the code has to work on as using Selection):
Ciao,Private Sub CommandButton1_Click() Dim c As Range If ActiveSheet.Name <> "Sheet1" Then Exit Sub Application.EnableEvents = False For Each c In Selection If Not Intersect(c, Range("UV:UV")) Is Nothing Then c.Value = "P" Next c Application.EnableEvents = True End Sub
Holger
Use Code-Tags for showing your code: [code] Your Code here [/code]
Please mark your question Solved if there has been offered a solution that works fine for you
Are you able to use code to determine what cells to change, or do you have to use selection?
Thanks HaHoBe! I tweaked it a bit to suit and works great!
Davesexcel, I need to use selection, as the person would select one or more cells and then click on the commandbutton to input the P.Private Sub CommandButton1_Click() Application.EnableEvents = False For Each c In Selection If Intersect(c, Range("sheet1UV")) Is Nothing Then c.Value = "P" Next c Application.EnableEvents = True End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks