User Posts: Alok
Excel Conditional Formatting If a Cell Contains Any Text

Conditional Formatting is one of the significant features of Excel. Using Conditional Formatting, we can specify cells or rows based on different criteria. In ...

Split Data into Multiple Worksheets in Excel (with Quick Steps)

Excel is very useful when we work with a big amount of data. Sometimes we need to split those data into different sheets as per requirement. In this article, ...

How to Highlight Blank Cells in Excel (4 Fruitful Ways)

When we work with Excel, we may sometimes find that, no data in the cells or blank cells. Sometimes the cells have some hidden objects. In this article, we ...

Excel Conditional Formatting with Formula If Cell Contains Text

We work with Excel and use formulas to get our desired results. Rather than direct using formula, we can use conditional formatting to get our outcomes. In ...

How to Compare 4 Columns in Excel (6 Methods)

Excel is the most widely used application in corporate houses and business centers. We can easily process data using Excel. Sometimes we need to compare a ...

How to Check If a Cell is Empty in Excel (7 Methods)

Excel is one of the most popular applications used for our official and business purposes. We can get meaningful information using Excel from raw data. Data ...

How to Count Duplicate Rows in Excel (4 Methods)

While dealing with a large amount of raw data in MS Excel, we often face duplicate cells, rows, or columns. Sometimes it can be helpful if we can count how ...

How to Use COUNTIF with WEEKDAY in Excel (2 Easy Methods)

Of many Microsoft Excel Functions, COUNTIF and WEEKDAY are two very useful ones. We can use those functions so that we can easily get some information related ...

How to Remove Extra Spaces in Excel (4 Methods)

MS Excel is a widely used application in our business and works. We use Excel to manage data, process it, and get valuable information from that data. ...

How to Combine Rows in Excel (6 Easy Methods)

We need Excel for our day-to-day work. We process raw data and get information as per our needs. While processing data in Excel, sometimes we need to combine ...

Excel Macro to Insert Rows (8 Methods)

We use Excel in our everyday life. We perform data storage, calculation, and get information from Excel. If we have any task to do repeatedly in Excel, we can ...

How to Delete Duplicates in Excel but Keep One (7 Methods)

Excel is one of the widely used tools we use for our office and business. For most of those works, we need to deal with a large amount of data. Sometimes we ...

Convert Text to Date and Time in Excel (5 Methods)

In Excel, we mainly work with data. We organize and manipulate data as per our requirements. We find out the required information from our managed data. But, ...

Excel Paste Transpose Shortcut: 4 Easy Ways to Use

In this article, we will discuss the Transpose option of Excel Paste Shortcut. In Excel, we generally transpose Rows to Columns or vice-versa. We can do this ...

Invoice Excel Formula

Many of us use Excel in our business organizations. In any business organization, we use Excel to organize data as per need and make databases for the future. ...

Browsing All Comments By: Alok
    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

  2. 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.
    -Alok Paul
    Author at ExcelDemy

  3. Hello, DANIEL.
    Thanks for reading our articles.
    Look at the below link. Hopefully, you will get your solution.

    For example, you can use the following code:

    Sub Extract_Data()
    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.
    -Alok Paul
    Author at ExcelDemy

  4. 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.

  5. 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.

  6. 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 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 = "" & strISBN
    strChromeLocation = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
    Shell (strChromeLocation & "-url " & strURL)
    End Sub

  7. 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

    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.
    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.

  9. 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
    MARY = Application.WorksheetFunction.Transpose(DS.Columns(XCL).SpecialCells(xlCellTypeConstants))
    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) & ""
    Sheets(MARY(X) & "").Move after:=Worksheets(Worksheets.Count)
    End If
    DS.Range("A" & titlerow & ":A" & L).EntireRow.Copy Sheets(MARY(X) & "").Range("A4")
    DS.AutoFilterMode = False
    Application.ScreenUpdating = True
    End Sub

  10. 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.

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