VBA Macro help needed

Question

0.00/5 (No votes)

See more:

Hello I hope this will make sense,

I have found this script that if a letter or number is in one cell it will input a value in the another cell

I was wondering how I could add multiple rules to this.At the moment if C or 9 is entered in a cell then it produces the sentence "word here will show up"

I want it to show up in a different cell not the adjacent one, and also I want to be able to add different letter to the list to output different values.

EG

Cell Has This in Column A Output when Macro runs in Column E

C or 9 "word here will show up"

HELLO OR GOODBYE "Word1"

Pink or Yellow "Word2"

Etc, Any help would be great and appreciated as I am very new to VB and Macros

Sub CheckValues()
    Application.ScreenUpdating = False
    With Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 1)
        .Formula = "=IF(MIN(FIND({""C"",9},A2&""C9""))<=LEN(A2),""word here will show up"","""")"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

Posted 22-Jul-15 9:20am

Member 11855962

Add a Solution

Comments

RedDk 22-Jul-15 16:06pm

Well, thanks for being honest. This script you've obtained is a touch on the funky side. I can run it. But not without resolving scope issues using Worksheets().Range( ... etc). That said, perhaps the issue you have is with what the meaning of each of the functions in the .FORMULA() clause actually mean? In this case I'd select "Excel Help" and look up each in VBA Lang Ref.

Tip:

Sub formulaCreate4()
Worksheets("Sheet6").Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = "=IF(MIN(FIND({""C"",9,""log""},A2&""C9log""))<=LEN(A2),""* * * * *"","""")"
End Sub

Put this in a module and F8 through it to see what the macro modification does.

Hope it helps.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Patrice T · Answer 1 · 2015-07-22T14:41:00

replace

VB

...Offset(, 1)

with

VB

...Offset(, 4)

to get output in column E

For your multiple condition:
your need to build a formula that match your needs.
Actual formula is in the form:

IF(Condition1, Answer1, empty)

for 3 conditions you need something like:

IF(Condition1, Answer1, IF(Condition2, Answer2, IF(Condition3, Answer3, empty)))