Posts by Marius44

    Hi
    Try with this code (but without Format Condition)


    Bye,
    Mario

    Hello
    Excuse me for my english (I’m Italian)

    See if it can go.

    First of all, I inserted an OptionButton in each column in row 2 in Sheet1
    If you select an Option in cell M2 the column number is written.
    Based on the column, a list of Sheet4 was created for a collection with a key and a unique list. Assignment of said list to a data validation for cell M2

    Selecting a data item in cell M2 activates the event Worksheet_Change of Sheet1 which executes a Sheet4 filter for the data indicated; then copy all the visible lines in Sheet1

    I inserted a Module (Marius) and two buttons in the two sheets.

    Let them know. Hello,
    Mario


    http://www.filedropper.com/sewingtrimmingmarius


    Hi
    I think this code is correct


    I have marked what I have changed.
    Try again but you could known that I have no tested it.
    Bye,
    Mario

    Hi
    Excuse me for my english (i'm italian)
    Try with this code


    Bye,
    Mario

    Hello
    Try with this code


    Bye,
    Mario

    Hi
    I think you have to change the code of TextBox2 in this way


    Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 48 To 59
    ' Allow digits - do nothing
    Case 46
    ' Allow only one dot symbol
    If InStr(ActiveControl, ".") Then KeyAscii = 44
    Case Else
    ' Block others
    KeyAscii = 0
    End Select
    End Sub


    It's to say changing the point


    Bye,
    Mario

    Hello AshaG
    Excuse me, first of all, my English (I'm Italian)
    If I understood the question correctly, this is the macro that, I suppose, solves the problem.
    One thing I did not understand is how it does (with which criteria) the value of column ID-2 changes.


    Let me know.
    Hi, Mario

    Rory is right. I think the only way is to set the macro so

    Code
    1. Sub LastWhile() c = 0 Nr = 0 Do Nr = Nr + 0.1 c = c + 1 a = a + 1 Cells(a, 6) = Nr Loop While Nr <= 1.4 End Sub

    Bye, bye Mario

    Hi
    I think you have to try in this way


    Bye,bye
    Mario