Add to msg box in excel vba

B

BORUCH

Well-known Member
Joined
Mar 1, 2016
Messages
528
Office Version
  1. 365
Platform
  1. Windows
Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value


Do While Issue <> ""

If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
TextDay = Day(DueDate)
TextMonth = Month(DueDate)
TextYear = Year(DueDate)
MsgBox "Remider:" + " " + Issue + " DUE DATE is : " + TextMonth + "/" + TextDay + "/" + TextYear, vbYesNo, "REMINDER LIST"
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
End If




RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop


End Sub

HI

I found this code online which gives you reminders when you open excel what I would like is to have a button on the msg box "dismiss" or "keep"

if I press “dismiss” it changes that particular Reminder to off, it I press “keep” it keeps it to on
The default is on when I create the reminder on my reminder list sheet

MY REMINDER LIST SHEET LOOKS LIKE THIS
ISSUEDUE DATEREMINDER STATUS
TEST06/19/2017ON

<tbody>
</tbody>
 
Sort by date Sort by votes
Logit said:
.
How about this ?

Code: 
Option Explicit


Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Reminder:" & " " & Issue & " DUE DATE is : " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
            Else
                Exit Sub
            End If
    End If


RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop


End Sub
Click to expand...


ok this is my final code

Option Explicit




Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String




CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"




RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value




Do While Issue <> ""
If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
TextDay = Day(DueDate)
TextMonth = Month(DueDate)
TextYear = Year(DueDate)
Dim answer As Variant
answer = MsgBox("Today's Date:" & " " & Date & " " & vbNewLine & "Entry:" & " " & " " & Issue & vbNewLine & "DUE DATE is : " + TextMonth + "/" + TextDay + "/" + TextYear & vbNewLine & "Yes = OFF " & " | " & " No = KEEP ON ", vbYesNo + vbQuestion, "Choose YES / NO")
If answer = vbYes Then
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 4
Range(CloumnNameRemStatus + RowNrString).Value = "OFF"
Else
Exit Sub
End If
End If




RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop




End Sub

the problem is if i have 10 entries and i hit no "off" on one of them it doesn't continue to the next entry how can i have it continue to the next entry till the last row that said "on"
 
Upvote 0

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.
.
Code: 
Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Reminder:" & " " & Issue & " DUE DATE is : " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Dim x As Integer
                Dim NumRows As Integer
                Application.ScreenUpdating = False
                NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count
                Range("C2").Select
                ' Establish "For" loop to loop "numrows" number of times.
                For x = 1 To NumRows
                   Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
                   ' Selects cell down 1 row from active cell.
                   ActiveCell.Offset(1, 0).Select
                Next
                Application.ScreenUpdating = True
            Else
                Exit Sub
            End If
    End If


RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop


End Sub
 
Upvote 0
ok so that worked perfect
thanks

just one little bug if I have multiple worksheets in the workbook it will not fire or else I closed the workbook while on the specific sheet how can I have this code changed that it should activate the reminder list sheet if there is a “on” in col C
 
Upvote 0
.
Your last comments are somewhat confusing. I have the code placed in the ThisWorkbook module so it runs whenever the workbook is opened and it makes no difference
how many sheets are in the workbook. In my example here, the table of data :

ISSUE​
DUE DATE​
REMINDER STATUS​
TEST
6/19/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/21/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/17/2017​
ON​
TEST
6/23/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/24/2017​
ON​
TEST
6/25/2017​
ON​

<tbody>
</tbody>


Is on Sheet1 and there is also a Sheet2 and a Sheet3.

It runs as expected here.


You could try this variation of the code and see if it clears things up for you :


Code: 
Option Explicit


Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value

[SIZE=4][B]With Sheets("Sheet1")[/B][/SIZE]


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Reminder:" & " " & Issue & " DUE DATE is : " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Dim x As Integer
                Dim NumRows As Integer
                Application.ScreenUpdating = False
                NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count
                Range("C2").Select
                ' Establish "For" loop to loop "numrows" number of times.
                For x = 1 To NumRows
                   Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
                   ' Selects cell down 1 row from active cell.
                   ActiveCell.Offset(1, 0).Select
                Next
                Application.ScreenUpdating = True
            Else
                Exit Sub
            End If
    End If


RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop


[B][SIZE=4]End With[/SIZE]

[/B]
End Sub

The two lines in bold were added.
 
Upvote 0
Logit said:
.
Your last comments are somewhat confusing. I have the code placed in the ThisWorkbook module so it runs whenever the workbook is opened and it makes no difference
how many sheets are in the workbook. In my example here, the table of data :

ISSUE​
DUE DATE​
REMINDER STATUS​
TEST
6/19/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/21/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/17/2017​
ON​
TEST
6/23/2017​
ON​
TEST
6/19/2017​
ON​
TEST
6/24/2017​
ON​
TEST
6/25/2017​
ON​

<tbody>
</tbody>


Is on Sheet1 and there is also a Sheet2 and a Sheet3.

It runs as expected here.


You could try this variation of the code and see if it clears things up for you :


Code: 
Option Explicit


Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value

[SIZE=4][B]With Sheets("Sheet1")[/B][/SIZE]


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Reminder:" & " " & Issue & " DUE DATE is : " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Dim x As Integer
                Dim NumRows As Integer
                Application.ScreenUpdating = False
                NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count
                Range("C2").Select
                ' Establish "For" loop to loop "numrows" number of times.
                For x = 1 To NumRows
                   Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
                   ' Selects cell down 1 row from active cell.
                   ActiveCell.Offset(1, 0).Select
                Next
                Application.ScreenUpdating = True
            Else
                Exit Sub
            End If
    End If


RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop


[B][SIZE=4]End With[/SIZE]

[/B]
End Sub

The two lines in bold were added.
Click to expand...


OK i'm sorry for not explaining myself more and i do appreciate you helping me here

the problem is if you select another sheet (not the sheet that has the reminders in it ) and then you exit excel,and then you reopen the file the on open event does not fire

maybe you can give me some code that if the word "on" exits in the reminder sheet in col "c" then it should activate the reminder sheet and then run the pop ups something in that area
 
Upvote 0
.
It sounds like you've placed the macro into the wrong location ? I purposely went to Sheet3 here, saved the workbook, closed and re-opened and it
still opens to Sheet1 and runs the macro.

Refer to image :

https://www.amazon.com/clouddrive/s...ktKKaJK0xVuZ2BYiyi?ref_=cd_ph_share_link_copy

If the macro is located in the ThisWorkbook module, then add these two lines of code at the very top as shown :

Code: 
Option Explicit

Private Sub Workbook_Open()

