PC Review


Reply
Thread Tools Rate Thread

A1 Sheet2 is linked to A1 sheet1 so that user enters value(abc123) a1 sheet1 and A1 sheet2 is updated

 
 
pano
Guest
Posts: n/a
 
      28th Oct 2007
Hello,
A1 Sheet2 is linked to A1 sheet1 so that user types in (abc123) a1
sheet1 and A1 sheet2 is updated, what I would like to know can I also
somehow enter BBB 444 on sheet3 A1 and have it replace ABC123 on
sheet1 A1 and have it update A1 sheet2 with BBB 444.

Hope that is explained well enough


thanks

 
Reply With Quote
 
 
 
 
pano
Guest
Posts: n/a
 
      28th Oct 2007
On Oct 28, 1:15 pm, pano <jena...@gmail.com> wrote:
> Hello,
> A1 Sheet2 is linked to A1 sheet1 so that user types in (abc123) a1
> sheet1 and A1 sheet2 is updated, what I would like to know can I also
> somehow enter BBB 444 on sheet3 A1 and have it replace ABC123 on
> sheet1 A1 and have it update A1 sheet2 with BBB 444.
>
> Hope that is explained well enough
>
> thanks


I have'nt been waiting for an answer best I could come up with is the
following
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$H$19" Then Exit Sub
'Code to run because H19 car rego changed .
Application.ScreenUpdating = False
Worksheets("Back1").Range("H5:H40").ClearContents
Worksheets("Back1a").Range("H5:H40").ClearContents
Worksheets("Back2").Range("H5:H40").ClearContents
Worksheets("Back2a").Range("H5:H40").ClearContents
Worksheets("Back3").Range("H5:H40").ClearContents
Worksheets("Back3a").Range("H5:H40").ClearContents
Worksheets("Back4").Range("H5:H40").ClearContents
Worksheets("Back4a").Range("H5:H40").ClearContents
Worksheets("Back5").Range("H5:H40").ClearContents
Worksheets("Back5a").Range("H5:H40").ClearContents
Worksheets("Back6").Range("H5:H40").ClearContents
Worksheets("Back6a").Range("H5:H40").ClearContents
Worksheets("Back7").Range("H5:H40").ClearContents
Worksheets("Back7a").Range("H5:H40").ClearContents
Worksheets("Back8").Range("H5:H40").ClearContents
Worksheets("Back8a").Range("H5:H40").ClearContents
Worksheets("Back9").Range("H5:H40").ClearContents
Worksheets("Back9a").Range("H5:H40").ClearContents
Worksheets("Back10").Range("H5:H40").ClearContents
Worksheets("Back10a").Range("H5:H40").ClearContents
Worksheets("Back11").Range("H5:H40").ClearContents
Worksheets("Back11a").Range("H5:H40").ClearContents
Worksheets("Back12").Range("H5:H40").ClearContents
Worksheets("Back12a").Range("H5:H40").ClearContents
Worksheets("Back13").Range("H5:H40").ClearContents
Worksheets("Back13a").Range("H5:H40").ClearContents
Worksheets("Back14").Range("H5:H40").ClearContents
Worksheets("Back14a").Range("H5:H40").ClearContents
Worksheets("Back15").Range("H5:H40").ClearContents
Worksheets("Back15a").Range("H5:H40").ClearContents
Worksheets("Back16").Range("H5:H40").ClearContents
Worksheets("Back16a").Range("H5:H40").ClearContents
Worksheets("Back17").Range("H5:H40").ClearContents
Worksheets("Back17a").Range("H5:H40").ClearContents
Worksheets("Back18").Range("H5:H40").ClearContents
Worksheets("Back18a").Range("H5:H40").ClearContents
Worksheets("Back19").Range("H5:H40").ClearContents
Worksheets("Back19a").Range("H5:H40").ClearContents
Worksheets("Back20").Range("H5:H40").ClearContents
Worksheets("Back20a").Range("H5:H40").ClearContents
Worksheets("Back21").Range("H5:H40").ClearContents
Worksheets("Back21a").Range("H5:H40").ClearContents
Worksheets("Back22").Range("H5:H40").ClearContents
Worksheets("Back22a").Range("H5:H40").ClearContents
Worksheets("Back23").Range("H5:H40").ClearContents
Worksheets("Back23a").Range("H5:H40").ClearContents
Worksheets("Back24").Range("H5:H40").ClearContents
Worksheets("Back24a").Range("H5:H40").ClearContents
Worksheets("Back25").Range("H5:H40").ClearContents
Worksheets("Back25a").Range("H5:H40").ClearContents
Worksheets("Back26").Range("H5:H40").ClearContents
Worksheets("Back26a").Range("H5:H40").ClearContents
Worksheets("Back27").Range("H5:H40").ClearContents
Worksheets("Back27a").Range("H5:H40").ClearContents
Worksheets("Back28").Range("H5:H40").ClearContents
Worksheets("Back28a").Range("H5:H40").ClearContents
Worksheets("Back29").Range("H5:H40").ClearContents
Worksheets("Back29a").Range("H5:H40").ClearContents
Worksheets("Back30").Range("H5:H40").ClearContents
Worksheets("Back30a").Range("H5:H40").ClearContents
Worksheets("Back31").Range("H5:H40").ClearContents
Worksheets("Back31a").Range("H5:H40").ClearContents
Worksheets("Back32").Range("H5:H40").ClearContents
Worksheets("Back32a").Range("H5:H40").ClearContents
Worksheets("Back33").Range("H5:H40").ClearContents
Worksheets("Back33a").Range("H5:H40").ClearContents
Worksheets("Back34").Range("H5:H40").ClearContents
Worksheets("Back34a").Range("H5:H40").ClearContents
Worksheets("Back35").Range("H5:H40").ClearContents
Worksheets("Back35a").Range("H5:H40").ClearContents
Application.ScreenUpdating = True
End Sub

 
Reply With Quote
 
