Posts by yegarboy

Re: Cell value gives false

I believe it's because your code is asking a question. What would you like the result to be?

Re: $25 complaints tracking sheet

Payment received

Cheers

Re: $25 complaints tracking sheet

Glad you like it my friend,

Finish populating all of the types..and I will re-program the Chart for you later on today.

Re: $25 complaints tracking sheet

Your Inbox is full. I can not reply until you delete your messages. The last message you sent was blank.

Re: $25 complaints tracking sheet

Sorry for the wait.

Here she is.

forum.ozgrid.com/index.php?attachment/57920/

I added all the things you requested. The Chart was very hard to make work the way you wanted. It is Dynamic and populates when the sheet is opened. If there is no data the chart stays empty. So add a bunch of data then check it out.

Re: $25 complaints tracking sheet

Here ya go

I think I have it bug free lol. Please don't forget to pay the 10% to Ozgrid as this is a continued project. Thanks.

forum.ozgrid.com/index.php?attachment/57916/

I await your testing results and payment.

Cheers

Re: $25 complaints tracking sheet

No worries,

You will need to upload the workbook tho.

Re: $25 complaints tracking sheet

Here is the fix per your request

forum.ozgrid.com/index.php?attachment/57868/

Sorry for the errors

Re: $25 complaints tracking sheet

Payment received. Thank you!

Have a great day

Cheers

Re: $25 complaints tracking sheet

Sorry about that

I sent you a PM with payment info. Please check your inbox.

forum.ozgrid.com/index.php?attachment/57867/

Re: $25 complaints tracking sheet

No worries,

Here is the fix.

forum.ozgrid.com/index.php?attachment/57865/

Now it wont submit data to the pending sheet if Date Closed field is filled out. An Error box tells you to remove it

Re: $25 complaints tracking sheet

Ok my friend,

Take this for a test drive.

I Added a Search Feature.
I Programmed all the buttons you requested.
I added a Serial Number feature

I hope it is to your liking. The Main sheet is password protected. The password is "pass" without the quotes.

I await your feedback forum.ozgrid.com/index.php?attachment/57864/

Re: $25 complaints tracking sheet

I will have a go at this. Will report back in 2 hours.

Re: Get row number(s) of a match

hey there,

This will do what you want.

=MATCH(A20,A2:A15,0)+ROW(A2:A15)-1

It assumes your lookup value is in A20. Place formula in B20

Re: Conditional Formatting all numbers two colors

Try this in a Worksheet Selection Change Event. As the other members pointed out it may slow your workbook down.

Dim x As Integer


For Each c In ActiveSheet.UsedRange.Cells


         If c = "" Then c.Interior.Color = xlNone
         
           If Application.WorksheetFunction.IsText(c) Then
             c.Font.ColorIndex = 1
               c.Interior.Color = xlNone
GoTo NC
           End If




   x = c.Value




         If ((x Mod 2) = 0) Then
           c.Font.Color = vbGreen
          Else
           c.Font.Color = vbRed
           c.Interior.Color = vbYellow
         End If
    
    
NC:
Next c

Re: Simply count the colored cells per row

Glad to be of service

Pay it forward.

Re: Select a range of cells and give it a name

Here is another option.

Sub NameRange()


 Dim MyRange As String
     
    MyRange = InputBox(Prompt:="Enter Range Name: ", _
    Title:="Range Name", Default:="Enter Range Name Here")
     
    If MyRange = "Enter Range Name Here" Then
    Beep
       MsgBox "Please Enter A Valid Name For Your Range"
         Exit Sub
      Else
    
ActiveSheet.UsedRange.Select


          With Selection
           Selection.Name = MyRange
          End With
         
    End If
    
    MsgBox "Range " & MyRange & " Has Been Created!"
    
    
End Sub

Re: Simply count the colored cells per row

This will do what you want. It assumes your Blue is the Excel default blue. AKA "vbBlue".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  Dim i  As Integer
    Dim j As Integer


  Range("O4:O33").ClearContents


    For i = 4 To 33 'Rows
        For j = 2 To 14 'Col
           If ActiveSheet.Cells(i, j).Interior.Color = vbBlue Then
            Range("O" & i).Value = Range("O" & i).Value + 1 'Count number of blue cells per row
            End If
            
        Next j
    Next i




 
End Sub

Re: Copy and Paste to Last Row

I have it sorted now, thanks for the push in the right direction Cytop.

c.Copy Range("C" & Last_Row + 1)
  Last_Row = Last_Row + 1

Re: Copy and Paste to Last Row

Sorry that didn't work. No change at all.