+ Reply to Thread
Results 1 to 11 of 11

Remark Automation

  1. #1
    Registered User
    Join Date
    01-08-2018
    Location
    India
    MS-Off Ver
    2013
    Posts
    56

    Remark Automation

    Hi There,

    i want to check remarks quality.

    i have attached the sheet, where "remarks provided" are there and "Remarks Keyed" also there.
    I need VBA code to check if remark is keyed correctly, and if not then it tells which remark is not keyed.

    sequence of remark keyed and remark provided will be different in the above case

    Regards,
    Ashok
    Attached Files Attached Files
    Last edited by ashok0141; 06-21-2018 at 09:29 AM.

  2. #2
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831

    Re: Remark Automation


    Hi !

    Better is to attach a workbook respecting the real layout …

  3. #3
    Registered User
    Join Date
    01-08-2018
    Location
    India
    MS-Off Ver
    2013
    Posts
    56

    Re: Remark Automation

    Hi Marc,

    this is for quality check on excel, currently we are doing manual comparison.
    there is no lay out, the remark is just extracted from user data from excel.
    we just need VBA code to automate the comparison between "remark provided" and "remark keyed".

    Regards,
    Ashok
    Last edited by ashok0141; 06-22-2018 at 01:50 AM.

  4. #4
    Forum Expert
    Join Date
    07-20-2011
    Location
    Mysore, India.
    MS-Off Ver
    Excel 2019
    Posts
    8,513

    Re: Remark Automation

    Code for UDF VerifyText
    Please Login or Register  to view this content.
    Attached Files Attached Files
    Last edited by kvsrinivasamurthy; 06-22-2018 at 03:06 AM.
    Pl note
    Array formula should be confirmed with Ctrl+Shift+Enter keys together.
    If answere is satisfactory press * to add reputation.

  5. #5
    Registered User
    Join Date
    01-08-2018
    Location
    India
    MS-Off Ver
    2013
    Posts
    56

    Re: Remark Automation

    no idea about UDF

  6. #6
    Registered User
    Join Date
    01-08-2018
    Location
    India
    MS-Off Ver
    2013
    Posts
    56

    Re: Remark Automation

    thanks for the code dear,

    it works properly, but i also need to know which remark is missed if it is false.

    Regards,
    Ashok

  7. #7
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831

    Re: Remark Automation


    Is the initial attachment has exactly the same structure as the real workbook ?

    If it is not the case, post an attachment respecting the real data stucture …

  8. #8
    Registered User
    Join Date
    01-08-2018
    Location
    India
    MS-Off Ver
    2013
    Posts
    56

    Re: Remark Automation

    yes, it is the real one.

  9. #9
    Forum Guru
    Join Date
    08-15-2004
    Location
    Tokyo, Japan
    MS-Off Ver
    2013 O.365
    Posts
    22,464

    Re: Remark Automation

    Please Login or Register  to view this content.
    Attached Files Attached Files

  10. #10
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831

    Cool Another way …

    Quote Originally Posted by ashok0141 View Post
    yes, it is the real one.
    So according to your initial attachment as a beginner starter :

    PHP Code: 
    Sub Demo1()
             Const 
    " ARE INVALID "
               
    Dim Rg As RangeR&, VW
               Application
    .ScreenUpdating False
        With Sheet1
    .UsedRange.Columns(1)
               
    Set Rg = .Find("Remark provided")
            If 
    Not Rg Is Nothing Then
                    R 
    Rg.Row
                
    Do
                              
    Split(Replace(Rg(12).ValueT""), ",")
                    For 
    Each W In Split(Replace(Rg(22).ValueT""), ",")
                        
    Filter(VWFalse)
                    
    Next
                    With Rg
    (13).Resize(, 2)
                        If 
    UBound(V) < 0 Then .Value = [{True,"All Remark Keyed Correctly"}] _
                                         
    Else .Value = Array(FalseJoin(V", ") & " not keyed in remark")
                    
    End With
                       Set Rg 
    = .FindNext(Rg)
                
    Loop Until Rg.Row R
                       Set Rg 
    Nothing
            End 
    If
        
    End With
               Application
    .ScreenUpdating True
    End Sub 
    Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

  11. #11
    Forum Guru
    Join Date
    08-15-2004
    Location
    Tokyo, Japan
    MS-Off Ver
    2013 O.365
    Posts
    22,464

    Re: Remark Automation

    ashok0141

    Thanks for the rep.

    If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. remark today in datelist
    By kdelange in forum Excel Programming / VBA / Macros
    Replies: 13
    Last Post: 09-10-2015, 08:11 AM
  2. [SOLVED] Help require to get perfect output if there is a 'H' remark
    By mso3 in forum Excel Formulas & Functions
    Replies: 6
    Last Post: 03-23-2015, 12:57 AM
  3. Help require to modify the remark formula
    By mso3 in forum Excel Formulas & Functions
    Replies: 0
    Last Post: 07-21-2014, 11:49 PM
  4. [SOLVED] Formula for today remark
    By mukeshbaviskar in forum Excel Formulas & Functions
    Replies: 2
    Last Post: 01-07-2014, 11:31 AM
  5. [SOLVED] Conditional Remark
    By santosh226001 in forum Excel Formulas & Functions
    Replies: 3
    Last Post: 01-03-2014, 07:09 AM
  6. Remark update in another sheet
    By dingdang in forum Excel General
    Replies: 0
    Last Post: 12-01-2013, 09:45 AM
  7. Remark several line in the code
    By michael1963 in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 05-30-2009, 02:46 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1