Hey Murugesh,
Yea I had this idea too, but was seeing if there might be a more elegant solution but I guess not ha.
Thankyou for you input though, it has confirmed my initial idea.
Hello,
I am trying to count the number of entries in 3 tables that have "M5" as the first two digits by combining a countifs with the left function but I cannot make it work.
My attemps (which only use one table as they are tests) to far are as follows...
Wooo!
That seems to have done the trick. Thank you.
Sorry to be a pain, but could you explain why the "On Error" code is bad practice because Ive heard that before from other coders, but never understood why...
Regards,
Gumbles.
Hi Luke,
Cheers for your time.
Ah yes, thats the macro that prints the charts for Display. I got that code from another forum and it used PDF Creator to run and is installed on all the Machines that use it and shouldnt interfere with the first section of code.
I should probably explain how...
Hi Davecrt,
This isnt the most elegant solution, but you could make the output:
If(ISBLANK(A1),-9999,A1)
Then Conditional format -9999to be invisible.
OR
you could put an Auto filter on that column, unselect blanks then filter largest to smallest.
Not the neatest solutions though...
Hello Davecrt,
Have you tried the "N" function? It converts values to numbers and if it doenst match a value it turns it to Zero (which would ut it to the bottom)
Try nesting it in your formula as an output as see if it helps.
Gumbles
Here's a link to the file, so you can see. I've checked it for sensitive information and your all clear.
https://www.dropbox.com/s/9c9si34y9e987bc/ESDID_SQCDP_Test.xlsm
Hey Luke,
I'm having some issues with the code.
When I run it, Im getting a debug error that states .Criteria2 is an application-defined or object-defined error, but .Operator works fine. Any Ideas?
Brilliant. I will try this out.
I did remove the Screen Interaction when I was building the code but since I thought I had finished it I put if back, guess not though ha!
Thanks,
Gumbles
Dim Ro As Long
With ActiveSheet
Ro = .Shapes(Application.Caller).TopLeftCell.Row
.Cells(1, 1).Offset(Ro).Select
'ListObject.ListRow refers to the table within the worksheet,
'therefore needs to be offset to change the row numbers so they match up with the table
'(Ro - Header_Row +...
Its changing the Font but not keeping the Indent...
I am puting ` before and after each line of code but it only changes the font. What am I doing wrong?
Sub insert_row()
Dim Header_Row As Long
'First Row in the Table
Header_Row = ThisWorkbook.Worksheets("Issue_List").Range("IssueTable").Row
'Finds the highest number in the range "ID_RANGE"
ID = Application.WorksheetFunction.Max(Range("ID_RANGE"))...
Dim Ro As Long
With ActiveSheet
Ro = .Shapes(Application.Caller).TopLeftCell.Row
.Cells(1, 1).Offset(Ro).Select
`
'ListObject.ListRow refers to the table within the worksheet,
'therefore needs to be offset to change the row numbers so they match up with the table
'(Ro -...
Dim Ro As Long
` With ActiveSheet
` Ro = .Shapes(Application.Caller).TopLeftCell.Row
` .Cells(1, 1).Offset(Ro).Select
`
` 'ListObject.ListRow referes to the table within the worksheet,
'therfore needs to be offset to change the row numbers so they match up with...