Alok Paul

About author

Alok Paul has completed his B.Sc. in Electronics and Telecommunication Engineering from East West University. He has been working on the ExcelDemy project for more than 2 years. He has written 220+ articles and replied to numerous comments. He is experienced in Microsoft Office, especially in Excel. He also led some teams on Excel and VBA content development. He has a keen interest in Advanced Excel, Data analysis, Excel Pivot Table, Charts, and Dashboard. He loves to research and read books in his free time.

Designation

Team Leader at ExcelDemy in SOFTEKO.

Lives in

Dhaka, Bangladesh.

Education

B.sc in Electronic & Telecommunication Engineering (ETE), East West University.

Expertise

Content Writing, Microsoft Office, Optical Fiber communication system design, Network monitoring.

Experience

  • Technical Content Writing
  • Team Management
  • Engineer (ISP)
    • Monitor network.
    • Troubleshoot and identify the network-related problem.
    • Guide the responsible team to solve a problem.
  • Engineer (NTTN)
    • Making Excel files for dumping data in Connect Master software.
    • Prepare data sheet as per survey report and transfer to Connect Master software.
    • Create Trench according to as built, Fiber cable according to the cable loop diagram, local distribution point (LDP), pits (Handhole), coupler, and splitter.
    • Fiber plan for underground and overhead connection.
    • Plan and create FTTX network.
    • Plan T-joint for new connectivity.
  • Academic Thesis
    • Performance Evaluation of 16, 32, 64, 128, 256-QAM Modulation Schemes in a VCSEL Based Single Mode Optical Link
    • Optimization of layer thickness and doping density of different layers of CdS-CdTe p-i-n Solar Cell for enhanced efficiency

Summary

  • Currently working as Team Leader of ExcelDemy.
  • Started technical content writing of Excel & VBA in October 2021 later prompted as Team Leader for Content Management.
  • I worked at Fiber@Home Limited as a Trainee Officer from April 2019 to February 2020 and ADN Telecom Limited as a Trainee Engineer from March 2020 to September 2020.

Research & Publication

Latest Posts From Alok Paul

0
How to Find Value in Column in Excel (4 Methods)

Let's take a dataset of some customers in a Super shop with the Customer ID, shopping Amount on a particular date, and also a Total if they bought anything ...

0
How to Create Multiple Lines in a Single Cell (4 Methods)

Dataset Overview In our dataset, within the first column labeled Test Line, we encounter longer text that doesn’t fit neatly into individual cells. Let’s ...

0
How to Edit a Named Range in Excel

There is a spelling mistake in the named range: Brnd.   How to Edit the Name of a Named Range? To change the Named Range Brnd to Brand: ...

0
How to Automatically Copy Data from One Cell to Another in Excel (4 Methods)

Below is a dataset of a company's Weekly Sales Report. Method 1 – Using Cell Reference  1.1 Copying Data to the Same Sheet Steps: Select the ...

0
How to Reference to Another Sheet in Excel (5 Suitable Methods)

  Download Practice Workbook Download this practice sheet to exercise while you are reading this article. Referencing Another Sheet.xlsx 5 ...

0
How to Copy Multiple Sheets to a New Workbook in Excel (4 Methods)

  Method 1 - Applying Move or Copy Command Steps: Select the worksheets of your source workbook. Our dataset has two sheets, "Data 1" and "Data ...

0
Formula to Find Duplicates in Excel (6 Suitable Examples)

  Method 1 - Using Logical Formula with COUNTIF to Find Duplicates in One Column in Excel Consider a column of item names like fruits in column B, ...

0
How to Copy and Paste Without Changing the Format in Excel: 4 Methods

Method 1 - Quickest Method: Use the ‘Keep Source Column Widths (W)’ Command Step 1: Select source cells B6:C16 and press Ctrl+C to copy them. 3 Ways ...

0
Excel INDEX MATCH Formulas with Returning Multiple Matches

Here we have a sales dataset consisting of the following columns:  Brand, Device Type, Model No. and Units Sold. We want to get all results from the Model No. ...

