Posts by mamun.ges

    Hi, I am Looking for a solution. know the fact but could not arrange the code in the right way. Hope someone helps me.

    I have two cells "O20" and "Q20"

    If "O20" and "Q20" both have non-number values or are empty then it will run code

    If "O20" and "Q20" both have number values then it will run code

    If "O20" is empty or has a non-number value and "Q20" have number values then it will exit or show error info

    If "O20" has number values and "Q20" is empty or has a non-number value then it will exit or show error info

    I tried

    If IsEmpty(Range("O20").Value) = False Or IsEmpty(Range("Q20").Value) = True Then GoTo ErrorHandle
    If IsEmpty(Range("O20").Value) = True Or IsEmpty(Range("Q20").Value) = False Then GoTo ErrorHandle
    If IsEmpty(Range("O20").Value) = True Or IsEmpty(Range("Q20").Value) = True Then
    If IsEmpty(Range("O20").Value) = False Or IsEmpty(Range("Q20").Value) = False Then

    but failed to achieve the result.

    Hope someone help.

    Thanks in advance

    Hi, Here I attached my sample File Sample_Done.xlsm format to which I applied the above code to get the unique value in sort form.

    Hope It will be easy to understand for others.

    Thank You All.


    I am able to solve the problem. just adding the below code before End Sub.

    Thanks to All for the Support.


    As answer of your question this data is related to other function and reference.It is made with two cell data combination to make it unique. In calculation sheet data is occurring several times. But in Report sheet it form as unique and shorted as ascending order. Yes this data is in text form and want sort as text form.

    The code is given earlier. Used as command button in standard module.

    Thanks and appreciate your help in this regard.

    Hi, All.

    Hope everyone is well.

    I am using the below code to get unique values from one sheet to another by a command button. Now the fact is I want that unique value in a sort from in ascending order.

    But failed to do it. Hope someone looks through my code and helps me to achieve the result.

    I will really appreciate the kind help & concern of anyone.

    Here In Name Manager of the workbook.

    "Name: Extract, Value: Unique, Refers To: =Report!$W$9, Scope: Report"

    Sub Get_Unique()
    Dim Sh1 As Worksheet
        Dim rng As Range
        Dim Sh2 As Worksheet
        Set Sh1 = Sheets("Calculation")
        Set rng = Sh1.Range("P2000:P" & Sh1.Range("P1000").End(xlUp).Row)
        Set Sh2 = Sheets("Report")
        rng.Cells(1, 1).Copy Sh2.Cells(1, 1)
        rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sh2.Range("W9"), Unique:=True
    End Sub

    Thanks in Advance.

    Hi, Hope everybody is fine.

    I am using a code to input the same data to the same cell

    Private Sub CommandButton1_Click()
        Dim names As Range
        Set names = Range("J10:J15")
        Dim cell As Range
        For Each cell In names
            cell.Value = cell.Value
        Next cell
    End Sub

    But the problem is I need to expand the range up to J10 to J1000.

    When I did the code takes an unexpectedly long time though not all the calls in J10 to J1000 had value.

    So can anyone help me how to modify the code only for the cell having value and to work faster.

    Thanks and Best Regards.

    Thanks, RoyUK,

    Actually, I data moved from Sheet 4 to 3 as summation based on ID, After that other sheet2 works based on the value of sheet 3.

    In that case, PivotTable does not fulfill my objective. Yes there is a problem result for 133428 is incorrect because those values formatted differently

    And I change all the values as [hh]:mm:ss formation.

    Can It do by formula or VBA ?

    Thanks again and appreciate your support as always.

    Hi All

    Hope everyone is fine.

    I searched many forums and google it but did not get the expected result.


    I have two worksheets, In Sheet4 Range L10:L1000, M10:M1000 & N10:N1000 have data and Matching Column is P10:P1000

    Now In Sheet 3 W10 Value check through Sheet4 P10:P1000 if Matched found then it sums the matched value L10:L1000 data to H10, M10:M1000 data I10, and N10:N1000 data to J10.

    It goes the same as from W10 to last available data in the W10:W column in sheet 3.

    Can It Do with VBA coding?

    If so, then it will be so great for me and highly appreciated.

    Thanks in Advance.

    From the previous post.

    The Frist time it updates.

    Then I changed the monthly rent in the update sheet of the same entry and update

    then 16048 is not found in the network listing also not found by the search.

    Hope you understand, sorry for the poor description.

    Thanks and best regards

    Thank You KjBox,

    Your code works fine but when I click to update it removes all the formulas in Sheet1 or Tabel1 also It changes other cell values.

    Suppose I have a particular row. The code changes all the values of that particular row or it duplicates some other row.

    I here attached my work file for your kind consideration. For Upload.xlsm

    Thanks and best regards