[B][COLOR=#ff0000]Sheets("Sheet1").Select[/COLOR][/B]
[B][COLOR=#ff0000]Sheets("Sheet1").Range("A1").Select[/COLOR][/B]

Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
 
Last edited:
Upvote 0
Logit said:
.
It sounds like you've placed the macro into the wrong location ? I purposely went to Sheet3 here, saved the workbook, closed and re-opened and it
still opens to Sheet1 and runs the macro.

Refer to image :

Amazon Drive

If the macro is located in the ThisWorkbook module, then add these two lines of code at the very top as shown :

Code: 
Option Explicit

Private Sub Workbook_Open()

[B][COLOR=#ff0000]Sheets("Sheet1").Select[/COLOR][/B]
[B][COLOR=#ff0000]Sheets("Sheet1").Range("A1").Select[/COLOR][/B]

Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Click to expand...


Hi
i would like to make some modification to my code here if you can help me i would greatly appreciated

Code: 
Option Explicit
Private Sub Workbook_Open()


Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String
Dim colchanged As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"
colchanged = "E"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value


With Sheets("REMINDER LIST ")


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= -30) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Today's Date:" & " " & Date & " "
          Msg = Msg & vbNewLine & vbNewLine & "Entry:" & " " & Issue & vbNewLine & vbNewLine & "DUE DATE is: " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Dim x As Integer
                Dim NumRows As Integer
                Application.ScreenUpdating = False
                NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count
                Range("C2").Select
                ' Establish "For" loop to loop "numrows" number of times.
                For x = 1 To NumRows
                   Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
                   
                   ' Selects cell down 1 row from active cell.
                   ActiveCell.Offset(1, 0).Select
                   
                Next
                Application.ScreenUpdating = True
            Else
                Range(CloumnNameRemStatus + RowNrString).Value = "OFF"
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 4
Range(colchanged + RowNrString).Value = Application.UserName
            End If
    End If




RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop
End With
Sheets("a").Select
End Sub
#1 i'm getting an overflow error at this code (NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count) its happening if there is only one reminder in the list

#2 In column "D" i'm capturing the user name of the person who created the reminder, if possible to modify the code that it should only show me reminders for the user that has this workbook open, not all reminders in the reminders sheet.
Something like (if application .user name = anything in column D then it should only show me his reminders

thanks
 
Upvote 0
BORUCH said:
Hi
i would like to make some modification to my code here if you can help me i would greatly appreciated

Code: 
Option Explicit
Private Sub Workbook_Open()


Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String
Dim colchanged As String


CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"
colchanged = "E"


RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value


With Sheets("REMINDER LIST ")


Do While Issue <> ""
    If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= -30) Then
        TextDay = Day(DueDate)
        TextMonth = Month(DueDate)
        TextYear = Year(DueDate)
        
        Dim answer As Variant
        Dim Msg As String, Title As String
        Dim Config As Integer, Ans As Integer
        
          Msg = "Today's Date:" & " " & Date & " "
          Msg = Msg & vbNewLine & vbNewLine & "Entry:" & " " & Issue & vbNewLine & vbNewLine & "DUE DATE is: " & TextMonth & "/" & TextDay & "/" & TextYear
          Msg = Msg & vbNewLine & vbNewLine
          Msg = Msg & "Yes = KEEP  " & "  |  " & "  No = DISMISS"
          Title = "Choose YES / NO"
          Config = vbYesNo + vbQuestion
          answer = MsgBox(Msg, Config, Title)
          
            If answer = vbYes Then
                Dim x As Integer
                Dim NumRows As Integer
                Application.ScreenUpdating = False
                NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count
                Range("C2").Select
                ' Establish "For" loop to loop "numrows" number of times.
                For x = 1 To NumRows
                   Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
                   
                   ' Selects cell down 1 row from active cell.
                   ActiveCell.Offset(1, 0).Select
                   
                Next
                Application.ScreenUpdating = True
            Else
                Range(CloumnNameRemStatus + RowNrString).Value = "OFF"
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 4
Range(colchanged + RowNrString).Value = Application.UserName
            End If
    End If




RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop
End With
Sheets("a").Select
End Sub
#1 i'm getting an overflow error at this code (NumRows = Range("C2", Range("C2").End(xlDown)).Rows.Count) its happening if there is only one reminder in the list

#2 In column "D" i'm capturing the user name of the person who created the reminder, if possible to modify the code that it should only show me reminders for the user that has this workbook open, not all reminders in the reminders sheet.
Something like (if application .user name = anything in column D then it should only show me his reminders

thanks
Click to expand...


Any updates to my questions
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Solved
Run-time error '13' VBA Code
Replies
9
Views
471
Peter_SSs
Peter_SSs
R
  • Solved
Letter Log Reminder with condition in other cells.
Replies
8
Views
331
Micron
M
R
  • Question
Letters Log Due Date Reminder
Replies
2
Views
242
Rayreloj10
R
C
  • Question
Copy and paste data through multiple workbooks
Replies
2
Views
184
CDaviess
C
S
  • Question
VBA Combo Box populating based on entry in another Combo Box and filtered by another column
Replies
1
Views
75
skciws
S

Forum statistics

Threads
1,214,651
Messages
6,120,738
Members
448,988
Latest member
BB_Unlv

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top