Macro to copy a Cell Content automatically IF G12 cell <>""

[Ms-Exl-Learner]

I am having the below Macro code for moving the cursor E11,F11,E12,G11 & G12
and these cells are not protected and rest all other cells are locked (Other
than M11 cell). I got this code in google web search.

Now I want to add a small condition which is if a person enter any value in
G12 cell then the Macro should automatically do copy the M11 cell. That’s
all. M11 cell is not having any lock!

Note:- The Cursor should move in this order only that is E11,F11,E12,G11 &
G12. So please don’t change the cursor movement. The cursor should not move
to M11 cell and all.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$E$11"
Range("F11").Select
Case "$F$11"
Range("E12").Select
Case "$E$12"
Range("G11").Select
Case "$G$11"
Range("G12").Select
End Select
End Sub

The above coding pasted in Sheet Tab.

I am not having any knowledge in creating the macro. So, please help me.

 

[Stefi]

You haven't specified the destination of copying M11!
If you mean that in this case M11 is to be copied into G12 then
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$E$11"
Range("F11").Select
Case "$F$11"
Range("E12").Select
Case "$E$12"
Range("G11").Select
Case "$G$11"
Range("G12").Select
Case "$G$12"
Range("G12") = Range("M11")
End Select
End Sub


If you meant something else, please, clarify!

--
Regards!
Stefi



„Ms-Exl-Learner†ezt írta:

 

[Ms-Exl-Learner]

Thanks for your reply. I need to give some more input to my earlier message.

E11 Value will be entered
F11 Value will be entered
E12 Value will be entered
G11 Value will be entered
G12 Value will be entered

After entering a value in G12 (last cell) I have made a formula in M11 which
will check all the values which is entered in E11,F11,E12,G11 & G12 and get a
Result From Next sheet.

Every time people used get the result M11 cell and type the derived result
and type it manually in another application. Because I have given rights to
access only the above 5 cells (E11,F11,E12,G11 & G12) all other cells
including M11 is protected. In protection method I have restricted the users
to select LOCKED cells. So people cannot able to do copy on M11 cell and
paste the result in another application.

So I require the macro just to do copy (M11 Cell) when the final cell of G12
cell is getting entered with any character.

If the macro is started to do that Cntrl+C in M11 then after entering the
value in G12 cell people can directly give the Cntrl+V in another application
since the copy work is already done by the macro. But the cursor should not
Move to M11 Cell after entering G12 cell. It should move only in the five
cells (E11,F11,E12,G11 & G12).

Hope it's clear now.

 

[Stefi]

Thanks for your reply.  I need to give some more input to my earlier message.

E11 Value will be entered
F11 Value will be entered
E12 Value will be entered
G11 Value will be entered
G12 Value will be entered

After entering a value in G12 (last cell) I have made a formula in M11 which
will check all the values which is entered in E11,F11,E12,G11 & G12 and get a
Result From Next sheet.  

Every time people used get the result M11 cell and type the derived result
and type it manually in another application.  Because I have given rights to
access only the above 5 cells (E11,F11,E12,G11 & G12) all other cells
including M11 is protected. In protection method I have restricted the users
to select LOCKED cells.  So people cannot able to do copy on M11 cell and
paste the result in another application.

So I require the macro just to do copy (M11 Cell) when the final cell of G12
cell is getting entered with any character.  

If the macro is started to do that Cntrl+C in M11 then after entering the
value in G12 cell people can directly give the Cntrl+V in another application
since the copy work is already done by the macro.  But the cursor should not
Move to M11 Cell after entering G12 cell.  It should move only in the five
cells (E11,F11,E12,G11 & G12).

Hope it's clear now.

--------------------
(Ms-Exl-Learner)
--------------------






- Idézett szöveg megjelenítése -

Maybe this:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$E$11"
Range("F11").Select
Case "$F$11"
Range("E12").Select
Case "$E$12"
Range("G11").Select
Case "$G$11"
Range("G12").Select
Case "$G$12"
Range("M11").Copy
End Select
End Sub

Just after entering value in G12, Paste (Ctrl+V) in the other
application!

Regards,
Stefi

 

[Ms-Exl-Learner]

Wow Thanks a lot!!! It’s working fine….

 

[Ms-Exl-Learner]

Thank you for the below macro code and it's working fine.......

 

[Stefi]

Thank you for the below macro code and it's working fine.......

--------------------
(Ms-Exl-Learner)
--------------------






- Idézett szöveg megjelenítése -

In return for your help in e-mail notification matter!
You are welcome! Thanks for the feedback!
Stefi