Posts by texasalynn

    Re: Progress Bar Misery

    Batman & rbrhodes :p

    Ok that's wonderful. Some needed tweeking. I need to have an error check if when the division is entered then check this
    If Worksheets(ShName).Cells(5, 10).Value <> "#N/A" Then
    continue with code
    If #N/A is true I can't figure out how to make it go to the update rowcounter

    Re: Select record to display

    Thanks Alan, but I can not open your database. Is it a version higher than Access 2000? Can you save it as that version please. Then I can look at it and learn.

    thanks . . . texasalynn

    Re: Select record to display

    Wow! Food for thought! I never thought about those things. My original thought process was to pick only from one. I am not using sub-forms as I'm not that proficient yet to attempt such things. So I guess your answer "Can you confirm that the list is displayed in a sub form?" would be no. My design is flawed uh? Which is why I came here to ask for help. Any suggestions is appreciated.

    thanks . . . texasalynn

    On a form I am trying to select records from whatever choice is selected from the combo box drop-down. On my form "Log calls..." there are three choices. The first choice lets you select the "SIC" but the record briefly displays then is replaced by the 1st record.

    Also I want the drop-down to summarize the choices - currently if there are duplicates it shows each one. I wanted the selection to show the summary of all records then when that choice is made it shows only those records. For example: Total records = 50, select choice state=TX, display would then show records = 5 and the first TX record is displayed. I hope this makes sense and someone can help me. I'm just learning VB and don't fully understand it all.

    thanks . . . texasalynn

    note: I posted this on another site but no answers.

    It is very simple. Goes to Tools -- Macro -- Macros -- type in something (I always type "C") -- Create. Press Ctrl + A to select all and press delete. Copy the code from here and then go back to excel and paste. Close the VBA editor window. Now you have your macro and can run it.

    Post back if you get stuck.


    Here is one that I use, is similiar to the one that Andy posted the link to.

    Sub Footer()

    ActiveSheet.PageSetup.LeftFooter = "Path: " & ActiveWorkbook.FullName & Chr(10) & "Tab: &A" & Chr(10) & ""
    ActiveSheet.PageSetup.CenterFooter = "Page &P of &N"
    ActiveSheet.PageSetup.RightFooter = "Printed: &D &T"

    End Sub



    Originally posted by mzp
    Thanks, it works, one extra query, some of the cells in my column are blank, how can I tell the IF statement to return text such as "abc" if the cell is blank?

    =if(isblank(n10),"abc",IF(YEAR(N10)<2008,YEAR(N10),IF(YEAR(N10)<2007,YEAR(N10),IF(YEAR(N10)<2006,YEAR(N10),IF(YEAR(N10)<2005,YEAR(N10),IF(YEAR(N10)<2004,YEAR(N10),IF(N10<="","No Review or Unknown Date","2008+"))))))

    Add the first test for the blank

    Add Val(....) to your formula.


    Thanks Richie. Another question I have this code:

    ActiveCell.FormulaR1C1 = "=SUM(R[-265]C:R[-1]C)"
    That shows a hard code "-265" which I want to be the variable value. How do I change the R/C syntax to the Column + Code?

    And the cross post is me because sometimes the different boards don't always get the same answers or response time.

    Thanks . . .

    I'm trying to get my code to use a variable for the last row, but I'm lost on how to do this. My code:

    Dim J As Long
    J = ActiveSheet.Range("A65536").End(xlUp).Row
    Range("Q" & J ":S" & J).Select
    But of course this doesn't work???? How do I put in the code ??

    Or is there a better way of writing this. I'm very new at this.

    Thanks . . .

    I was given this code to help me on a worksheet that has duplicates. The code (I think) takes the current row and compares it to the row above to see if it is a duplicate and if so clears it. Then it loops through until all rows have been reviewed and cleaned up. The code however is giving me an error and since I don't know VBA (only enough to be dangerous) I can't fix it. With all of you guru's I know someone will have the answer. Here is the code:

    Sub CleanUnwantedRows()

    Do Until ActiveCell = 2

    If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
    End If

    ActiveCell.Offset(-1, 0).Select

    End Sub
    I'm get error "Application-defined or object-defined error" on the first line.

    Hope that I've explained this enough and someone can help me.

    Thanks . . .