Clear Contents In VB

[ryderlane]

Hello all!

New to VB and have a question.

I'm trying clear contents in one cell once a drop down is selected. I select a drop down that displays pricing in the the "System Pump" and "VFD Pricing " Cells.
What I'd like it to do is clear just the contents in (VFD Pricing $) once "NO" is selected in another drop down.

Can anyone help?

 

[Logit]

.
Paste in the sheet module :

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ws As Worksheet
    Dim lRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim i As Integer


With ws
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 1 To lRow
        If .Cells(i, 1) = "No" Then
            .Cells(i, 2) = ""
        End If
    Next i
End With
End Sub

	A​	B​
1​	Yes	B1
2​	Yes	B2
3​	Yes	B3
4​	Yes	B4
5​	Yes	B5
6​	Yes	B6
7​	Yes	B7
8​	Yes	B8
9​	Yes	B9
10​	Yes	B10
11​	Yes	B11
12​	Yes	B12

 

[My Aswer Is This]

Assuming you will be entering "No" into column A

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  11/3/2018  1:12:34 AM  EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value = "No" Then Target.Offset(, 1).Value = ""
End If
End Sub

 

[Logit]

.
My Aswer Is This

Very concise and to the point. However, you really should be asleep at 1 am.

 

[My Aswer Is This]

.
My Aswer Is This

Very concise and to the point. However, you really should be asleep at 1 am.

 

[ryderlane]

.
My Aswer Is This

Very concise and to the point. However, you really should be asleep at 1 am.

Thank you

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you

 

[Logit]

.
Thanks !