Recent content by newuser08

Thanks for your advise Guys, However when I made the below changes as adivesd by Gavona (in Red) 'Remove dups Sheet4.Range("C:C").AdvancedFilter Action:=xlFilterInPlace, Unique:=True 'Sheet4.Range("A1:E1").Select 'Sheet4.Range(Selection, Selection.End(xlDown)).Select...

Hi guys, I've Tightened up the code to the best of my ability, any more suggestions speed things up? Private Sub btnNewData_Click() Dim xldcdata As Object Application.Calculation = xlCalculationManual frmworking.Show (0) DoEvents Set xlApp = CreateObject("Excel.Application") xlApp.Visible =...

thanks guys worked just fine. In future I will try to be more concise.

I changed Sub TestProtect() to Sub ProtectVBA() Sub TestUnprotect() to Sub UnprotectVBA() I placed UnprotectVBA in the worksheet on open this returned 'Programmatic access to Visual Basic Project is no trusted' error message. I need to reiterate I am a newbe and am a little unsure as to...

Thanks for that macropod, I have seen this referenced on numerous sites, BUT I cant get the code to work. Has anyone got a working model that can be provided so that I can manipulate… I just cant get the above to work! Many Thanks

Hi Guys, The workbook I’ve created has individual pages locked to the user (same password for each sheet), also I have locked the VBA Project. When I open the book I have made the sheets visible and unlocked them to save me time, however I also want the VBA Project to be unlocked. I have...

I used Application.Calculation = xlCalculationManual with a frm showing 'workng please wait' when the process is complete hide the frm and turn the calculation back on.

Hi Guys, Your quite right it is for AHT’s and yes the way I started would have allowed additional user error. I’ve since back tracked, now using a form to view the AHT’s converted to hh:mm:ss. Thanks again for the assistance provided.

Of course! Might have helped if I’d used total seconds in a day not just 60 DUH! Thanks for showing me the error of my ways PHV

Hi All, I’m putting together as seconds to minute’s converter and tried about 7 different variations that I’ve found (none of which seam to work for me). So far I have a inputbox asking the use to enter the totals number of seconds on Enter a Msgbox to show the result in minutes. Private Sub...

Thanks Skip, I had a play around and added some bits: Private Sub btnag6_Click() scany = 0 Dim ws As Worksheet, rng As Range For Each ws In Worksheets With ws Select Case .Name Case "Check Agent Results", "Sheet12" Case Else Set rng =...

Hi all, I have a workbook with multiple sheets in it, what I am trying to accomplish is when I push a cmdbtn with a given users name as its caption the code will scan through all the worksheets select the range where = to the sheet1.cmdbtn.caption then paste a copy into a ‘results’ sheet. The...

Is it possible to make the above work in a shared excel book?

Worked a treat many thanks.

I would like in on a 'on open event' I did record a macro and tried: '########################################## Private Sub Workbook_Open() If Sheet10("Validation", 1) Then Sheets("TEST").Select ActiveWorkbook.Sheets("TEST").Tab.ColorIndex = 3 Else...