Search results for query: *

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...

Not use where to start. Firstly can I say I ‘m a completed newb to excel vba so please go easy on me. In sheet1 I have a validation cell (A1 “Validation”) when True=1 else blank. I’m wanting to change the sheet tab colour to… err Red if Validation=1. Any suggestions… please try to keep them...

Combo: there were additional decimals when set to general 0.178571428571429. ck1999: trunc works great thanks. Gavona: this works, and yes a lot more simplistic thanks. Cheers for your help guys, now got it sorted.

I was advised by the power that be (within my work place) that the threshold needed to be changed. I did question but was deafend by the silence. The only logical solution I can think of is that there is some penny pinching going on. In reply to Combo: =ROUNDUP(A1,0)-ROUND(ROUNDUP(A1,0)-A1,2)...

Thanks a lot Combo I can finally get this finished

I currently have to set up a calculator for some easy calculations - however here’s where I become unstuck. The normal laws of maths state that .5 you round up below .5 down. I need to change the threshold from .5 to .6. The results of the calculations are worked out to 3 decimal places so: A...