Days..Weeks...Months?

smm3

Board Regular
Joined
Oct 30, 2004
Messages
67
I have searched this board for days, weeks and going on months, and I did find several "link threads", but none of them seem to work for me.

I have a worksheet that I need to link to an exact copy on another worksheet in the same workbook. The original sheets has marcos, that don't work when I paste link to the second sheet. I've included both the worksheet and the macros used.

I really need help! I just can't get this to work. ANY HELP WOULD BE SO APPRECIATED!

Vickie

:rolleyes:
Interview.xls
ABCDEFGHIJKLMNOPQRSTU
1CHECKLIST
2 APPLICATION(S)(Pleasekeepforyourrecords)
3 APPLICATION(S)(Pleasesignbyredarrowandreturn)
4 REVIEWSTATEMENT(S)(Pleasesignandreturn)
5PBIRTHCERTIFICATE(MustbeanORIGINALorcertifiedcopy.)
6PMEDICALRELEASEFORMS(Sign&Date,withwitnessifpossible)
7PANYMEDICALRECORDS(Sendcopiesonlyifatallpossible)
8PFUNCTIONREPORT(Completeinasmuchdetailaspossible)
9PWORKACTIVITYREPORT(Completeinasmuchdetailaspossible)
10PVOIDEDCHECK(Fordirectdeposit)
11PMILITARYDISCHARGEPAPERS(example:DD214)
12PBLUEBOOKLETDisabilityReport(Completedetailsaspossible)
13PGREENBOOKLETDisabilityReport(Completedetailsaspossible)
14PRENTALAGREEMENT
15POTHER:
16PW2FORYEARS
17PPAYSTUBSFORYOU
18PPAYSTUBSFORSPOUSE
19PPAYSTUBSFORMOTHER
20PPAYSTUBSFORFATHER
21PNOTE:PleasemakesureALLpaystubsarepresentforthetimerequested.VerifyingwageswithoutALLthepaystubswillnotbepossible.AprintoutfromtheemployershowinggrossearningsforEACHMONTHcanbesubstitutedforpaystubs.
22
23
24
25Wewilldenyyourclaimifwedonothearfromyouby
26#REF!
Sheet2



Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Range("b8:b27")) Is Nothing _
Or Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
For Each c In Range("B39:B59")
If c.Value = "P" Then
With c.Offset(0, 1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 16
End With
Else
With c.Offset(0, 1).Font
.Name = "Estrangelo Edessa"
.FontStyle = "Regular"
.Size = 5
End With
End If
Next c
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or Target.Column = 16 Then
If Target.Value = "P" Then
With Target
.Value = ""
End With

Else
With Target
With Selection.Font
.Name = "Wingdings 2"
.Size = 22
End With
.Value = "P"
End With
End If
Cancel = True
End If
End Sub
 

Excel Facts

Why does 9 mean SUM in SUBTOTAL?
It is because Sum is the 9th alphabetically in Average, Count, CountA, Max, Min, Product, StDev.S, StDev.P, Sum, VAR.S, VAR.P.
Have you tried copying the code into the other worksheet?

Code in a worksheet module will only work on that particular worksheet.
 
Upvote 0
Yes. I tried using the original code, adjusting the code, praying to the code, and finally cussing out the code. The code refused to obey.

Vickie
 
Upvote 0
How are you actually linking to the other sheet?

If you are using formulas eg =Sheet1!A1 then the code might not work.

What is it you're trying to acheive?

BTW your posts are quite difficult to read - the text is going off screen

I think it's because of the width of the spreadsheet you posted.

Hitting enter every now and again should help.
 
Upvote 0
On the original sheet, I have a number of pages. I have to print just one page later over a period of several weeks. I need to update the original page and then print the one page. I tried printing the one page when I needed it, but unless I find the correct page, change the print area, print
page and then reset the print area to the original settings the whole sheet prints. I do this over and over again in many workbooks. I need a better
way.

I copied the original page and entered it on a second sheet by paste special
and saving formulas, format, etc., and then paste links. The macro that puts the checkmark in column B links correctly, but the macro that updates
the fonts when column B has a checkmark doesn"t work. Column C doesn't change fonts depending on the checkmark.

I saw the tread for =Sheet1!A1 for something close, but I couldn't get that
to work either. I've tried names for ranges, names for the worksheets and I don't even recall everything I've tried.

I've pushed enter several times, hope it helps. What does BTW mean?

Vickie
 
Upvote 0

Forum statistics

Threads
1,203,544
Messages
6,056,027
Members
444,840
Latest member
RazzelDazel

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