Run VBA if cell C21 contains ANY data

S

surkdidat

Well-known Member
Joined
Oct 1, 2011
Messages
594
Office Version
  1. 365
Please can someone help. I need VBA coding to automatically run coding in my sheet when ANY value is entered into Cell C21. If it blank, then I don't want the code attached to the worksheet to run at all

Many thanks
 

Excel Facts

Show numbers in thousands?
Use a custom number format of #,##0,K. Each comma after the final 0 will divide the displayed number by another thousand
Sort by date Sort by votes
Right-click on the sheet tab name at the bottom of the screen that you want to apply this to, and enter the following code in the VB Editor Window:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C21" And Target <> "" Then
    '   Run your code here
    End If
End Sub
Put or call your code in the "Run your code here" section.
 
Upvote 0
Thank you. I have the below code - sheet is set to Workbook_SheetChange, but it will NOT run when C21 is populated - any ideas please?

Code: 
[FONT=Calibri][SIZE=3][COLOR=#000000]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target AsRange)[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]If Target.Address(0, 0) = "C21" And Target <>"" Then[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]ActiveWorkbook.Unprotect[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]ActiveSheet.Unprotect[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    Sheets("names").Visible = True[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] Sheets("names").Select[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]     Range("A1").Select[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    Range(Selection,Selection.End(xlToRight)).Select[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    Range(Selection,Selection.End(xlDown)).Select[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWorkbook.Worksheets("names").Sort.SortFields.CLEAR[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWorkbook.Worksheets("names").Sort.SortFields.AddKey:=Range("E1:E59"), _[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        SortOn:=xlSortOnValues,Order:=xlAscending, DataOption:=xlSortNormal[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWorkbook.Worksheets("names").Sort.SortFields.AddKey:=Range("G1:G59"), _[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        SortOn:=xlSortOnValues,Order:=xlAscending, DataOption:=xlSortNormal[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    WithActiveWorkbook.Worksheets("names").Sort[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .SetRangeRange("A1:H59")[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .Header = xlGuess[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .MatchCase = False[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .Orientation =xlTopToBottom[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .SortMethod = xlPinYin[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]        .Apply[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    End With[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    Sheets("newmultirate").Select[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWindow.SelectedSheets.Visible = False[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  Sheets("newmultirate").Select[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] ActiveSheet.ProtectDrawingObjects:=True, Contents:=True, Scenarios:=True[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  ActiveWorkbook.ProtectStructure:=True, Windows:=False[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  End If[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  [/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT]
Joe4 said:
Right-click on the sheet tab name at the bottom of the screen that you want to apply this to, and enter the following code in the VB Editor Window:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C21" And Target <> "" Then
    '   Run your code here
    End If
End Sub
Put or call your code in the "Run your code here" section.
Click to expand...
 
Upvote 0
You need a space between "As" and "Range" in this line:
Code: 
[FONT=Calibri][SIZE=3][COLOR=#000000]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target [/COLOR][COLOR=#ff0000]AsRange[/COLOR][COLOR=#000000])[/COLOR][/SIZE][/FONT]
Also, which module have you placed this code in?
The "Workbook_SheetChange" procedure needs to be in the "ThisWorkbook" module or it won't work.
 
Upvote 0
Thank you for this. I had inadvertently taken the code out to check something else in the spreadsheet (as I also have code to hide the tabs/formula bars/headings, scroll bars etc when run, and put this on sheet3 and my other code in "This Workbook"

Joe4 said:
You need a space between "As" and "Range" in this line:
Code: 
[FONT=Calibri][SIZE=3][COLOR=#000000]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target [/COLOR][COLOR=#ff0000]AsRange[/COLOR][COLOR=#000000])[/COLOR][/SIZE][/FONT]
Also, which module have you placed this code in?
The "Workbook_SheetChange" procedure needs to be in the "ThisWorkbook" module or it won't work.
Click to expand...
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Solved
Refining my code?
2
Replies
16
Views
482
Joe4
Joe4
J
  • Question Question
VBA Program not working to merge cells
Replies
1
Views
446
Joe4
Joe4
L
  • Solved
Lookup and retrieve value based on table code (2)
Replies
3
Views
430
Peter_SSs
Peter_SSs
OldSwimmer1650
  • Solved
Screen & Cursor Position after VBA Code Run
Replies
5
Views
302
Peter_SSs
Peter_SSs
J
  • Question Question
Transferring VBA code to another cell
2 3
Replies
20
Views
1K
Joek88
J

Forum statistics

Threads
1,223,922
Messages
6,175,382
Members
452,639
Latest member
RMH2024

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top