Posts by salimthaj

  • Create Form

    Hi,
    Can anyone help me to create a form to enter data in to the fields mentioned in the attachment.

    Actually i need two forms.The first form to fill the range (A2:B4).This range never changes. Once this is done the second form should pop up and the enties made in it should be populated under respective column starting from A13.


    I have also created two user forms to show how the form should look like.


    It will be of great help if some one helps me.I am badly in need of this.I tried,but in vain.Is there anyone who can help me or is it too much.

  • To create a form

    Re: To create a form


    Thanks for your interest booger,


    If you can see,I have merged Cells C1 & C2 and i will enter a number in that merged cell,like wise in the merged cell C3 & C4 i'll enter a date, and the same in C7 & C8.In column C5 & C6 i enter a texct value.Is this what you were asking for

  • Speeding up a macro

    Re: Speeding up a macro


    Try This out








    Sub Speedup()


    With Application
    .EnableEvents = False
    .ScreenUpdating = False
    End With
    Dim dic As Object, a, x, z, r As Range
    Set dic = CreateObject("Scripting.Dictionary")
    dic.comparemode = vbTextCompare
    For Each r In Range("c1", Range("c3000").End(xlUp))
    If Not IsEmpty(r) Then
    If Not dic.exists(r.Value) Then
    dic.Add r.Value, r.Value
    End If
    End If
    Next
    For Each r In Range("d1", Range("d3000").End(xlUp))
    If Not IsEmpty(r) Then
    If Not dic.exists(r.Value) Then
    dic.Add r.Value, r.Value
    Else
    dic(r.Value) = Empty
    End If
    End If
    Next
    x = dic.items: Set dic = Nothing
    With Range("e1")
    .EntireColumn.ClearContents
    For i = LBound(x) To UBound(x)
    If Not IsEmpty(x(i)) Then
    .Offset(ii) = x(i)
    ii = ii + 1
    End If
    Next
    End With
    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    End With

    End Sub

  • To create a form

    Hi Friends,


    Can somebody help me to create a form for the following data.Range A1 to C8 will have only one entry.But column A12 to G12 may have any number of entries.Can any body help me create a form for this so that once the file is open the form pops up and once the entry is made the form can be closed so that i can run the other VBA i already have.Can this be done.

  • Hangman

    Re: Hangman


    Hi JF,
    Thanks for the Game.

    But, is it possible to insert questions and the answers for our own topic.


    So that the people playing can gain knowledge.

  • Outlook Form

    Hi Dave and friends,
    Once again i need the helpof you guys to break this.I have six fields in my excel spread sheet with validation in one of the fields and i want to populate the same as a form in outlook message using a VBA.Ia it possible.


    Please ignore if it sounds absurd.


    Sorry to bother,


    Salim

  • Hangman

    Hi Dave and friends,
    We have arranged a training for all the employees in the organisation.Now it is time to check their knowledge.So what we like to do is to create a hangman game which can allow the staff to guess words based in questions.Is this possible in excel.I'm not sure.


    Thanks in Advance,
    Regards,
    Salim

  • Monthly Consolidated Report

    Hi Dave and Friends,
    I need to make a consolidated report.What it does is that,the first sheet contains rawdata,the data under the heading Account number in the Raw data sheet is unique for a particular customer,but the sheet may have multiple entries.What the macro has to do is take all the unique values under ePcard and put it in to the Final data sheet,and sum up all the entries for a particular month and put it under each month in the final data sheet.Is this possible.Please advice.