+ Reply to Thread
Results 1 to 3 of 3

Move specific cells information based on criteria from multiple sheets to one sheet

  1. #1
    Registered User
    Join Date
    08-10-2016
    Location
    Ireland
    MS-Off Ver
    2013
    Posts
    67

    Move specific cells information based on criteria from multiple sheets to one sheet

    Hi folks,

    I am a novice to macros, reaching out to the experts community for the support.

    Please find attached the sample excel sheet explaining the requirement. Employee A/B/C will input the details in their respective tabs. On the "Results" tab, I need the output similar to as mentioned on the click of the button "Click to view results".

    If any of the fields are filled or the answer is Yes to any question in the tabs A/B/C, it should appear in the output "Results" tab. There are numerous employee tabs as such with many fields to fill-on. The fields could vary based on employees. Hope I am clear with my explanation.


    Many Thanks In Advance...
    Abhi
    Attached Files Attached Files

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

    Cool Hi ! Try this !


    According to your attachment a VBA demonstration as a beginner starter :

    PHP Code: 
    Sub Demo1()
            
    Dim Rc As RangeS&
            
    Set Rc = [E8]
            
    Application.ScreenUpdating False
        With Me
    .UsedRange.Rows
            
    If .Count 4 Then .Item("5:" & .Count).Clear
        End With
            
    [D7].Formula "=AND(E5>0,E5<>""No"")"
        
    For Me.Index 1 To Sheets.Count
            With Sheets
    (S)
                
    With .Range("D4", .Cells(.Rows.Count5).End(xlUp))
                     .
    Rows(1).Value2 = [{" "," "}]
                     .
    AdvancedFilter xlFilterInPlace, [D6:D7]
                     .
    Copy
                      Rc
    .PasteSpecial xlPasteValuesAndNumberFormats
                     
    .Rows(1).Clear
                End With
                     
    If .FilterMode Then .ShowAllData
                
    If Rc(2).Text "" Then
                    Rc
    .Font.Bold True
                    Rc
    .Value2 = .Name
                    Set Rc 
    Rc.End(xlDown)(4)
                
    End If
            
    End With
        Next
            
    [D7].Clear
        With Me
    .UsedRange.Columns(2)
            .
    Replace "Do you have availability?""Availability"
            
    .Replace "Do you have the required skillset?""Skillset"
            
    .Replace "How many additional resources do you need?""Additional Resources Needed"
            
    .Replace "How many you can make in a week (approx.)?""Make in a week (approx.)"
            
    .Replace "Do you need any training?""Training Needed"
        
    End With
            
    [D4:I4].Resize(Rc.Row 5).BorderAround [D4].Borders(xlEdgeLeft).LineStyle
            Application
    .ScreenUpdating True
            Set Rc 
    Nothing
    End Sub 
    ► Do you like it ? ► So thanks to click on bottom left star icon « Add Reputation » !

  3. #3
    Registered User
    Join Date
    08-10-2016
    Location
    Ireland
    MS-Off Ver
    2013
    Posts
    67

    Re: Hi ! Try this !

    Many Many Thanks Marc.

    The VBA code is absolutely working fine for what I have requested for. Can you please add 2 more things?

    1. Two headers at the top in the "Results" tab, whose value is equal to the summation of respective values from each tab? This is explained in the sample sheet attached.
    2. Is it possible if I don't want some of the details on the "Results" tab (highlighted in green color) as inputted by Employee A in respective tab?

    Extremely apologies as I have not mentioned these at the first time. Actually these requirements came up now.

    Kind Regards,
    Abhi
    Attached Files Attached Files

+ 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. Move Multiple Files into Specific Location Based On Criteria
    By ShakJames in forum Excel Programming / VBA / Macros
    Replies: 12
    Last Post: 12-14-2018, 08:44 AM
  2. [SOLVED] Macro to move cells in 2 rows after word criteria to specific cells in other sheet
    By abjac in forum Excel Programming / VBA / Macros
    Replies: 11
    Last Post: 03-20-2018, 11:41 AM
  3. Formula to move multiple cells or information across different sheets?
    By kfleck1109 in forum Excel Formulas & Functions
    Replies: 3
    Last Post: 10-09-2016, 01:30 AM
  4. [SOLVED] Populating one sheet with a separate sheets information based on criteria
    By madmoojuice in forum Excel General
    Replies: 3
    Last Post: 11-13-2014, 12:02 PM
  5. Replies: 12
    Last Post: 02-21-2013, 12:55 PM
  6. Move Rows of Data from a Specific Column (Based on Matching Criteria) to a new Sheet
    By jordan1214 in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 02-21-2013, 02:30 AM

Tags for this Thread

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