Mirror Many Random Cells at Excel

Link https://authentification.site/files/23543392/test.rar

that's my problem:-

i Get 4 paper's per day For 6 places.

the 4 papers have spacfic item.

those items are placed at Main sheet but Randomly

the Main sheet items are arranged based On a recet Sales paper that come from the the Shop.

So that's why i can not have other arrangment.

So i manget to make an = at every Cell at the main sheet and go to the sheet i have created look the same like the real paper i have to enter it's own data every day same arrangment of this real paper.. (LOOOL Sheet)

so now i enter the Values at LOOOL Sheet and it will be transfered to the Main sheet.

all my work is like emulator the real cycle of work to trace the item of productions

from the factory to the shop to sale Or return back.

it's
this formula

Opening balance + production - deceased + [(- + lost control)] = the balance of the first term

Special Report taken from the machine shop selling items sold


sorry for reply delay ( my father had a Brain Storke ) had to be away

Could you post the file in ZIP format. I do not have access to RAR and cannot install one eiher

PS: Hope your father is making full and speedy recovery.

thanks

thank's i hope and pray too

eh,,

here is the Zip. Link : https://authentification.site/files/23640750/test.zip

now trying to get the sales direct export from the cash machine,,,working on it,,

thank's for your time,,


From that topic http://ccm.net/forum/affich-175692-mirror-cells-two-ways-different-cells


How do i make it work with more than One cell,,i mean Work in Range cells,,,

venkat1926 732Posts June 14, 2009Registration date July 25, 2010Last seen Oct 6, 2009 3:06am BST
Instead of making a WORKBOOK event make it two sheet events

select sheet 1
right click this sheet's tab and click view code and in the window copy paste this formula


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'MsgBox Target.Address
If Target.Address <> "$A$1" Then GoTo line1
Target.Copy Worksheets("sheet2").Range("d5")
Application.CutCopyMode = False
line1:
Application.EnableEvents = True
End Sub

now select sheet 2
right clicks this sheet"s tab
click view code
copy paste this code


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address <> "$D$5" Then GoTo line1
Target.Copy Worksheets("sheet1").Range("a1")
'Application.CutCopyMode = False
line1:
Application.EnableEvents = True
End Sub


now you change A1 in sheet 1 and see what happens to D5 sheet 2
simiarly change D5 sheet 2 and see what happens in A1 sheet 1


how to update that code to work with more than cell and with Cells Range separated sheets...

after all thank's for all whiom try to help out,,,

Could you give me an exact example what you want to do (sheet and cells addrees)

From what I was able to understand was
1. You enter the some data on sheet LOOOL. ( what cell ?)
2. Then you want that data to show up in the sheet "Main SheeT" What would make data to show up in that sheet. What should be the matching criteria

if i enter data at Sheet [ LOOOL ] ( A1 Cell ) Then At [ Sheet Main ] ( A1 ) is same as [LOOOL] (A1 Cell)

and if if i enter data at Sheet [Sheet main ] ( A1 Cell ) Then At [ LOOL ] ( A1 ) is same as [Sheet Main] (A1 Cell)

Mirror cells did you try the Code ? try it it make this but i can not make it work with more than one cell and i can not make it work with cells Rang.

So you want to make a change in ANY cell of "LOOOL" and you want same change to happen on sheet "Main SheeT" in exact same cell
and in same way you want that if you make any change in cell of "Main SheeT", then you want same change to happen in same cell in "LOOOL" ?

In the mean while let me explain wha the code is doing

This would be going into Sheet LOOOL

Private Sub Worksheet_Change(ByVal Target As Range)

    ' Target is the cell or the cells (depending if one cell was changed or more)
    ' that were changed
    
    
    ' this disable the events. so that there is no cyclic calls
    ' so change in Main SheeT does not also cause same call
    Application.EnableEvents = False
    
    ' this copies the data in the change cell(s) and copy the information in D5 of Main SheeT
    
    
    ' for every cell that was modified, loop
    For Each Cell In Target
        
        ' copy the cell that was changed and paste on the same cell address but on Main SheetT
        Cell.copyTarget.Copy Worksheets("Main SheeT").Range(Cell.Address)
    Next
    ' this just clears the clipboard
    Application.CutCopyMode = False
    
    
' this is just a label to quicktly jump to this location
line1:

    ' our code has run, now we enable the events again
    Application.EnableEvents = True
    
End Sub