Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Stripester

    Copy Destination: query!

    Hi Geoff, Something like this: Sub FilterTest() LRow = Range(&quot;a65536&quot;).End(xlUp).Row Columns(&quot;i:i&quot;).AutoFilter Field:=1, Criteria1:=&quot;>0&quot;, Operator:=xlOr,Criteria2:=&quot;<0&quot; Range(&quot;A2:B&quot; & LRow & &quot;, E2:F&quot; & LRow & &quot;, I2:I&quot; &...
  2. Stripester

    Hi - i'm trying to put a value in t

    Thankyou Zathras, Believe it or not I think that the only combination of &quot; &quot; that I didn't try to get it to work. Thanks, Stripe [pumpkin]
  3. Stripester

    Hi - i'm trying to put a value in t

    Sorry - I forgot about the title! Anyway can I answer part of my own question: LRow = Range(&quot;a65536&quot;).End(xlUp).Row Cells(LRow, 7).Formula = Application.WorksheetFunction.Sum(Range(&quot;F4:F&quot; & LRow)) Thanks
  4. Stripester

    Hi - i'm trying to put a value in t

    Hi - i'm trying to put a value in the last row in col G. The last row at present is 16, but the code below is only giving me the total for F4. What am I doing wrong. And out of interest - is it possible to put an actual formula in the cell? LRow = Range(&quot;a65536&quot;).End(xlUp).Row...
  5. Stripester

    Selecting Certain Rows &amp; Colmns Using VB

    Brilliant, That's exactly what I wanted Zathras - works a treat! Tried yours Tony, but had to alter it slightly: LRow = Range(&quot;a65536&quot;).End(xlUp).Row Columns(&quot;H:H&quot;).AutoFilter Field:=1, Criteria1:=&quot;>0&quot; Range(&quot;A2:B&quot; & LRow, &quot;E2:F&quot; & LRow).Copy...
  6. Stripester

    Selecting Certain Rows &amp; Colmns Using VB

    Cheers Rob, Your code goes to all the cell that I want, but I want to select them all at once and then copy them! Stripe [beaver]
  7. Stripester

    Selecting Certain Rows &amp; Colmns Using VB

    If a code can be written it would do this: If H2 = 20 and H13 = 4 and H100 = 2560, then the code would select: A2 to B2, E2 to F2 A13 to B13, E13 to F13 A100 to B100, E100 to F100 Thankyou
  8. Stripester

    Selecting Certain Rows &amp; Colmns Using VB

    Hi Guys, I have a macro that once run produces values in column H! What I would like to do is were these values appear in column H (they can appear on any row between 2 & LRow with gaps in between)is copy columns A, B, E & F, but only the rows that are greater than &quot;0&quot;. Can this be...
  9. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    Have another star because I think your great!!!! That's even more fantastic than your last bit of help! Cheers Stripe [beaver] [elephant2]
  10. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    Hi Skip, My Rows Fields are: Page, Item, Desc, Quantity, Unit, RATE, Ref, Markup My Data Field is: TOTALS I dont have any Column fields Ref contains references that can be anything from 01 to 60 Rather than click the arrow and select the number I'd like to select it the way I previously...
  11. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    Sorry Skip, You'll have to talk to me like a small child again. I've run your code and it gives me a obscure number in the message box &quot;1022.42&quot; I don't know how to alter your code to show me the data in my &quot;REF&quot; field that matches the data in my cell (now named TName)...
  12. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    You beauty! Fantastic - thankyou very much!!!!! As mentioned the data in this field is text like 01, 02, 03 etc.... Is there a way of entering one of these references in a cell - say [p1] and then running a code that will show the matching data in the field? ie type &quot;02&quot; in cell p1...
  13. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    Hi Skip, You couldn't talk to me like I'm a small child could you - I don't really know what to do with the info you've given to me. I've run your code and seen what it does but I can't get this to help me with my problem! Thanks Stripe [beaver]
  14. Stripester

    .PivotItems(&quot;(Show All)&quot;).Visible = True

    Hello I'm looking for some help with the following! Please go slow if you know of a way to help me - I'm new to all this! I've recorded a macro to try and automate a task. Part of the task included 'Checking (Show All) in one of my Pivot table fields, but when I came to look at the code it...
  15. Stripester

    Create an unknown Sum formula!

    Friends forever. Superb!!!! Cheers Mike, just the trick! Andrew
  16. Stripester

    Hello, I've written the code bel

    Cheers John, Ian. I've copied your code John, but I'm struggling a bit! Your code doesn't seem to select the non blanks as they popup in the message box. How do you do this? The 'Do Until' statement sound just what I need, but I don't know where to start! Thanks, Andrew

Part and Inventory Search

Back
Top