Hello all:
I hope you can help me with the following:
In cell C4, I have the following formula: $G$5.
Sometimes I need to delete columns G to K, such that columns L to P shifts into place i.e. now becomes column G to K.
Can you please tell me why I am getting this error since column G still...
Hi cLFlaVA:
Thanks, I have made the changes, but I think the way I have it set up is not giving me the exact results.
My data has 11 rows. What the code below does now is:
in T13 it inserts the word Signature, that's what I want. But then it formats T15 with the All Border and changes the...
Thanks clFlaVA,
That worked!
If I want to select that cell T... and format it with a row height of say 45 and format it with All borders, I did this, but I am getting a debug in the Line Style part of the code:
Sub Signature()
Sheet3.Activate
If Sheet3.Range("T4").Value > 0 Then...
Hello everyone:
I am trying to write a macro:
Sub Signature()
Sheet3.Activate
If [T4] > 0 Then
r2 = Rows.Count + 1
[T.r2] = "Signature"
End If
End Sub
But it's not working because I am not sure of the syntax to use. I want to insert the Word Signature in column T of the last row + 2 if T4 is...
Thanks a lot guys. I didn't know the select, activate thing could slow down the macro, thanks for pointing that out to me Skip.
CLFlava, thanks for making the macro shorter.
Thanks for all your help.
Sharon
Hmmm...the page setup thing does not work automatically though, am I right?
When I copy and paste data into a particular sheet, sometimes the data rows exceed the print area. I tried the page setup 1 by 1 but it doesn't work automatically.
I don't know how the Workbook BeforePrint thing works...
Yes Skip, I have enough rows. In the sample I am working on, I have 6 "No"s i.e 6 rows.
The code works okay by filtering for the "No" in sheet5 and then copies and pastes these rows in sheet3, so the code is working up to the line 'Application.CutCopyMode = False" but the code does not execute...
Hi Skip,
I tried the test thing, and yes it gave the the number of the last row, here is the whole code I am running, maybe you can help me find the glitch. I have looked at it (with the little knowledge I have) but can't find anything wrong.
Thanks much again.
Sub UNonAP()
Sheet3.Select...
Hi Skip,
I hope you're not running out of patience yet
after r2 in the code you gave me I inserted
[Q4] = r2,
and put a break in the rest of the code, but I am not getting any value.
How can I make it work?
Thanks again.
Hi Skip,
Thanks.
The data on my active sheet has the header in row 5. Usually, row 5 already has the border around it, but the new rows copied and pasted from another sheet, don't have this border, so I want to format row 5 to the last row if there is a last row with the All Border format.
Here...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.