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

[Table="width:, class:head"][tr=bgcolor:#888888][th] [/th][th]

A​

[/th][th]

B​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

1​

[/td][td]Yes[/td][td]B1[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

2​

[/td][td]Yes[/td][td]B2[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

3​

[/td][td]Yes[/td][td]B3[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

4​

[/td][td]Yes[/td][td]B4[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

5​

[/td][td]Yes[/td][td]B5[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

6​

[/td][td]Yes[/td][td]B6[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

7​

[/td][td]Yes[/td][td]B7[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

8​

[/td][td]Yes[/td][td]B8[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

9​

[/td][td]Yes[/td][td]B9[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

10​

[/td][td]Yes[/td][td]B10[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

11​

[/td][td]Yes[/td][td]B11[/td][/tr]


[tr=bgcolor:#FFFFFF][td=bgcolor:#888888]

12​

[/td][td]Yes[/td][td]B12[/td][/tr]
[/table]

 

[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 !