User Posts: Bhubon Costa
0
How to Add Notes in Excel Formula (4 Effective Ways)
1

You can use notes or comments in a cell to help you better understand a formula and specify its significance. There are a few different ways to add notes or ...

0
How to Make a Relative Frequency Table in Excel (with Easy Steps)
0

We frequently need to determine how vital and influential a specific range is. The relative frequency of a data set can be used to measure the effect of a ...

0
How to Populate an Excel Spreadsheet from a Web Form
0

When we conduct surveys and must export the data into a spreadsheet, we have a lot of work to do. Let’s say you have to make entries for a survey of about 1 ...

0
How to Update a Pivot Table Automatically When Source Data Changes
0

When you need to refresh or update data in an existing PivotTable after creating it, you must use the Change Data Source command. However, manually updating ...

0
Excel VBA: Save Workbook without a Prompt (with Easy Steps)
0

When saving a Macro file in the exact location as before, it always prompts you to replace the file with an alert message. It can be inconvenient when you have ...

0
How to Calculate Projected Sales in Excel (2 Easy Ways)
0

In statistical analysis, we frequently need to predict results in order to plan ahead of time. Excel has some analytical functions and features for doing ...

0
How to Add Symbol Before a Number in Excel (3 Ways)
0

Excel has a multitude of symbols to choose from. When combined with a number, special characters or symbols have different meanings. In most cases, you won't ...

0
How to Calculate Standard Error of Regression in Excel (with Easy Steps)
0

We use regression analysis when we have data from two variables from two different sources and want to build a relationship between them. Regression analysis ...

0
How to Download Historical Stock Data into Excel (with Easy Steps)
0

You'll need historical stock data from companies all over the world to perform financial stock analysis. With the blessings of Excel, you can easily download ...

0
How to Calculate Covariance Matrix in Excel (with Easy Steps)
0

In statistical analysis, covariance is an analysis of the relationship between changes in one variable and changes in another. It's a metric for determining ...

0
How to Stop Excel from Rounding Up Decimals (4 Easy Methods)
0

We frequently round Excel numbers to make them easier to understand. However, when working with sensitive data, it can be inaccurate. Simple fractional changes ...

0
Send Reminder Email Automatically from an Excel Worksheet Using VBA
0

In the banking or financial system, you might have to deal with a lot of clients. So, you have to deal with lots of information. That’s why you might need to ...

0
Connect Slicer to Multiple Pivot Tables from Different Data Source
0

In PivotTable, the Slicer is used to construct a link between fields that are comparable. It's a fantastic tool for comparing and analyzing data. In this ...

0
[Solved]: All Excel Files Opening as Read Only (6 Solutions)
0

Occasionally, when opening an Excel file, an alert message appears informing you that the file is read-only. When you see the message several times, you may ...

0
How to Send Email from Excel List (2 Effective Ways)
0

When you need to send a mass email to a large group of people, you'll need an automated process that can handle repetitive tasks quickly. Creating an Excel ...

