Replies

Both monitors are identical. The native resolution of both is 1920 x 1200.

I want them to be the same – the trouble is, one is coming up as 1920 x 1080 when the native resolution for both is 1920 x 1200

Yes and it does detect a display but does not display the correct resolutions.

It gets weirder (I haven’t mentioned this before). I actually have 2 24″ displays – both identical. When they are both on DVI (the docking station has twin DVI outputs), all works fine. When one is on Displayport through to the KVM, that monitor does not display correctly.

Alan

I have tried different cables. Not sure if I’ve tried different ports, but as it works on laptop boot (did I say its a laptop? ) I wouldn’t expect that to make a difference.

As to selecting the resolution manually, yes I tried that, even tried selecting ‘unsupported modes’ and still no sign of 1920 x 1200.

Alan

Cheers – but that is not my issue. The PC WILL do 1920 x 1200 – it’s just not playing ball when I go through my KVM.

So, back to my original question – can I manually set the resolution of a screen from within Windows 7 , overriding the defaults allowed.

Alan

Yes, I have loaded the HP drivers for the monitor and it makes no difference.

Alan

The other thing to mention is that when the Windows 7 PC starts up, the boot screen will show on the monitor if using VGA directly – it’s only when Windows starts up that it all goes black again. I have tried loading newer drivers, but it makes no difference.

I don’t think I can solve this issue (It’s an HP company build so I can’t do too much to it) which is why I want to see if I can manually set the resolution using DVI or Displayport to VGA converters.

Alan

The KVM works fine with my other system and two others that I have connected (it’s a 4 way KVM). It’s just this one Windows 7 box (which has a specific HP derived build on it) which is causing problems.

As to the make & model, I can’t remember but it’s a good one with keyboard, button and software change control.

Alan

Which also shows you which forum is best. Eileens Lounge said it couldn’t be done – this one provides the answer as to how it CAN be done.

I know where I’m staying

Alan

Thanks all. Very interesting stuff.

I modified RG’s original to give me back the row and column number and it works great.

However, don’t pass a range that is all the columns or it will loop forever if it can’t find a match (guess how I knew that).

Cheers

Alan

Yes, I gathered that (later on).

Cheers

Alan

Thanks both – I like both answers but I have no idea why SUMPRODUCT works. Also, Maud, your text doesn’t quite match the formula – the value is in B1, but your formula has $A$1 in it.

Alan

Humm – I tried that code and it didn’t like “cn”. I just did a cut and paste (replacing semi colons with commas)

Alan

Cheers – will do

Thanks to RG for his input. If anyone wants to use this, feel free. If you wish to modify it (maybe add hours, mins seconds etc) help yourself.

The code will check if a directory called “backup” exists underneath the original folder. It stores a copy of the file in there with todays date before saving the original one in the orginal place. Note that I have got rid of the “Option Explicit” from RG’s code as I am lazy :rolleyes:

Cheers

Alan

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel As Boolean)

    Dim zMyYear  As String
    Dim zMyMon   As String
    Dim zMyDay   As String
    Dim fs
    Set fs = CreateObject(“Scripting.FileSystemObject”) ‘ so we have access to the file system objects
    
    
    zMyYear = Year(Now)
    zMyMon = Format(Month(Now), “00”)
    zMyDay = Format(Day(Now), “00”)
    orig_Fname = ActiveWorkbook.FullName
    For i = 1 To Len(orig_Fname)
        If Mid(orig_Fname, i, 1) = “” Then jpos = i
        If Mid(orig_Fname, i, 1) = “.” Then jdot = i
    Next i
    fdir = Left(orig_Fname, jpos)
    orig_name = Mid(orig_Fname, jpos + 1, jdot – jpos – 1)
    Bdir = fdir & “backup”
    If Dir(Bdir, vbDirectory) = “” Then ‘ check that the backup directory exists
        ‘MsgBox (“No dir – ” & Bdir)
        MkDir (Bdir)
    End If
    Application.EnableEvents = False   ‘Turn off Events so SaveAs doesn’t recall the procedure!
    Application.DisplayAlerts = False
    SaveAs Filename:=Bdir & “Backup of ” & orig_name & ” ” & zMyYear & “-” & zMyMon & “-” & zMyDay & “.xlsm”
    Application.DisplayAlerts = False
    SaveAs Filename:=orig_Fname
    Application.EnableEvents = True    ‘Turn Events back on
    MsgBox (“Backup and original File saved OK”)
    Cancel = True
    
End Sub