Change one or multiple cell values in a row and reflect the same in diffenent sheets in the same workbook

dss28

Board Regular
Joined
Sep 3, 2020
Messages
165
Office Version
  1. 2007
Platform
  1. Windows
I have three sheets (Sheet1, Sheet2 and Sheet3). The data in these three sheets is identical upto 5 columns. the data in the first row is same as the data in first row of 2nd and 3 rd sheet and so on . That means all row and columns are identical upto 5th column.
The data in these sheets differ in column 6 onwards.
I can search a row using listbox in one sheet, edit, update etc.
So if I edit any data in Sheet1, I want to update the same in the other two sheets as will for the first 5 columns.
I dont want to give three listboxes correspoding to three sheets to search, edit, update the data one by one in three sheets. as the userform gets bigger
Is there any simpler way to do this.
Book1
ABCDEFGH
1SrNoHeading 1Heading 2Heading 3Heading 4Heading 5Heading 6Heading 7
21name1code1mobile1address1
32name2code2mobile2address2
43name3code3mobile3address3
54name4code4mobile4address4
65name5code5mobile5address5
76name6code6mobile6address6
87name7code7mobile7address7
98name8code8mobile8address8
109name9code9mobile9address9
1110name10code10mobile10address10
1211name11code11mobile11address11
1312name12code12mobile12address12
1413name13code13mobile13address13
1514name14code14mobile14address14
1615name15code15mobile15address15
Sheet3



Book1
ABCDEFGHI
1SrNoHeading 1Heading 2Heading 3Heading 4Heading 5Heading 6Heading 7Heading 8
21name1code1mobile1address1
32name2code2mobile2address2
43name3code3mobile3address3
54name4code4mobile4address4
65name5code5mobile5address5
76name6code6mobile6address6
87name7code7mobile7address7
98name8code8mobile8address8
109name9code9mobile9address9
1110name10code10mobile10address10
1211name11code11mobile11address11
1312name12code12mobile12address12
1413name13code13mobile13address13
1514name14code14mobile14address14
1615name15code15mobile15address15
17
Sheet2



Book1
ABCDE
1SrNoHeading 1Heading 2Heading 3Heading 4
21name1code1mobile1address1
32name2code2mobile2address2
43name3code3mobile3address3
54name4code4mobile4address4
65name5code5mobile5address5
76name6code6mobile6address6
87name7code7mobile7address7
98name8code8mobile8address8
109name9code9mobile9address9
1110name10code10mobile10address10
1211name11code11mobile11address11
1312name12code12mobile12address12
1413name13code13mobile13address13
1514name14code14mobile14address14
1615name15code15mobile15address15
Sheet1
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
If you just want to update your rows in the first 5 columns, this might be enough.
You could put this at the end of your macro

VBA Code:
Sub jec()
 Sheets(2).Range("A1:E1000").Value = Sheets(1).Range("A1:E1000").Value
 Sheets(3).Range("A1:E1000").Value = Sheets(1).Range("A1:E1000").Value
End Sub
 
Upvote 0
will it perform the following :
if i want to update data in C5 cell using a list box search/ edit function where i recall these 5 columns data in a userform which is linked to sheet 1 and if i click update button it will change the C5 value in sheet2 and 3 simulatneously?
i may have data in more than 1000 rows and growing everyday
 
Upvote 0
will it perform the following :
if i want to update data in C5 cell using a list box search/ edit function where i recall these 5 columns data in a userform which is linked to sheet 1 and if i click update button it will change the C5 value in sheet2 and 3 simulatneously?
i may have data in more than 1000 rows and growing everyday
If you just want to update your rows in the first 5 columns, this might be enough.
You could put this at the end of your macro

VBA Code:
Sub jec()
 Sheets(2).Range("A1:E1000").Value = Sheets(1).Range("A1:E1000").Value
 Sheets(3).Range("A1:E1000").Value = Sheets(1).Range("A1:E1000").Value
End Sub
 
Upvote 0
It's hard to say without knowing your exact way of working.
If you update a row in sheet 1 and just put these lines of code at the end of your userform macro, you will update columns 1 to 5 in sheet2 and sheet3.
 
Upvote 0

Forum statistics

Threads
1,224,818
Messages
6,181,152
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top