Browsing All Comments By: Alok Paul
  1. Dear CC,
    Thank you very much for reading our articles.
    You have requested an updated VBA code to retain borders as well. Please try the provided VBA code below; it preserves borders.

    
    Sub RemoveConditionalFormattingButKeepFormat()
        ' Loop through each cell in the selected range
        For Each cell In Selection
            ' With block to refer to the current cell
            With cell
                ' Copy font color from the display format to the cell
                .Font.Color = .DisplayFormat.Font.Color
    
                ' Copy border settings from the display format to the cell
                .Borders.LineStyle = .DisplayFormat.Borders.LineStyle
    
                ' Copy interior settings from the display format to the cell
                .Interior.Pattern = .DisplayFormat.Interior.Pattern
    
                ' If the interior pattern is not xlNone (no pattern), copy additional interior settings
                If .Interior.Pattern <> xlNone Then
                    .Interior.PatternColorIndex = .DisplayFormat.Interior.PatternColorIndex
                    .Interior.Color = .DisplayFormat.Interior.Color
                End If
    
                ' Copy TintAndShade settings from the display format to the cell
                .Interior.TintAndShade = .DisplayFormat.Interior.TintAndShade
    
                ' Copy PatternTintAndShade settings from the display format to the cell
                .Interior.PatternTintAndShade = .DisplayFormat.Interior.PatternTintAndShade
            End With
        Next
    
        ' Delete all format conditions from the selected range
        Selection.FormatConditions.Delete
    End Sub
    

    Best Regards,
    Alok
    Team ExcelDemy

  2. Hi RED,
    Thanks for reading our articles. Hope you are doing well.
    You want to copy the rows of data without the header row duplicated on each worksheet.
    There may be two situations:
    Case 1: The header row will not exist in any of the split worksheets.
    Case 2: The header row will exist on the first split worksheet.
    For Case 1: Change the 13th line of the current VBA code from title = “A1” to title = “A2”. After making this adjustment and running the VBA, the header row will not be visible in the split worksheets.
    For case 2: We added a variable named isFirstSheet to distinguish the first split sheet, displaying the header row, and excluding it from subsequent sheets. Employ the updated VBA code provided below:

    
    Sub Split_Data()
        Dim L, XCL As Long
        Dim DS As Worksheet
        Dim VCL, X, titlerow As Integer
        Dim MARY As Variant
        Dim title As String
        Dim isFirstSheet As Boolean
        Application.ScreenUpdating = False
        VCL = Application.InputBox(prompt:="Which column would you like to filter by?", title:="Filter column", Type:=1)
        Set DS = ActiveSheet
        L = DS.Cells(DS.Rows.Count, VCL).End(xlUp).Row
        title = "A1"
        titlerow = DS.Range(title).Cells(1).Row
        XCL = DS.Columns.Count
        DS.Cells(3, XCL) = "Unique"
        isFirstSheet = True
        For X = 2 To L
            On Error Resume Next
            If DS.Cells(X, VCL) <> "" And Application.WorksheetFunction.Match(DS.Cells(X, VCL), DS.Columns(XCL), 0) = 0 Then
                DS.Cells(DS.Rows.Count, XCL).End(xlUp).Offset(1) = DS.Cells(X, VCL)
            End If
        Next
        MARY = Application.WorksheetFunction.Transpose(DS.Columns(XCL).SpecialCells(xlCellTypeConstants))
        DS.Columns(XCL).Clear
        For X = 2 To UBound(MARY)
            DS.Range(title).AutoFilter field:=VCL, Criteria1:=MARY(X) & ""
            If Not Evaluate("=ISREF('" & MARY(X) & "'!A1)") Then
                Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = MARY(X) & ""
                If isFirstSheet Then
                    DS.Rows(titlerow & ":" & L).EntireRow.Copy Sheets(MARY(X) & "").Range("A1")
                    isFirstSheet = False
                Else
                    DS.Range("A" & titlerow + 1 & ":A" & L).EntireRow.Copy Sheets(MARY(X) & "").Range("A2")
                End If
            Else
                Sheets(MARY(X) & "").Move after:=Worksheets(Worksheets.Count)
            End If
        Next
        DS.AutoFilterMode = False
        DS.Activate
        Application.ScreenUpdating = True
    End Sub
    

    Reply of Split Data into Multiple Worksheets in Excel
    We have marked the modified section of the VBA code in the above image.

    Best Regards,
    Alok
    Team ExcelDemy

  3. Hi JAD,
    I hope you are doing well. Thank you very much for reading our articles.
    You want to apply conditional formatting to the minimum value in each row across multiple rows. For that, you need to use a formula in the conditional formatting. Follow the instructions given below:

    1. Select the data range.
    2. Click on the Conditional Formatting drop-down.
    3. Select New Rule to appear Edit Formatting Rule window.
      Go to the New Rule of Conditional Formatting
    4. In the Edit Formatting Rule window:
      • • Go to Select a Rule Type > Use a formula to determine which cells to format.
      • • Insert the following formula into the “Format values where this formula is true” box: =C5=MIN($C5:$E5)
      • • Set a color to highlight using the Format button.
      • • Finally, press OK.

      Insert a formula to apply Conditional formatting

    You can see minimum values of each row have been highlighted.
    Minimum values have been highlighted after applying Conditional Formatting

    Regards,
    Alok Paul
    ExcelDemy Team

  4. Hi JASON,
    Thanks for reading our articles. You have mentioned that you are getting negative hours due to overnight. You can solve this easily. Insert the following formula on cell G17:
    =24-((C17-F17)-(D17-E17))*24
    Hope, this will help you to solve your problem. Please let us know if you have other queries.
    Thanks!
    Alok, ExcelDemy

  5. Dear Tom,
    Thanks for reading our articles. Here, you queried that you want an Excel sheet based on VBA to input values for 4 users in separate specified range. Those cells are locked with different passwords for each user.
    Here, we have set User 1 with range B5:C10 and password: passuser1, User 2 with range E5:F10 and password: passuser2, User 3 with range H5:I10 and password: passuser3, User 4 with range K5:L10 and password: passuser4.

    Image1

    Based on the above information our VBA code will be as follow.

    
    Sub Protect_Multiple_Range_with_Password_for_Specific_User()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'change accordingly
    
    Dim i As Integer
    For i = ws.Protection.AllowEditRanges.Count To 1 Step -1
        ws.Protection.AllowEditRanges(i).Delete
    Next i
    
    ' Define the ranges and passwords
        rangeAddresses = Array("B5:C10", "E5:F10", "H5:I10", "K5:L10") ' Add or modify ranges as needed
        passwords = Array("passuser1", "passuser2", "passuser3", "passuser4") ' Add or modify passwords as needed
    
    'Unlocking Sheet if already locked
    If ws.ProtectContents = True Then
    ws.Unprotect Password:=1234 'change accordingly
    End If
    
        For i = LBound(rangeAddresses) To UBound(rangeAddresses)
            ws.Protection.AllowEditRanges.Add Title:="Range_" & CStr(i + 1), Range:=ws.Range(rangeAddresses(i)), Password:=passwords(i)
            ws.Range(rangeAddresses(i)).Locked = True
        Next i
     MsgBox "Multiple ranges have been set for different users with different passwords using AllowEditRanges feature.", vbInformation
     
     'again Locking the sheet with master password 1234
    ws.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    End Sub
    

    • When you double-click on any cell specified for any user a window named Unlock Range will pop-up. Insert the password and click on OK to edit the range of the user.

    Image2

    • But if you click on any cell that is not associated with any user then you will get a warning.

    Image3

    We can also unprotect the whole using password: 1234.

    Regards
    Alok

  6. Dear RATAN KUMAR BARMAN,
    Thank you very much for reading our articles. You mentioned that you are unable to convert text files to Excel in separate cells.
    Based on your query, we have checked the Excel file. We found that methods 1, 2, 3, and 5 convert text files to Excel in separate cells by default based on the data of the text file. Also, methods 6 and 7 convert the contents of a text file to Excel based on a separator in separate cells. We suggest you read the article again and apply the Excel following the instructions.

    Regards,
    Alok
    ExcelDemy

  7. Hi D V V NARAYANARAJU,
    Thank you very much for reading our articles.
    In your query, you wanted to know how to return the second highest value which is 12 located at row 2 using the formula.
    You can use the following formula:
    =LARGE($B$5:$B$13,2)

    Get Second highest value with duplicate

    We have inserted the values in the range B5:B13.
    In return, we get 12 which indicates cell B6 which is the 2nd row of the range.
    If you have further queries regarding this topic, then inform us.

    Regards
    Alok
    ExcelDemy

  8. Hi Dennis Ryan,
    Thank you very much for reading our articles. You mentioned that you have modified the code to get texts. But you want to get URLs by Web Scraping with Chrome. You can try the following VBA code for that.

    VBA Macro:

    Sub scraping_web_urls()
    Dim chrm As New ChromeDriver
    Dim objLinks As Object
    Dim objLink As Object
    Dim iRow As Long
    chrm.Get “https://www.exceldemy.com/excel-vba-translate-formula-language/”
    chrm.Wait 4000
    Set objLinks = chrm.FindElementsByTag(“a”)
    iRow = 3
    For Each objLink In objLinks
    ActiveSheet.Cells(iRow, 2).Value = objLink.Attribute(“href”)
    iRow = iRow + 1
    Next objLink
    chrm.Quit
    End Sub

    VBA Macro for web scraping with Google Chrome to get URLs

    Code Breakdown

    Dim chrm As New ChromeDriver, Dim objLinks As Object, Dim objLink As Object, Dim iRow As Long
    1st we declared different variables with type.

    chrm.Get “https://www.exceldemy.com/excel-vba-translate-formula-language/”
    Navigate to a specific web link.

    chrm.Wait 4000
    Waits for 4000 milliseconds or 40 seconds.

    Set objLinks = chrm.FindElementsByTag(“a”)
    Sets the value of the objLinks variable.

    iRow = 3
    Set the value of iRow to 3.

    For Each objLink In objLinks
    ActiveSheet.Cells(iRow, 2).Value = objLink.Attribute(“href”)

    Find each objLink from objLinks. And paste them in the second column of row 3. Here, href is used for getting hyperlinks.

    iRow = iRow + 1
    Increase the value of iRow to move to the next row.

    chrm.Quit
    This tells the ChromeDriver to quit Google Chrome.

    Look at the output. This will extract all the URLs that exist in the given link.

    Output

    More URLs are present in this sheet.

  9. Hi NARASIMHAN S,
    You can copy data as values from the selected worksheets to another workbook using the VBA code. Here, Workbook1 is our source and Workbook2 is our destination Excel file. We want to copy data from Sheet1 of Workbook1. Use the below code on Workbook1.

    VBA Macro to Copy Data of a Sheet into Another Workbook:

    Sub Copy_Sheet_Another_Workbook_1()
    Sheets(“Sheet1”).Copy Before:=Workbooks(“Workbook2.xlsm”).Sheets(1)
    End Sub

    Copy data of a sheet into another workbook

    Code Breakdown

    Sheets(“Sheet1”).Copy Before:=Workbooks(“Workbook2.xlsm”).Sheets(1)
    This will copy Sheet1 of the active workbook (Workbook1) into Workbook2 before 1st sheet. If you want to copy after 1st sheet of Workbook2, use After instead of Before in the VBA code.

    One thing needs to keep in mind, that is both workbooks must be kept open in this case. The destination workbook name is mentioned in the VBA code. But if the source workbook is closed, you can use the VBA code below.

    VBA Macro to Copy Data of a Closed Sheet into Another Workbook:

    Sub Copy_Sheet_Another_Workbook_2()
    Application.ScreenUpdating = False
    Set sourcedBook = Workbooks.Open(“C:\Users\alokp\OneDrive\Desktop\Workbook1.xlsm”)
    sourcedBook.Sheets(“Sheet1”).Copy Before:=ThisWorkbook.Sheets(1)
    sourcedBook.Close SaveChanges:=False
    Application.ScreenUpdating = True
    End Sub

    Copy data of a closed sheet into another workbook

    We applied this VBA code to Workbook2 and Workbook1 is closed. We inserted the location of Workbook1 and mentioned the sheet name in the VBA code. In both cases, we need to mention the source sheet name in the VBA code.

  10. Dear SATHI,
    Thank you very much for reading this article. Here, you have a query to arrange a 4-digit number in a row from the lowest to highest using a formula. We have found a solution for your mentioned problem in the below section.
    ● Look at the below image.

    Insert number for sorting in Excel

    A four-digit number is inserted in the dataset.
    ● First, we will separate the digits of the inserted number using the following formula.
    =MID($B5,COLUMN()-(COLUMN($E4)- 1),1)

    Separate numbers before sorting

    We use the combination of the MID and COLUMN function.

    Formula Explanation:

    COLUMN($E4)
    This will return the column number of the reference.
    Result: 5
    ● COLUMN($E4)-1
    We will subtract 1 from the column number.
    Result: 4
    ● COLUMN()
    It returns the column number of the inserted cell.
    Result: 5
    ● COLUMN()-(COLUMN($E4)-1)
    A subtraction operation will apply here.
    Result: 1
    ● MID($B5,COLUMN()-(COLUMN($E4)- 1),1)
    The MID function will operate here.
    Result: 6

    ● Now, we will sort the separated numbers using the formula based on the SORT function.
    =SORT($E$4:$H$4, ,1,TRUE)

    Use SORT function for sorting numbers
    You can also download the following Excel file for practice.
    Solution Excel Sort Numbers.xlsx

  11. Dear CHARLES DEL MAR,
    Thank you very much for reading our articles. You want to add the page number in the cell following the method Inserting Page Number in Excel Cell. You mentioned that every time you run the code and get “Page 1 of 9”, even in the last cell where it is supposed to show “Page 9 of 9”. Based on your complaint, we checked all the steps and run the VBA code again. We get an accurate result. See the image below.
    Insert Page Number in Cell Not in Header Solution

    I think you need to check the Status Bar at the bottom of the sheet, where the page number shows. We get the same result showing in the Status Bar after running the VBA code.

  12. Hi HASNAIN AHMAD,
    Thank you very much for following our article. You mentioned that even after changing the format of the Date_Time column, it did not work properly. To understand your problem, we follow the full process again and found everything is working properly. We suggest you read the steps again and apply them carefully. Hope you will get the desired result.

  13. Dear PRATIK,
    Thanks very much for reading our articles. You have mentioned that you have different lists in a single sheet. Here, we will show how to declare data validation in different cells with different lists in a single sheet.

    Steps:
    ● Here, we have three different lists of mobile, laptop, and routers. Here, we will introduce different drop-down lists with multiple selections.

    Solution_1

    ● Now, apply data validation as shown in the article already.
    ● We will choose Range B5:B11 at Cell G4, Range C5:C11 at Cell G5, and Range D5:D11 at Cell G6 for the data-validation source.
    ● Choose any item from the drop-down list of Cell G4.

    Solution_3

    ● Similarly, choose items for Cell G5 and G6 from the drop-down list.

    Solution_4

    ● Now, put the following VBA code in the VBA module. After that, save the VBA code.
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String
    On Error GoTo Exitsub
    If Target.Column = 7 Then
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
    Else: If Target.Value = “” Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
    If Oldvalue = “” Then
    Target.Value = Newvalue
    Else
    Target.Value = Oldvalue & “, ” & Newvalue
    End If
    End If
    End If
    Application.EnableEvents = True
    Exitsub:
    Application.EnableEvents = True
    End Sub

    null

    ● Now, choose multiple options from the drop-down list.

    Solution_5

    Here, we changed the Target.Address to Target.Column and put the column number. Also, need to mention the whole column will save the previous result.

  14. Dear JEREMIAH,
    Thanks for following our article. Here, you have mentioned that after an update you are not getting the default Zoom feature of Excel Online. But we are not facing such kind of problem. Also, one thing needs to add that, when we zoom any Excel sheet that will zoom in or out throughout the sheet, not in specific rows or cells. If we want to apply zoom in or out of a specific row or cell, we have to customize the length and width of that row or cell.
    Are you still facing this problem?

  15. Dear RENEE,
    Thanks for following our articles. You mentioned a problem regarding the sheet name. Your sheet name will depend on the value of vcol variable. And one thing the sheets will split depending on the value of the 1st column which is the 1st column of the dataset. And, your provided code is not working due to some mistakes. You have made a mistake by setting the of vcol 7. Set the value of vcol as 1. Furthermore, use the below VBA that will solve your problem correctly.

    Sub parse_data()
    Dim lr As Long
    Dim ws As Worksheet
    Dim vcol, i As Integer
    Dim icol As Long
    Dim myarr As Variant
    Dim title As String
    Dim titlerow As Integer

    ‘This macro splits data into multiple worksheets based on the variables on a column found in Excel.
    ‘An InputBox asks you which columns you’d like to filter by, and it just creates these worksheets.

    Application.ScreenUpdating = False
    vcol = 1
    Set ws = ActiveSheet
    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
    title = “A1”
    titlerow = ws.Range(title).Cells(1).Row
    icol = ws.Columns.Count
    ws.Cells(1, icol) = “Unique”
    For i = 2 To lr
    On Error Resume Next
    If ws.Cells(i, vcol) <> “” And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
    ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
    End If
    Next

    myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
    ws.Columns(icol).Clear

    For i = 2 To UBound(myarr)
    ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & “”
    If Not Evaluate(“=ISREF(‘” & myarr(i) & “‘!1)”) Then
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & “”
    Else
    Sheets(myarr(i) & “”).Move after:=Worksheets(Worksheets.Count)
    End If
    ws.Range(“A” & titlerow & “:A” & lr).EntireRow.Copy Sheets(myarr(i) & “”).Range(“A1”)
    ‘Sheets(myarr(i) & “”).Columns.AutoFit
    Next

    ws.AutoFilterMode = False
    ws.Activate
    Application.ScreenUpdating = True
    End Sub

  16. Mr. Bhavnesh
    Please read the following article and the 1st comment. Hopefully, you will get your answer.
    Creation of a Mortgage Calculator with Taxes and Insurance in Excel
    For further queries, please email us at [email protected].

  17. Hi BHAVNESH,
    Thank you very much for reading our article. For different clients, you can create separate sheets using our Excel template. Yes, it is possible to change the interest rate. Also, that will change all the values accordingly. You can see in the below image, we changed the interest rate from 5% to 6.5%. Due to auto-update, all the values changed automatically.
    Solution

    You can also change other input values marked by 1. You can change the yearly insurance and taxes rate if changes. There is also the option to change the extra payment in Excel. You can use the IPMT function to calculate the interest part only. For penalty, please describe the situation or share your wordbook. After that, we try to solve that problem. You can mail us at [email protected].

  18. Hello KO,
    Thank you very much for your comment. The formula you mentioned in the comment is working smoothly from our side. If you share your workbook, we will be able to find out the solution to your problem. You can mail us at [email protected].

  19. Dear RAZAN,
    Thank you very much for reading our articles. Here, you mentioned that you do not want to get the answer in the form of Yes or No. You want to get the result in numbers. To solve your problem we formed a new formula based on the combination of the SUMPRODUCT, SUBSTITUTE, and LEN functions. Here is the formula:
    =SUMPRODUCT((LEN($B$5:$B$19)-LEN(SUBSTITUTE($B$5:$B$19,$D5,"")))/LEN($D5))

    Solution

    This formula will find out the specific word from the Range B5:B19 and return the sum in number.
    If you want to get the number of a specific word from each cell you can follow this article.
    Excel Formula to Count Specific Words in a Cell (3 Examples)

  20. Hi MIRA,
    It’s a great pleasure that you are watching our articles. You have a query regarding this article. You want to make an Excel sheet, where the dates of the Excel sheet will change according to the sheet name. Yes, you can do this. Read the below steps to get your solution.

    Steps:
    ● First, take an Excel sheet with the Date and Attendance columns.
    Data set
    We will insert dates in the Date column based on the Sheet Name.
    ● Before that, we will form a table that consists of the month’s name and serial number.
    Create Table
    ● Now, go to Cell E5 and put in the following formula.

    =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256)
    Formula to get Sheet name

    It will extract the name of the Sheet which is a month name.

    Formula Explanation:
    CELL(“filename”,A1)
    This finds the location of the Excel file with the Sheet name.
    Result:
    D:\Alok\[Excel-Sheet-Name-From-Cell-Value.xlsx]January

    FIND(“]”,CELL(“filename”,A1))
    This will find out the location of the symbol mentioned in the formula from the location.
    Result: 47

    FIND(“]”,CELL(“filename”,A1))+1
    Add 1 with the previous result.
    Result: 48

    MID(CELL(“filename”,A1),FIND(“]”,CELL(“filename”,A1))+1,256)
    Separate the sheet name from the location.
    Result: January

    ● After that, put the following formula on Cell F5.
    =INDEX(Month,MATCH(E5,Month[Month],0),2)

    Use of INDEX MATCH functions
    This returns the serial number of the month comparing the values of the table.
    ● Now, use the DATE function on Cell B5.

    =DATE(2022,$F$5,1)
    Use of Date Function

    ● Fill up the Date and Attendance columns.
    Fill Up two columns

    ● Now, change the sheet name from January to February and look at the changes that take place in the Date column.
    Change sheet name

    Download File:
    Solution.xlsx
    Regards.
    – Alok Paul
    Author at ExcelDemy

  21. Hi JORGE,
    It’s a bit difficult to answer this, not seeing your spreadsheet. Can you please send a sample to [email protected]?
    Prior to that, check the following Excel file. We have added a 12-month example for you. Let us know if this helps.
    Download Link:
    Solution.xlsx
    Note:
    You must have data of 2021 and 2022 for forecasting 2023.

  22. Hello, JITENDRA!
    Hope you are doing well. You have a query to get the product name and min & max sell price monthly basis. We have to use the following formulas for that.
    For Max values:
    =MAXIFS($E$5:$E$17,$D$5:$D$17,$G$4)

    For Min values:
    =MINIFS($E$5:$E$17,$D$5:$D$17,$G$4)

    For Product Name:
    =INDEX($B$5:$E$17,MATCH($J$6,$E$5:$E$17,0),1)

    INDEX- MATCH Function
    We just need to change the month name of Cell G4. Hope you will get your desired solution. Regards
    -Alok Paul
    Author at ExcelDemy

  23. Hi JUAN MARTIN OPACAK,
    Thanks for reading our articles. We have found a solution to fulfill your requirement. You need to insert the following macros with the existing VBA code.

    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Name = (Worksheets(2).Range("A1").Value) & " " & ActiveSheet.Name

    Here, Worksheets(2).Range(“A1”).Value defines we want to insert the text of Cell A1 of Worksheet 2 with the current sheet name.
    Have a look at the image below, where to insert the mentioned VBA code.
    Split Data

  24. Hi NAYAZ,
    Thanks for following our article. We have checked the article again and found no errors. Please go through the whole article again and create the template. Or you can do this easily by downloading the given template.
    Keep in mind that if you want to import stock prices from any other website, then it will not work. You should use “^NSEI” in the ticker box.
    Let us know if your problem is fixed.
    Regards.
    -Alok Paul
    Author at ExcelDemy

  25. Hello, DANIEL.
    Thanks for reading our articles.
    Look at the below link. Hopefully, you will get your solution.
    https://www.exceldemy.com/extract-data-from-one-sheet-to-another-in-excel-using-vba/

    For example, you can use the following code:

    Sub Extract_Data()
    Selection.Copy
    Sheets("Dataset2").Activate
    Range("F4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    End Sub

    Enter your sheet name instead of Dataset2 in the 3rd line. Change the cell range in the 4th line. Hope you will get desired output. If your problem is yet solved, then let us know.
    Regards.
    -Alok Paul
    Author at ExcelDemy

  26. Hello, CL.
    Of course, it’s possible to solve your mentioned problem!
    You will need to get the ASCII code of the respective keys. Now, open a new Excel file and follow all the steps written in this article, i.e. downloading Barcode fonts 128, installing them, creating a UDF, and the next steps. Now insert the ASCII codes of the respective keys and you will get your desired Barcode. See what we have got.
    Keyboard keys to Barcode
    So, what you need to do yourself, just finding the ASCII codes! What else to do are already mentioned in this article.

    Note: You may need to open a new file because as per the new update of Excel, a VBA code will be disabled in a downloaded xlsm file. Or you can solve the problem following this way.

  27. Hi DAVID,
    Thank you very much for your appreciation. Follow our website ExcelDemy for other problems, and hope you will always get the best solutions.

  28. Hello JEFF WHALE,

    Thank you very much for following our articles.

    You mentioned that your sample code is not working properly. We attached a VBA code that will help you to solve this problem. You need to choose a cell from the dataset that contains an ISBN number when running the code. One thing adding that change the location of Chrome according to your computer.

    And you are getting this 404 error because without any ISBN number, this isbnsearcher.com/books link will show an error by default.

    Sub OpenstrHyperlinkInChrome()
    Dim strChromeLocation As String
    Dim strURL As String
    Dim strISBN As String
    strISBN = Application.InputBox("Please Select Desired Cell", Type:=8)
    strURL = "https://www.isbnsearcher.com/books/" & strISBN
    strChromeLocation = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
    Shell (strChromeLocation & "-url " & strURL)
    End Sub

  29. Hi BARNEY! Hope you are doing well. Thanks for your nice compliments. We are happy to know that the readers find our articles useful.
    However, the problem you are facing is not quite clear from what you have told us. Are you trying to sum up entries that meet specific criteria? In that case, you have to use the SUMIF function if you have to meet just a single criterion. If you have multiple criteria, then you have to use the SUMIFS function. There are more articles in our blog related to these functions. To explore them, scroll down and click on the function tag names.

    If this is not what you are looking for, please let us know more details. You can send me the problem with a sample file at [email protected] or at [email protected].

    Best wishes. Keep staying with us.
    -Alok Paul
    ExcelDemy Team

  30. Hi KATIE WILDER,
    You probably have missed this part. The solution to your problem is already given in the article.
    Click the below link and will get the solution.

    https://www.exceldemy.com/make-excel-read-only-with-password/#Disable_Excel_Read-only-recommended_Option
    If I am not wrong, this is what you are searching for. As far as we know, you cannot undo protection to a password-protected file, but save a copy of it without password protection. If this is not your case, please let us know a bit more details.
    Thanks for being with us.

  31. Hi JEFF! Thanks for your nice compliment. To remove the InputBox and make the code always select Column 1, just remove the InputBox command and variable VCL. After that, replace the VCL with 1.
    You can directly use the following code:

    Sub Split_Data()
    Dim L As Long
    Dim DS As Worksheet
    Dim XCL As Long
    Dim MARY As Variant
    Dim title As String
    Dim titlerow As Integer
    Application.ScreenUpdating = False
    Set DS = ActiveSheet
    L = DS.Cells(DS.Rows.Count, 1).End(xlUp).Row
    title = "A1"
    titlerow = DS.Range(title).Cells(1).Row
    XCL = DS.Columns.Count
    DS.Cells(3, XCL) = "Unique"
    For X = 2 To L
    On Error Resume Next
    If DS.Cells(X, 1) <> "" And Application.WorksheetFunction.Match(DS.Cells(X, 1), DS.Columns(XCL), 0) = 0 Then
    DS.Cells(DS.Rows.Count, XCL).End(xlUp).Offset(1) = DS.Cells(X, 1)
    End If
    Next
    MARY = Application.WorksheetFunction.Transpose(DS.Columns(XCL).SpecialCells(xlCellTypeConstants))
    DS.Columns(XCL).Clear
    For X = 2 To UBound(MARY)
    DS.Range(title).AutoFilter field:=1, Criteria1:=MARY(X) & ""
    If Not Evaluate("=ISREF('" & MARY(X) & "'!A1)") Then
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = MARY(X) & ""
    Else
    Sheets(MARY(X) & "").Move after:=Worksheets(Worksheets.Count)
    End If
    DS.Range("A" & titlerow & ":A" & L).EntireRow.Copy Sheets(MARY(X) & "").Range("A4")
    Next
    DS.AutoFilterMode = False
    DS.Activate
    Application.ScreenUpdating = True
    End Sub

  32. You are most welcome, MANUEL!
    We provide the best and easy solutions to Excel-related problems. You are invited to visit our blog for more such articles.

  33. If the last two rows contain the same data, then it fails to delete both rows. Otherwise, it works.

Advanced Excel Exercises with Solutions PDF

 

 

ExcelDemy
Logo