Recent content by SARUN

Couldn't resist One More Star. I guess 5 is the Max. Arun "Whereever you go there are people who need you for what you can do..."

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(&quot;A&quot; & mRowCtr).Value <> &quot;&quot; if Range(&quot;D&quot; & mRowCtr).Value = &quot;&quot; Range(&quot;A&quot; & mRowCtr).Select ActiveCell.EntireRow.Delete...

Tony, No Problem, I get it. Hope Navvy has seen your comments too. Good to keep learning. Thanks &quot;Whereever you go there are people who need you for what you can do...&quot;

Tony, Thanks pointing out the mistakes. &quot;Do ... While True is not a valid VBA construct&quot;, if you can pl. direct me on the cons of using Do While. &quot;mCtr needs incrementing somewhere ....&quot; 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(&quot;M&quot; & mCtr).Value <> &quot;&quot; Then If VBA.IsNumeric(Range(&quot;M&quot; & mCtr).Value) Then Range(&quot;D&quot; & mCtr).Value =...

Thanks Miguel, &quot;Whereever you go there are people who need you for what you can do...&quot;

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 &quot;Whereever you go there are people who need you for what you can do...&quot;

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. &quot;Whereever you go there are people who need you for what you can do...&quot;

Or Range(&quot;A1&quot;).Select Selection.End(xlDown).Select mLstRow = ActiveCell.Row ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ ActiveSheet.Name & &quot;!R1C1:R&quot; & mLstRow & &quot;C26&quot;, TableDestination:=&quot;&quot...

you could pick the Rows & Columns from ActiveSheet.UsedRange &quot;Whereever you go there are people who need you for what you can do...&quot;

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. &quot;Whereever you go there are people who need you for what you can do...&quot;

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)...