Code to move value when 3 criteria given

[ABSTRAKTUS]

Hi all,

I need a simple code to move value from one sheet to another according to 3 criteria:

Location (sheet) - depending which check box is checked
Row (product)
Date (Column)

See the attached sample workbook.

Thanks



For forum Admins:

This is Cross-Post of:
http://www.excelforum.com/excel-prog...the-array.html

Actually this is much simplified version as nobody could help me on the previous one. I'm sure someone will solve this. However, if you're going to close thread, please close the original thread as it is not active at all.

Thanks

[watersev]

hi, ABSTRAKTUS, what is Batches number states for?

[ABSTRAKTUS]

Hi watersev,

This is just a numeric value.

All I need is just to transfer that value to the the sheet according which checkbox is checked (UNIT 2 or 3), then find its place in the sheet according which product and date were selected in the main sheet. Sounds simple, but not for me...

[watersev]

please check attachment, I'm not sure the button will work (it was created by me for testing purpose instead of yours) but the code must work

[ABSTRAKTUS]

Thanks watersev,

The sample workbook works fine. I had a look at you code and I don't think I will be able to adapt i to fit my needs on the original workbook. The code is just too clever for me.

I was using something simple code, but it is not affected by selection of checkboxes.

Code:

Sub TransferToArray()

Dim FR As Long, FC As Long
If Worksheets("PLANNER").Range("V30") = "" Then
MsgBox "No input can be made"
Exit Sub
End If
Application.ScreenUpdating = False
FR = Application.Match(Worksheets("PLANNER").Range("K24"), Worksheets("U2 BATCHES").Columns(1), 0)
FC = Application.Match(Worksheets("PLANNER").Range("U26"), Worksheets("U2 BATCHES").Rows(3), 0)
If FR <> 0 And FC <> 0 Then
Worksheets("U2 BATCHES").Cells(FR, FC).Value = Worksheets("PLANNER").Range("V30").Value
End If
Application.ScreenUpdating = True
End Sub

Active cell for both checkboxes are in the sheet "CORE" in G2.

Thanks a ton mate! Sposibo!

[ABSTRAKTUS]

here is the actual workbook if you need to have a look.

[ABSTRAKTUS]

Oooops, forgot atachment...

[Cutter]

@ABSTRAKTUS

You should put code tags around your code before a mod catches you.

[watersev]

check attachment

[ABSTRAKTUS]

You're a star man! Thanks!