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!

Register Log in
  • Congratulations Chriss Miller 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: *

  • Users: Bass71
  • Order by date
  1. Bass71

    Case Insensitive

    I'm looking to disregard case in the following code... I've tried UCase LCase, Option Explicit. Is there a simple way to "disable" this feature? Dim rng As Range, r As Range, iCol As Integer, i As String, j As Integer Set rng = Range([B2], [B2].End(xlDown)) i = InputBox("Type Text or Number to...
  2. Bass71

    Determine if String of Text is in a Cell

    Thanks for all your help! Question: Is there a definitive resource in hard copy form that lists all funtions/methods/objects in VBA? I find myself doing alot of cross-referencing and in my frenzy the solution was glossed over 10 times. I think something like that would be extremely helpful...
  3. Bass71

    Determine if String of Text is in a Cell

    Zack, It's to determine if certain texts exist in a matrix of varying rows by 197 cols. The column heading in which text extists is then pasted to a different cell. I wouldn't know how to begin without some kind of looping statement. I appreciate the input. -Rich O
  4. Bass71

    Determine if String of Text is in a Cell

    I have the following code to iterate through ranges and determine if Variant i exists in any cell. For the most part, the cells have only one value, either matching i or not, but when there's more text in the cell than just i, I am sunk. Dim rng As Range, r As Range, iCol As Integer, i As...
  5. Bass71

    Variable Syntax in IF..THEN

    Ahaa!!.........muchas gracias!
  6. Bass71

    Variable Syntax in IF..THEN

    Well there's no problem with the first part of the statement: If SysTime > 'SysTime has been dimmed I need to get the exact syntax for the condition after the > which is #j# >>This I cannot figure out...
  7. Bass71

    Variable Syntax in IF..THEN

    Hello, I'm trying to find the correct sytnax for the following... dim j j = InputBox ("Enter Logoff Time in Military Format") If SysTime > "# & j & #" Then...<<this doesn't and many other variations do not work>> However, if I write: If SysTime > #18:30# Then...<<this works>> How can I pass...
  8. Bass71

    Range Compare

    I like the simplicity of Skip's code however, there's a snag in the following line in <<>> the VB editor states, "application or object defined error" dim rng as range, r as range, iCol as integer, bMatch as boolean set rng = range([F1], [F1].end(xldown)) for each r in rng bMatch = true...
  9. Bass71

    Range Compare

    Is there a more sophisticated/streamlined way of writing the IF Then stated below, which determines if cells in Cols A-F are identical to the those in the following row and then iterates? For the life of me, I cannot get the Range, Set Range etc syntax down. This is what I've got and it works...
  10. Bass71

    Optimize Code

    Hello, I have the following code to determine if a cell is populated and if so, it cuts and pastes a range of text and then deletes the previous row. It seems as though there'd be a simpler way to accomplish this. If ActiveCell(1, 0).Value = " x " Then Range(ActiveCell...
  11. Bass71

    Summing Snare

    Same sheet, column and function. The only thing that changes is the number of rows. So, for example first run, I'll need to sum V2:V2000, next V2:V2450 etc. There will be some blank cells as well. Thanks...........
  12. Bass71

    Summing Snare

    Hello In Excel VB, I'm trying to sum the numbers in a column which, depending on previous macros run, the row count will vary. The column has some blanks. I thought I'd try to Dim the row address variable and enter that into my formula: Dim k as integer ActiveCell.Value = ActiveCell.Address...
  13. Bass71

    Summing Snag in VB

    Hello In Excel VB, I'm trying to sum the numbers in a column which, depending on previous macros run, the row count will vary. The column has some blanks. I thought I'd try to Dim the row address variable and enter that into my formula: Dim k as integer ActiveCell.Value = ActiveCell.Address...
  14. Bass71

    Evaluating Strings in Range

    This is the criteria: PH will appear in every range at least once. 1. If cells in range contain any combination of PH and "", hide them 2. If cells in range contain anything other than PH and blank, leave visible
  15. Bass71

    Evaluating Strings in Range

    Hi; In a range of 1 X 6,I'm trying to hide rows those rows whose cells meet the criteria of either containing the string "PH" or a combination of nulls and "PH". Any other strings found in any given row, with or without nulls, would necessitate keeping row visible. Here's what I've got thus...
  16. Bass71

    Determine if Cells in Range meet Criteria

    I am trying to determine any of the cells in a range have the format <<interior.colorindex = 3>> THis is what I have now... Application.WorksheetFunction.CountA(Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(7, 0))) = 0 Then However, this is not specific and so I imagine I need to replace...
  17. Bass71

    Find Matching Characters in Excel

    Hi, I'm trying to evaluate the first 5 characters in the activecell and the one right below, but lamentably the debugger doesn't like the <<Cells(2, 1).>> part of the statement. If Left$(Text$, 5) = Cells(2, 1).Left$(Text$, 5) Then... Thanks for your help RO
  18. Bass71

    Determine if Range contains distinct Value

    Hello, I'm trying to find the function that will determine if any cells in a range of 7 rows by 1 column contain ColorIndex 38. Instead of writing; If ActiveCell(2, 1).Selection.ColorIndex = 38 Or ActiveCell(3, 1).Selection.ColorIndex = 38 _ Or ActiveCell(4, 1).Selection.ColorIndex = 38 Or...
  19. Bass71

    Determine if Cells in Range are Blank

    Hi I'm trying to use variables to determine if a range of cells are completely null. For the life of me I cannot get it right. Dim i As Integer Dim j As Integer Range("U2").Select i = ActiveCell.Row j = ActiveCell(8, 1).Row If Selection.Interior.ColorIndex = 3 Then...
  20. Bass71

    Specify Number after Parameter

    Hi; I'm trying to create a query that outputs a group of dates 21 days prior to the date specified in parameter. In the criteria field, I'm trying to write something like.. [Enter Date Inquiry Sent]-21 Thank you..........RO

Part and Inventory Search

Back
Top