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