Nigel
Guest
Posts: n/a
 
      28th Oct 2007
Not sure what you solution has to do with the original question? Is the
question correct?

--

Regards,
Nigel
(E-Mail Removed)



"pano" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Oct 28, 1:15 pm, pano <jena...@gmail.com> wrote:
>> Hello,
>> A1 Sheet2 is linked to A1 sheet1 so that user types in (abc123) a1
>> sheet1 and A1 sheet2 is updated, what I would like to know can I also
>> somehow enter BBB 444 on sheet3 A1 and have it replace ABC123 on
>> sheet1 A1 and have it update A1 sheet2 with BBB 444.
>>
>> Hope that is explained well enough
>>
>> thanks

>
> I have'nt been waiting for an answer best I could come up with is the
> following
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> If Target.Address <> "$H$19" Then Exit Sub
> 'Code to run because H19 car rego changed .
> Application.ScreenUpdating = False
> Worksheets("Back1").Range("H5:H40").ClearContents
> Worksheets("Back1a").Range("H5:H40").ClearContents
> Worksheets("Back2").Range("H5:H40").ClearContents
> Worksheets("Back2a").Range("H5:H40").ClearContents
> Worksheets("Back3").Range("H5:H40").ClearContents
> Worksheets("Back3a").Range("H5:H40").ClearContents
> Worksheets("Back4").Range("H5:H40").ClearContents
> Worksheets("Back4a").Range("H5:H40").ClearContents
> Worksheets("Back5").Range("H5:H40").ClearContents
> Worksheets("Back5a").Range("H5:H40").ClearContents
> Worksheets("Back6").Range("H5:H40").ClearContents
> Worksheets("Back6a").Range("H5:H40").ClearContents
> Worksheets("Back7").Range("H5:H40").ClearContents
> Worksheets("Back7a").Range("H5:H40").ClearContents
> Worksheets("Back8").Range("H5:H40").ClearContents
> Worksheets("Back8a").Range("H5:H40").ClearContents
> Worksheets("Back9").Range("H5:H40").ClearContents
> Worksheets("Back9a").Range("H5:H40").ClearContents
> Worksheets("Back10").Range("H5:H40").ClearContents
> Worksheets("Back10a").Range("H5:H40").ClearContents
> Worksheets("Back11").Range("H5:H40").ClearContents
> Worksheets("Back11a").Range("H5:H40").ClearContents
> Worksheets("Back12").Range("H5:H40").ClearContents
> Worksheets("Back12a").Range("H5:H40").ClearContents
> Worksheets("Back13").Range("H5:H40").ClearContents
> Worksheets("Back13a").Range("H5:H40").ClearContents
> Worksheets("Back14").Range("H5:H40").ClearContents
> Worksheets("Back14a").Range("H5:H40").ClearContents
> Worksheets("Back15").Range("H5:H40").ClearContents
> Worksheets("Back15a").Range("H5:H40").ClearContents
> Worksheets("Back16").Range("H5:H40").ClearContents
> Worksheets("Back16a").Range("H5:H40").ClearContents
> Worksheets("Back17").Range("H5:H40").ClearContents
> Worksheets("Back17a").Range("H5:H40").ClearContents
> Worksheets("Back18").Range("H5:H40").ClearContents
> Worksheets("Back18a").Range("H5:H40").ClearContents
> Worksheets("Back19").Range("H5:H40").ClearContents
> Worksheets("Back19a").Range("H5:H40").ClearContents
> Worksheets("Back20").Range("H5:H40").ClearContents
> Worksheets("Back20a").Range("H5:H40").ClearContents
> Worksheets("Back21").Range("H5:H40").ClearContents
> Worksheets("Back21a").Range("H5:H40").ClearContents
> Worksheets("Back22").Range("H5:H40").ClearContents
> Worksheets("Back22a").Range("H5:H40").ClearContents
> Worksheets("Back23").Range("H5:H40").ClearContents
> Worksheets("Back23a").Range("H5:H40").ClearContents
> Worksheets("Back24").Range("H5:H40").ClearContents
> Worksheets("Back24a").Range("H5:H40").ClearContents
> Worksheets("Back25").Range("H5:H40").ClearContents
> Worksheets("Back25a").Range("H5:H40").ClearContents
> Worksheets("Back26").Range("H5:H40").ClearContents
> Worksheets("Back26a").Range("H5:H40").ClearContents
> Worksheets("Back27").Range("H5:H40").ClearContents
> Worksheets("Back27a").Range("H5:H40").ClearContents
> Worksheets("Back28").Range("H5:H40").ClearContents
> Worksheets("Back28a").Range("H5:H40").ClearContents
> Worksheets("Back29").Range("H5:H40").ClearContents
> Worksheets("Back29a").Range("H5:H40").ClearContents
> Worksheets("Back30").Range("H5:H40").ClearContents
> Worksheets("Back30a").Range("H5:H40").ClearContents
> Worksheets("Back31").Range("H5:H40").ClearContents
> Worksheets("Back31a").Range("H5:H40").ClearContents
> Worksheets("Back32").Range("H5:H40").ClearContents
> Worksheets("Back32a").Range("H5:H40").ClearContents
> Worksheets("Back33").Range("H5:H40").ClearContents
> Worksheets("Back33a").Range("H5:H40").ClearContents
> Worksheets("Back34").Range("H5:H40").ClearContents
> Worksheets("Back34a").Range("H5:H40").ClearContents
> Worksheets("Back35").Range("H5:H40").ClearContents
> Worksheets("Back35a").Range("H5:H40").ClearContents
> Application.ScreenUpdating = True
> End Sub
>


 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Updated sheet content is not copy pasting from sheet1 to sheet2 arun Microsoft Excel Programming 2 25th May 2009 09:04 PM
copy data from sheet2 to sheet1 when sheet2 has variable # of rows Anne Microsoft Excel Misc 6 27th Feb 2009 09:48 PM
how do copy "sheet1!A1+1 in sheet2 to sheet 3 and get "sheet2!A1+ =?Utf-8?B?RGFueQ==?= Microsoft Excel Misc 5 16th Apr 2007 03:27 AM
go to sheet1 to sheet2 braddy Microsoft Excel Programming 1 20th Sep 2005 06:18 AM
Show a sheet1 row in sheet2 based on values in col sheet1.A =?Utf-8?B?TWljaGVsbGU=?= Microsoft Excel Misc 5 4th Mar 2004 02:52 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 04:30 PM.