Mirror Many Random Cells at Excel

[Closed]
Report
Posts
5
Registration date
Wednesday July 21, 2010
Status
Member
Last seen
August 8, 2010
-
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
-
Hello,


i'm a data entry,,,Eh,,

i have a sheet with 720 number of different items...

and i get a paper with 40 items per day but those items are randomly at my sheet,,

logic thinking why i can not arrange the sheet,,,

the 720 item are arranged based on a sales sheet paper,,,,the long shrink paper when you buy something,,,(sorry for low Eng.)

eh....this paper per day is repeated 6 times..for 6 section .but same order of items,,,

i have read this post how to mirror a cell from each sheet,,,,

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



but here i want to mirror many cells even with Rang like from A1 To B2 so i have all cells inbetween 2 Rows,,,

wish i can get help,,,
how do i mirrir more than one cell deferent sheet :( and Rang cells or is there better idea..

2 replies

Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
Could you please upload a sample EXCEL file WITH sample data, macro, formula , conditional formatting etc on some shared site like https://authentification.site , http://docs.google.com, http://wikisend.com/ , http://www.editgrid.com etc and post back here the link to allow better understanding of how it is now and how you foresee. Based on the sample book, could you re-explain your problem too
1
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2942 users have said thank you to us this month

Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
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
Posts
5
Registration date
Wednesday July 21, 2010
Status
Member
Last seen
August 8, 2010

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,,,
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
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
Posts
5
Registration date
Wednesday July 21, 2010
Status
Member
Last seen
August 8, 2010

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.
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
This line
If Target.Address <> "$A$1" Then GoTo line1
This line is saying that if address is not A1 goto Line1. If you see the label Line', you would notice it lines after this label says

Application.EnableEvents = True
End Sub

which is end of routine.
Posts
5
Registration date
Wednesday July 21, 2010
Status
Member
Last seen
August 8, 2010

bro pls read this and do this example :-

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

Orginal Post was by venkat1926

Topic :-

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

i need to modfiy this code to be done with cells collections And Cells Rang -,- :(
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
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