Search results

Kind of has it in the title though to be fair ;)

Wonder no more ;)

Argh so many favourites... "I don't blame you for taking umbrage with animals staring at your cleavage" - Lou Reed, So Alone "If the real Jesus Christ were to stand up today, he'd be gunned down cold by the C.I.A." - The The, Armageddon Days (Are Here Again) "Cold silence has a tendency to...

Well I was only trying to show a method of finding the row that he was after, not trying to write his code for him.. But thanks for the feedback, I'll be more careful in future never to suggest anything. (y)

Does this help..? Dim rRange As Range Set rRange = xlSh.Cells.Find(What:=rsLeave![DoD ID], After:=ActiveCell, LookIn:= _ xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) rownum = rRange.Row

Since we've been talking about drumming...

Cool - I didn't even know this was a real person, I just hear it a lot when my mate from England says he is hungry

David Lifton Best Evidence: Disguise and Deception in the Assassination of John F. Kennedy

Like Bruce Dickenson, the lead singer from Iron Maiden - flying the band on tour in their own Boeing 747!!

On your Sheet3 code, I think this bit should have been If ActiveCell.Text = "DELETE" Then

Yeah I thought it was an odd way of doing it but his original request was to populate multiple sheets (1 sheet per year) and so I thought he was still going down that route. This request is a bit of a moving target to be fair...

OK looks you have decided to create the Workbook from scratch when the report is run. You will probably need to work out how many sheets to create based on the range of leave in your table, but I'm sure you can work that out. Gasman is right in that you are referencing the wrong object, this...

Try something like this.. Sub Macro1() Dim i As Integer Dim y As Integer With ThisWorkbook.Sheets("Sheet5") .Range("D3") = "Monday" .Range("D3").AutoFill Destination:=.Range("D3:ND3"), Type:=xlFillDefault y = 4 i = 1 Do Until .Cells(2, y).Address = "$NE$2"...

For what it's worth, here is a rough attempt at what you originally were looking for where the spreadsheet is updated after the Save button is clicked. I've based this on the following: - The Input form in access has: Staff ID (ie a unique number), First Name, Last Name, Leave Type, Leave Date...

Just curious but what happens when you have two people with the same name..?

I'd definitely take it the wrong way and slap Greta Thunberg :D

This might get you started. You'll need to put this in the Worksheet_Change of each sheet 2-5 Private Sub Worksheet_Change(ByVal Target As Range) Dim wReq_Sheet As Worksheet Dim sMat As String Dim iQty As Integer Dim sDesc As String Dim iLastRow As Integer Set wReq_Sheet =...

I think I've found the Anti-Beato...

Porcupine Tree knew

I don't think that's the case but will check when he's back from his holiday.