This is a peice of code that I've been using for months
Dim mLstRow As Variant
Range("A1").Select
Selection.End(xlDown).Select
mLstRow = ActiveCell.Row
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
ActiveSheet.Name & "!R1C1:R" & mLstRow &...
Oops Sorry, I had a Select Case statement which I modified and apparently forgot to add the THEN and END IF Statement.
"Whereever you go there are people who need you for what you can do..."
Make a copy of your spreadsheet and try this
Sub deljunk()
Dim mRowCtr As Variant
mRowCtr = 2
While Range("A" & mRowCtr).Value <> ""
if Range("D" & mRowCtr).Value = ""
Range("A" & mRowCtr).Select
ActiveCell.EntireRow.Delete...
Tony,
No Problem, I get it. Hope Navvy has seen your comments too.
Good to keep learning.
Thanks
"Whereever you go there are people who need you for what you can do..."
Tony,
Thanks pointing out the mistakes.
"Do ... While True is not a valid VBA construct", if you can pl. direct me on the cons of using Do While.
"mCtr needs incrementing somewhere ...."
How many times I've told myself to INCREMENT the counter. (I did bang my head on the...
Navvy,
Try this
Sub Trial()
Dim mCtr As Integer
Dim mResult As Integer
mCtr = 1
Do
If Range("M" & mCtr).Value <> "" Then
If VBA.IsNumeric(Range("M" & mCtr).Value) Then
Range("D" & mCtr).Value =...
Miguel
I'd marked this post. Can you provide me the info.
I'm looking at reducing cost of ownership. I'm examining the possibilities of implementing Domino on a Terminal Server with thin clients.
Arun "Whereever you go there are people who need you for what you can do..."
Individual Locations do not have a SA, Ghosting cannot be done on a Monthly basis but sure we can try it for HW Upgrades.
Anyone faced problems with ghosting. "Whereever you go there are people who need you for what you can do..."
LN 4.6 / Win NT 4.0
We've Notes Server spread across the country. If a Server Hard Disk goes down or needs to be upgraded, the SA from the Regional Office has install it on a New Hard Disk & Travel to the Regional Office to Install it.
Jus wanted to Know is there a better way to do this...
Oops, I'm not sure about using Pivot Tables if you've data on different sheets.
But the approach depends upon what data you have and what summary you're looking for. "Whereever you go there are people who need you for what you can do..."
Your objective can be acheived but you're anot clear which part you need help.
1. Import of Text File to Excel
Sample Code:
Workbooks.OpenText FileName:=Trim(fpname), Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(31, 1)...
If you're looking to Forward New Mails to another mail address, it is possible. Jus the question of which field to use in R5.08. I use 4.6 so cannot be of much help. "Whereever you go there are people who need you for what you can do..."
For processing Incoming Mails by the Agents, you should use "If New mail has arrived" in "When the Agents should Run?". If you're using attributes of the Mail like SMTP Originator, Size, etc you need to use Condition "By Field" And in your case it will be...
Problem:
Messages sent from Outlook 98 or Outlook 2000 that contain an attachment are received in Notes with a C.DTF or ATTXXX.DAT attachment. Messages that
contain no attachments from Outlook are received with no problems.
Solution:
Check to make sure the person sending the message from...
1) Check in the Person B's Mailbox the SMTPOriginator Property for the Mail or Check the Sent By in the Mail
2) Check if there any Agents enabled
"Whereever you go there are people who need you for what you can do..."
Its "If New Mail Has Arrived" in LN 4.6. I think you must be using LN 5.0.
You need to use "After New Mail Arrives" since you want to forward an Incoming Mail. which you can only after the mail has arrived. I'm not sure where "Before New Mail Arrives" is to be...
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.