Browsing All Comments By: Bhubon Costa
  1. Greetings Lalit,
    Pleased to hear that your previous query has been resolved.

    We have created an Excel file for you to add different subjects. Just download the file and run the code of Module 1.

    https://www.exceldemy.com/wp-content/uploads/2022/08/Send_Email_Reminder_Lalit.xlsm

    1. You will get an input box to select the subject column as shown in the image below.

    1

    2. Therefore, you will see the emails on display before sending them, with the selected different subjects.

    2

    Please feel free to ask more queries. Our ExcelDemy Team will reach you as soon as possible.

  2. Greetings Lalit,
    You just have to add two lines in between the xMailSections portion:
    Steps:
    1. Add the file path of your attachment with the attachment name.
    2. Apply add attachment command to add the attachment.

    Attached_File = "C:\Users\USER\Downloads\Send_Email_Reminder.xlsm"
    .Attachments.Add Attached_File

    Please, see the image below for a detailed understanding.

    1

    After running the code, you will see results with the attachment available.

    2

    Moreover, we have a dedicated article based on your requirement. Please, go through the article to learn in detail.

    Hope, this will meet your requirement. Please, give us feedback if any furthur query needed. The ExcelDemy team is always in your assistance.

  3. Greetings Emma,
    Let’s us know some info at first.
    1. Can you access the other methods to paste values only?
    2. Can you replace data in a non-blank cell?
    We have gone through every possible solution but couldn’t match the issue exactly. If you kindly share your excel file with us, we will send it back with the solution.
    Email: [email protected]
    Our dedicated ExcelDemy Team is always there to help.

  4. Greetings DANA,
    To update the result after each entry you make, you just need to edit a one-line VBA code. It will update the table range each time you make a new entry in column B.

    The VBA Code:

    Set TableRng = Range(Range("B5"), Range("B5").End(xlDown))

    Now, make new entries and run the program to update the result.
    Hope this will work for you. Please give us feedback if you have any further queries.

  5. Thanks a lot for your appreciation. You can also put your problems here, the ExcelDemy team is always in your assistance.

  6. Thank you MOE, for your generous appreciation!

  7. Greetings Justin,
    #VALUE error occurs when the function doesn’t find any recognized source value. It might have occurred if the degree values were not in degree formats. Follow the steps below to convert the value into degree format first and then apply the function Convert_to_Decimal with our VBA.

    Step 1:
    Add a degree (°) symbol after a number with a keyboard shortcut.

    Alt + 0176

    (Example: 32°).

    Step 2:
    Add a minute (‘) symbol after the minute’s value with the apostrophe (‘) key from the keyboard (Example: 16’).

    Step 3:
    Add a second (“) symbol after the second’s value by pressing

    SHIFT + Apostrophe (')

    (Example: 48″)

    Step 4:
    Your degree format will show like (32°16’48”).
    Finally, apply the Convert_to_Decimal function to the degree value.

    Hope this will work with your issue. You can also mail us the Excel file. We will provide the Excel file with the required solution. Please give us your further feedback.

  8. Greetings David,
    Thanks for your valuable suggestion.

  9. Greetings Nishant,
    To get emails one day prior the deadline date, try the following codes below.

    We just edited the code in the If condition by replacing 1 with 0.

    Previous code:

    If CDate(xValDateRng) - Date <= 7 And CDate(xValDateRng) - Date > 0 Then
                xValSendRng = XRcptsEmail.Offset(k - 1).Value

    Modified Code:

    If CDate(xValDateRng) - Date <= 7 And CDate(xValDateRng) - Date > 1 Then
                xValSendRng = XRcptsEmail.Offset(k - 1).Value

    Please, give us feedback, if any further query needed. The ExcelDemy team is always in your assistance.

  10. Greetings,
    According to your query, the ExcelDemy team has created an Excel file with the solution. Please provide your email address here, we will send it to you in no time.

    Otherwise, you can just follow the procedures as we have proceeded.

    Step 1:
    a. Our data set range is B4:F8.
    b. The names of the fruits range is C4:F4.
    c. Names of people range is B5:B8.

    Step 2:
    a. In cell C11, create a drop-down list with the range C4:F4.
    b. Give a named range for the numbers of each fruit with its name (Ex: Named range = Mango for C5:C8).
    c. Create another dropdown list dependant to the cell C11. Use the following formula in the Data Validation box from the Data tab to do this.

    =INDIRECT($C$11)

    Step 3:
    a. In cell C15, insert the following formula for Mango.

    =INDEX($B$5:$F$8,IF(IF($C$11=C4,MATCH(C4,$B$4:$F$4,0)," ")=(MATCH($C$11,$B$4:$F$4,0)),MATCH($D$11,C5:C8,0), " "),1)

    b. AutoFill the formula with dragging right for three cells for more three fruits.

    Step 4:
    a. Now, you are done, select any name (Grapes) from the first drop-down list.
    b. Then, select the number (6).
    c. It will result in the person name (Kent).

    Please, provide your further feedback if any queries needed.

  11. Greeting AIN,
    Let’s say you want to add another column containing the CC email addresses. You can just copy the codes from here. Moreover, if you want to get the Excel file containing the codes, just give your email address.

    Public Sub SendReminderMail()
    'Declare the variables
        Dim XDueDate As Range
        Dim XRcptsEmail As Range
        Dim xMailContent As Range
        Dim xRngDn As Range
        Dim xCrtOut As Object
        Dim xValDateRng As String
        Dim xValSendRng As String
        Dim k As Long
        Dim xMailSections As Object
        Dim xFinalRw As Long
        Dim CrVbLf As String
        Dim xMsg As String
        Dim xSubEmail As String
    'Declare variables for additional column
        Dim xCCEmail As String
        Dim xCCContent As Range
        
        On Error Resume Next
        
        'To select the date column insert a input box
        Set XDueDate = Application.InputBox("Select the column for Deadline/Due Date date column:", "ExcelDemy", , , , , , 8)
        If XDueDate Is Nothing Then Exit Sub
        
        'Insert a input box for selecting the recipients
        Set XRcptsEmail = Application.InputBox("Choose the column for the email addresses of the recipients:", "ExcelDemy", , , , , , 8)
        If XRcptsEmail Is Nothing Then Exit Sub
        
        'To enter the text mail, insert a input box
        Set xMailContent = Application.InputBox("In your email, choose the column with the reminded text:", "ExcelDemy", , , , , , 8)
        If xMailContent Is Nothing Then Exit Sub
        
        'To enter the CC mails in another column, insert a input box
        Set xCCContent = Application.InputBox("In your email, choose the column with the CC addresses:", "ExcelDemy", , , , , , 8)
        If xCCContent Is Nothing Then Exit Sub
        
        
        
        'Count rows for the due dates
        xFinalRw = XDueDate.Rows.Count
        Set XDueDate = XDueDate(1)
        Set XRcptsEmail = XRcptsEmail(1)
        Set xMailContent = xMailContent(1)
        Set xCCContent = xCCContent(1)
        
        'Set command to open MS Outlook Application
        Set xCrtOut = CreateObject("Outlook.Application")
        
        'Apply For loop to conduct the operation in each row one by one
        For k = 1 To xFinalRw
            xValDateRng = ""
            xValDateRng = XDueDate.Offset(k - 1).Value
            
            'Apply If condition for the Due Date values
            If xValDateRng <> "" Then
            
            'Condition set to send mail if the difference between due dates and current date is greater than 1 and less than 7 days
            'Means 1 < X< 7, X = Due Date - Current Date
            If CDate(xValDateRng) - Date <= 7 And CDate(xValDateRng) - Date > 0 Then
                xValSendRng = XRcptsEmail.Offset(k - 1).Value
                
                'Create the cc emails with the required variables
                xCCEmail = xCCContent.Offset(k - 1).Value
                
                'Create the subject, body and text contents with the required variables
                xSubEmail = xMailContent.Offset(k - 1).Value & " on " & xValDateRng
                
                CrVbLf = "<br><br>"
                xMsg = "<HTML><BODY>"
                xMsg = xMsg & "Dear " & xValSendRng & CrVbLf
                xMsg = xMsg & "Text : " & xMailContent.Offset(k - 1).Value & CrVbLf
                xMsg = xMsg & "</BODY></HTML>"
                
                'Create the email
                Set xMailSections = xCrtOut.CreateItem(0)
                
                'Define the position to place the Subject, Body and Recipients Address
                With xMailSections
                    .Subject = xSubEmail
                    .To = xValSendRng
                    .CC = xCCEmail
                    .HTMLBody = xMsg
                    .Display
                    
                    '.Send
                
                End With
                Set xMailSections = Nothing
            End If
        End If
        Next
        Set xCrtOut = Nothing
    End Sub
    
    

    Hope this will work with your requirements.
    Please, keep giving your feedbacks. The ExcelDemy team is always concerned about your queries.

  12. ‘Thank you Dan for your comment. Let’s just your first row is 2 and last row is 7.

    ‘First condition: G = “BID”, H <= 10000.00, I = "Orders, Web" OR ="cXML Orders"

    Sub Hide_Condition1()
    Dim i As Integer
        For i = 2 To 5
    ' Cells (i,7) here 7 means G column and i will be 2, so it will be G2 cell and so on
            If Cells(i, 7).Value = "BID" And Cells(i, 8).Value <= 10000 And _
            (Cells(i, 9).Value = "Orders, Web" Or Cells(i, 9).Value = "cXML Orders") Then
                Rows(i).EntireRow.Hidden = True
            Else
                Rows(i).EntireRow.Hidden = False
            End If
        Next i
    End Sub

    ‘Second condition: G =”MO”, H <10000.00

    Sub Hide_Condition_2()
    Dim i As Integer
        For i = 2 To 5
            If Cells(i, 7).Value = "MO" And Cells(i, 8).Value <= 10000 Then
    
                Rows(i).EntireRow.Hidden = True
            Else
                Rows(i).EntireRow.Hidden = False
            End If
        Next i
    End Sub

    ‘Last Condition: G <10000.00, Apply Color

    Sub Hide_Condition_3()
    Dim i As Integer
        For i = 2 To 5
            If Cells(i, 7).Value < 10000 Then
            Cells(i, 7).Interior.Color = RGB(253, 233, 217)
            End If
        Next i
    End Sub

    ‘Hope this answer your query.

  13. First of all, take cordial greetings from the ExcelDemy team. There could be some possible reasons due to the issue:
    The inverted commas are not properly inserted in your code as they should be in VBA script.
    The Sheet Names might not be inserted in VBA exactly as they are in the Excel file.
    However, we have created an Excel file precisely in accordance with your requirements. We can send the Excel file if you provide your email address.
    Otherwise, you can copy the codes below that we have used to make the Excel file with the right syntax. Please continue to provide us with feedback; ExcelDemy always welcomes your concerns.

    Sub MoveRowBasedOnCellValue()
    ‘Declare Variables
    Dim MAIN As Worksheet
    Dim Project As Worksheet
    Dim Claims As Worksheet
    Dim TaM As Worksheet
    Dim QUOTED As Worksheet
    Dim PM As Worksheet
    Dim FinalRow As Long
    Dim Cell As Range

    ‘Set Variables
    Set MAIN = Sheets(“Dataset2”)
    Set Claims = Sheets(“CLAIMS”)
    Set Project = Sheets(“Project”)
    Set TaM = Sheets(“TaM”)
    Set PM = Sheets(“PM”)
    Set QUOTED = Sheets(“QUOTED”)

    ‘Type a Command to select the entire row
    Selection.EntireRow.Select

    ‘Define destination sheets to move row
    FinalRow1 = MAIN.Range(“A” & MAIN.Rows.Count).End(xlUp).Row
    FinalRow2 = Claims.Range(“A” & Claims.Rows.Count).End(xlUp).Row
    FinalRow3 = Project.Range(“A” & Project.Rows.Count).End(xlUp).Row
    FinalRow4 = TaM.Range(“A” & TaM.Rows.Count).End(xlUp).Row
    FinalRow5 = QUOTED.Range(“A” & QUOTED.Rows.Count).End(xlUp).Row
    FinalRow6 = PM.Range(“A” & PM.Rows.Count).End(xlUp).Row
    With MAIN

    ‘Apply loop for column F until last cell with value
    For Each Cell In .Range(“F1:F” & .Cells(.Rows.Count, “F”).End(xlUp).Row)

    ‘Apply condition to match the “CLAIMS” value
    If Cell.Value = “CLAIMS” Then

    ‘Command to Copy and move to a destination Sheet “CLAIMS”
    .Rows(Cell.Row).Copy Destination:=Claims.Rows(FinalRow2 + 1)
    FinalRow2 = FinalRow2 + 1

    ‘Apply condition to match the “PROJECT” value
    ElseIf Cell.Value = “EQUIPMENT PROJECT” Then

    ‘Command to Copy and move to a destination Sheet “PROJECT”
    .Rows(Cell.Row).Copy Destination:=Project.Rows(FinalRow3 + 1)
    FinalRow3 = FinalRow3 + 1

    ‘Apply condition to match the “PROJECT” value
    ElseIf Cell.Value = “CONTRACTING PROJECT” Then

    ‘Command to Copy and move to a destination Sheet “PROJECT”
    .Rows(Cell.Row).Copy Destination:=Project.Rows(FinalRow3 + 1)
    FinalRow3 = FinalRow3 + 1

    ‘Apply condition to match the “TaM” value
    ElseIf Cell.Value = “T&M” Then

    ‘Command to Copy and move to a destination Sheet “TaM”
    .Rows(Cell.Row).Copy Destination:=TaM.Rows(FinalRow4 + 1)
    FinalRow4 = FinalRow4 + 1

    ‘Apply condition to match the “Quoted” value
    ElseIf Cell.Value = “QUOTED” Then

    ‘Command to Copy and move to a destination Sheet “QUOTED”
    .Rows(Cell.Row).Copy Destination:=QUOTED.Rows(FinalRow5 + 1)
    FinalRow5 = FinalRow5 + 1

    ‘Apply condition to match the “SVC AGR” value
    ElseIf Cell.Value = “SVC AGR” Then

    ‘Command to Copy and move to a destination Sheet “PM”
    .Rows(Cell.Row).Copy Destination:=PM.Rows(FinalRow6 + 1)
    FinalRow6 = FinalRow6 + 1
    End If

    Next Cell

    End With

    End Sub

ExcelDemy
Logo