Good morning Sunshine!
I dont know if that title does any justice to what I'm trying to do, but here goes... I have a form in Access 2010 that has fields that appear/disappear based on whether the user clicks a check box. If the checkbox, is clicked, the next option appears. I thought that was...
Hello all,
I have a module that exports a query to Excel. It's a very nice little thing (thanks, in no small part, to the help I've gotten here). Anyway, I'd like to have a layer of formatting so that the first column is filtered (the little arrows show up without the user having to click on...
Good morning,
I have a query where I want to use two fields to give a record of a status of either "In Process," "Alterations," or "Complete." In order for a record to be "In Process" I need the tool name to have a name that starts with A and have a Null [Actual Completed] date. For the...
That will filter all the projects that have tasks with an S, right? In two of the three projects, I need to include the S tasks in the query and exclude them from the third project. Maybe I'm asking too much. Am I better off doing this in two separate queries?
Thanks!
Good morning everyone,
Question: I have a crosstab query that tells me the count of tools by project. For one of the projects, I need to exclude tools that have an S after their name, but not on the other projects. How do I have the crosstab query exclude those records just from that project...
Hi all! Me again! :-)
Question; how would one write an expression in a query that will return the last used column from left to right? Hmmm.. maybe that didnt make sense. OK, so I have columns I through V with dates. If I, J, K, and L are populated, but starting with M - V is null, I want this...
Now it says that I'm missing a "For" (which I had in the for r= 2 to 220 previously)
r = 2
Do While xlSheet.Cells(r, 1).Value <> ""
r = r + 1
Loop
Select Case xlSheet.Cells(r, c).Value
Case "", ", ,", " "
xlSheet.Cells(r, c).Interior.ColorIndex = numCOLOR_Light_Orange
End...
Oh yes, that is simpler. Thank you!
There is always going to be a value in column A. If there is a blank down the row, the one before it is the last line.
Thanks!
For r = 1 To 220
For c = 1 To 8 'A to H
If xlSheet.Cells(r, c).Value = "" Then xlSheet.Cells(r, c).Interior.ColorIndex = numCOLOR_Light_Orange
Next c
Next r
For r = 1 To 220
For c = 1 To 8 'A to H
If xlSheet.Cells(r, c).Value = ", ," Then xlSheet.Cells(r...
[purpleface]So maybe something like this:
For r = 1 To 220
For c = 1 To 11 'A to K
If xlSheet.Cells(r, c).Value = "" Then xlSheet.Cells(r, c).Interior.ColorIndex = numCOLOR_Light_Orange
Next c
Next r
For r = 1 To 220
For c = 1 To 11 'A to K
If...
Well, there's a first time for everything. Thanks, I'll look at the macros.
Yes, I do know how to step through. Thanks!
Well, that's a handy little thing. Only it doesnt work. I did something wrong.
Sub HighlightNullDesignerOrange()
'
' HighlightNullDesignerOrange Macro
' OrangeInHRowIfNull...
Gee whiz... I'd rather take a beating than have to walk through that code again! (though I did get some great insight on some legacy code pieces in the process! Hooray for learning!) It didnt like the color number I was using for grey. I set it back to 15 and all was right with the world. Thank...
Hmmmmm... that's a new one. "Error 9: Subscript out of range." So there are what... too many loops?
Private Sub q_WRTAll()
Set xlSheet = xlWorkbook.Sheets(1)
xlSheet.Activate
xlSheet.Name = "All Planners"
'OPEN recordset
varSQL = "SELECT * FROM q_WRTAll"
Set rst =...
Oh wait, I did find the color names. Thank you very much!
So... scope of the report has changed (only a week on the job and i'm seeing a recurring trend) :-)
Now they only want cells highlighted that have the letter next to the date, with the same parameters. How would I make it so that only...
Oh yes! We are definitely on the right path! The colors that I put in are obviously incorrect though. How do I tell it what color number I want? Right now I have it looking like:
Const numCOLOR_Red As Long = 38
Const numCOLOR_Grey As Long = 15
Const numCOLOR_Yellow As Long = 6
Const...
Yes, Excel is launched from Access.
Yes, I am successful making the top row gray.
The dates are in columns L1 through V219.
I would like it if the cell could be highlighted red/yellow.
Yes, there is always a space if there is a letter.
Yes, there are null fields.
Thanks!
-MCC
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.