1. Your problem is that FOR . . .SET= syntax always grabs the last line, and not the first. I suggest you change the (profilerebuild.txt) part of your FOR loop to: ('reg query "HKLM\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\PROFILELIST" /s ^| findstr /i %curuser%')How To Ask Questions The Smart Way

    Your problem is that FOR . . .SET= syntax always grabs the last line, and not the first. I suggest you change the (profilerebuild.txt) part of your FOR loop to:

    ('reg query "HKLM\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\PROFILELIST" /s ^| findstr /i %curuser%')

    How To Ask Questions The Smart Way

    See less
    • 0
  2. This thread seems to address the issue and provides some example code.I haven't tried it yet so I can't speak to whether it works or not.http://www.mrexcel.com/forum/showth...Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

    This thread seems to address the issue and provides some example code.

    I haven’t tried it yet so I can’t speak to whether it works or not.

    http://www.mrexcel.com/forum/showth…

    Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

    See less
    • 0
  3. Try this...Private Sub Worksheet_SelectionChange(ByVal target As Range) 'Clear highlighting in B1:B27 Range("B1:B27").Interior.ColorIndex = xlNone 'Check for Selection within C1:AF27 If Not Intersect(target, Range("C1:AF27")) Is Nothing Then 'Highlight Column B in Selected row Range("B" & targetRead more

    Try this…

    Private Sub Worksheet_SelectionChange(ByVal target As Range)
    'Clear highlighting in B1:B27
       Range("B1:B27").Interior.ColorIndex = xlNone
    'Check for Selection within C1:AF27
        If Not Intersect(target, Range("C1:AF27")) Is Nothing Then
    'Highlight Column B in Selected row
           Range("B" & target.Row).Interior.ColorIndex = 6
        End If
    End Sub
    

    Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

    See less
    • 0
  4. A SUMIF() should get you what you want.In it's simplest form something like: =SUMIF($C$7:$C$38,"Event Type 1",$F$7:$F$38)Since your using Drop Downs, you can replace the string "Event Type 1"with the cell location holding that value, so it would look like:=SUMIF($C$7:$C$25,$X$1,$F$7:$F$25)Where cellRead more

    A SUMIF() should get you what you want.

    In it’s simplest form something like: =SUMIF($C$7:$C$38,”Event Type 1″,$F$7:$F$38)

    Since your using Drop Downs, you can replace the string “Event Type 1”
    with the cell location holding that value, so it would look like:

    =SUMIF($C$7:$C$25,$X$1,$F$7:$F$25)

    Where cell X1 contains your string “Event Type 1”

    MIKE

    http://www.skeptic.com/

    See less
    • 0
  5. Fieldman,Sorry it's taken me a day to get back to you, I've been pretty busy...I don't know if I understand what you're wanting to do or not, but the only way that I'm aware of to put multiple "IF" statements into one field is to do it the way I demonstrated above. You can put as many as you'd likeRead more

    Fieldman,

    Sorry it’s taken me a day to get back to you, I’ve been pretty busy…

    I don’t know if I understand what you’re wanting to do or not, but the only way that I’m aware of to put multiple “IF” statements into one field is to do it the way I demonstrated above. You can put as many as you’d like in there to achieve what you’re trying to do.

    This is just a shot in the dark, but I’ve re-read your posts several times now and am wondering if it would work the way you want if you change the formula in A2 to something like this:

    =IF(A1>DATEVALUE("5/31/2014"),"GOOD",IF(A1>DATEVALUE("6/31/2014"),IF(A1>DATEVALUE("5/31/2014"),"EXPIRED","EXPIRING SOON"),"EXPIRING SOON"))

    I really think you will need to play with the formula above to make it work, but I think something like this is going to be your best bet.

    Law of Logical Argument: Anything is possible if you don’t know what you’re talking about.

    See less
    • 0
  6. Try the following code. You will need a sheet named Output for the well, umm, output. ;-)I made a few assumptions:- Your Output sheet has headings in Row 1- You want the Output sheet cleared (except for the Heading Row) each time the Search button is used.- The Search strings are "top loaded" in Q25Read more

    Try the following code. You will need a sheet named Output for the well, umm, output. 😉

    I made a few assumptions:

    – Your Output sheet has headings in Row 1
    – You want the Output sheet cleared (except for the Heading Row) each time the Search button is used.
    – The Search strings are “top loaded” in Q25:Q39. (The code stops searching when it finds an empty cell in that range)
    – None of the search strings will be found in the Heading Row(s) for Raw!D:E (As written, the code searches the entire columns. That is easily modified.)
    – There may be more than one occurrence of a search string in Raw!D:E so the code checks for multiple occurrences and copies the data for each one found.

    BTW…I don’t know your level of VBA expertise, so may I suggest that you review the Tutorial found here?

    http://www.computing.net/howtos/sho…

    The debugging techniques discussed can not only help you write and fix VBA code, but they are a great way to reverse-engineer code that you find in forums such as these so that you can modify it for your own use.

    Let me know what you think.

    Option Explicit
    Sub MultiSearch()
    Dim cell As Range, c As Range
    Dim firstAddress As String
    Dim nxtRw As Long
    'Clear Output Sheet except for Row 1 Headings
         Sheets("Output").Range("A2:CK" & Rows.Count).ClearContents
    'Loop through Analysis!Q25:Q39
        For Each cell In Sheets("Analysis").Range("Q25:Q39")
    'Exit if cell is Empty (less than 15 Search Strings)
         If cell = "" Then Exit Sub
    'Search Raw!D:E
         With Sheets("Raw").Range("D:E")
          Set c = .Find(cell, lookat:=xlPart)
            If Not c Is Nothing Then
              firstAddress = c.Address
    'Determine next empty Row in Output, Copy/Paste data
    'Search for multiple occurances of current search string
             Do
               nxtRw = Sheets("Output").Range("A" & Rows.Count).End(xlUp).Row + 1
                  Sheets("Raw").Range("A" & c.Row & ":CK" & c.Row).Copy _
                    Sheets("Output").Range("A" & nxtRw)
                  Set c = .FindNext(c)
             Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
         End With
        Next
    End Sub
    

    Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

    See less
    • 0
  7. Instead of entering the password at the command line enter the * character. You will then be prompted for the password. This is also more secure because the password is never displayed on the screen.

    Instead of entering the password at the command line enter the * character. You will then be prompted for the password. This is also more secure because the password is never displayed on the screen. See less
    • 0
  8. Hey, thanks a ton for all the help. Seems like all I had to do was while choosing the network type, I had to choose home or work and not public (as I had previously chosen). So as soon as I changed the network type, files and folders shared by default on the other laptop were visible on my desktop.Read more

    Hey, thanks a ton for all the help. Seems like all I had to do was while choosing the network type, I had to choose home or work and not public (as I had previously chosen). So as soon as I changed the network type, files and folders shared by default on the other laptop were visible on my desktop. So guess this is resolved with that then.

    Thanks again. 🙂

    See less
    • 0
  9. With a new item under warranty the vendor is liable/obliged to resolve the problem - not the customer.Depending in where your based/living of course does depend on what your "rights" are in this respect.I would take it back and ask seller to resolve the problem; and if they won 't - or can't - ask fRead more

    With a new item under warranty the vendor is liable/obliged to resolve the problem – not the customer.

    Depending in where your based/living of course does depend on what your “rights” are in this respect.

    I would take it back and ask seller to resolve the problem; and if they won ‘t – or can’t – ask for your money back.

    Behind the scenes as it were you might contact D-link support and refer the problem to them – as they may know there is bug/problem with the that model and aren’t being “too open” about?

    This incidentally is from the UK D-link support section:

    http://www.dlink.com/uk/en/support/…

    Makes interesting reading re’ warranty etc.?

    And this – from the UK support section – is their UK contact address etc. Presumably there will be similar for wherever/whichever site you need to use (if not in the UK). Although I suspect if you contact even the UK site and explain the situation they may (hopefully) pass on your message etc to wherever/whichever D-link area you’re in – if not actually resolve the problem for you?

    http://www.dlink.com/uk/en/contact-…

    See less
    • 0
  10. Have you tried running other monitors for any length of time? Sounds like your graphics is not sending a signal during the periods you are having issues. That is more likely than an issue with the monitor itself. If the monitor indicator light turns orange that is an indication there is not signal bRead more

    Have you tried running other monitors for any length of time? Sounds like your graphics is not sending a signal during the periods you are having issues. That is more likely than an issue with the monitor itself. If the monitor indicator light turns orange that is an indication there is not signal being sent. See less
    • 0