Search results

Yeah you should be able to use sheetchange event of the workbook to do this. If the new entry is added in column A and the formula is in column B this will fill the column down. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.name = "sheet name" And...

You can also use the special filter in earlier versions of excel

The count function should do it =IF('Delivery Suite'!K17+'Orchard Mat.'!K12+'Orchard Gynae'!K14+Riverbank!K10+Meadowbank!K13=0,"",('Delivery Suite'!K17+'Orchard Mat.'!K12+'Orchard Gynae'!K14+Riverbank!K10+Meadowbank!K13)/COUNT('Delivery Suite'!K17,'Orchard Mat.'!K12,'Orchard...

You will probably have to divide all your numbers by one thousand and then in your results cell use =ROUNDDOWN(A2-A3)

I would just put in large text that a difference of 1 is due to rounding. I also put the following in code to stop them from wasting paper by printing Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub

778 is the correct answer with rounding why would you want to change it???

Create a named range in your excel file and then add it as a linked table into access.

Something like this will work but it does have limitations such as if there are two occurences of a word in a phrase then it will not pick up the second occurence is missing. Sub blah() Dim arr1 As Variant Dim arr2 As Variant Dim blnMatch As Boolean arr1 =...

Does the combobox have the focus before you set the listindex?

Well the first post said something along the lines off "I need to do this for a school assignment" so there wasn't much to be confused about.

[code] Sub format7() For Each sht In ActiveWorkbook.Worksheets With sht.UsedRange With .Borders(xlBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With .Borders(xlLeft)...

Ah the mistake was I was being stupid and din't qualify the range. I've had a look at your worksheet and using "usedrange" instead of "currentregion" is more appropriate. this will work. Sub format7() For Each sht In ActiveWorkbook.Worksheets With sht.UsedRange With...

Should be easy enough. instead of "currentregion" I would probably use "usedrange" but you may have a reason for current region. Try this: Sub format7() For Each sht In ActiveWorkbook.Worksheets with Range("B10").CurrentRegion With .Borders(xlBottom)...

Can you explain what you are trying to do please

How's this: If you're expecting us to do your homework for you then exit sub.

Well you could use a special filter to create a unique list of account numbers, then use the output of the special filter to create a loop for an auto filter and then copy and paste and transpose the names into a row. But I'm guessing that will be to complicated for you to code, and I'm to busy...

Yes but the idea of not fighting back again the nazis is absurd, even to most pacifists, and they are such an extreme example that they make for a very poor justification for almost anything.

Maybe you an thales should create a club then

You can't say that without war and violence we would be under the heel of hitler as if it wasnt for war and violence in the first place there would have been no threat from Hitler. Your argument makes no sense.

So how would hitler have had Europe under his heel without war and violence? Harsh language?