If Then macro

[andy-s]

Hi,
I need some help writing a macro and would appreciate if anyone could give me a hint about what to do…

I’m already writing a macro called Copy. Inside this macro, I want to run another macro named Transfer only if cell A1 in Sheet1 contain the letter A. If the cell A1 doesn’t contain any letter at all, or a letter else than A, the macro Transfer should not be run, and the macro called Copy should carry on to the next step.

How should I write this?

Sincerely,
Andy-s

 

[Norie]

Andy-s

Can you post what you have so far?

If Range("A1").Value  = "A" Then
   Transfer
End If

 

[just_jon]

Should the cell be just "A", or simply include "A" in its string?

Should it be limited to matching the case [ caps only ] ?

 

[Joe4]

Here is one way:

    If Not (Application.WorksheetFunction.Substitute(Range("D1"), "A", "") = Range("D1")) Then
        Transfer
    End If

This will check to see if "A" occurs anywhere where in that cell (D1 in my example).

Also, to avoid problems, you should avoid using reserved words as names of macros, i.e. don't name a macro Copy, since Copy is already a valid function/command in Excel and VBA. Name it something else like "MyCopy".