Posts by ArhamRajput

Thank you very much Mumps works perfect.

Actually there is no need to determine which value need to match. All the values that Sheet1 Column "A" has should be matched in Sheet2.

I have added a sheet where need to create a loop for matching multiple values.

Thank you very much. I need one more favor That if i have Multiple values in different Sheet Column A that i want to match one by one how to create loop and get result in Column B.

I would appreciated the help. Right now above code is working fir single value that is 3.61

I have created this code but unable to complete it what i am trying is to if 3.61 is > Col"E" and <Col"F" then copy the value from Col"J" and Paste into A1.

Your help will be much appreciated.

Sub Macro1()

    Dim noRows As Integer
    Dim myRange As String
    Dim thisvalue As String
    
    thisvalue = 3.61
    
    noRows = Worksheets("Sheet1").UsedRange.Rows.Count
    myRange = "A6:V" & noRows
    Worksheets("Sheet1").Range(myRange).AutoFilter Field:=5, Criteria1:=">thisvalue", Field:=6, Criteria1:="<thisvalue"
    
    'Then copy Col"J" value and paste into Sheet1.Range("A1")
    
End Sub

Mumps Thanks this is literally a marvelous attempt that you make. I exactly want this.

Will columns A, B and C in Sheet2 always have only one row with data (row 3) YES

Because these are criteria where i have added validation for columns A3, B3 and C3. That will change and data will be copy and pasted accordinlgy

I need to create a VBA code that is I have two Sheets in a file. Sheet1 and Sheet2.

I want to match Sheet2 values these values in Sheet1 Column A and Column F if data matches then copy the corresponding columns Data that are Column B,C,D,E and Paste into Sheet2 Column E,F,G,H.

I also wants to match Sheet2 C3 value that is Column3 in Sheet1 in the Range("G1:Z1") if Column Header is matches then copy the Matched Column Data into Sheet2 Column "i".

the thing i want is to match the Sheet2 Range A3, B3 and C3 into Sheet1 and copy paste the Data. I have attached the file with example your help will be much appreciated.

Yes i have seen the warning that is obviously not good at all. I was just looking for solution.

and the thing is i have been warned for cross posting but none of the them have posted solution and comments related to post. that means post has been closed.

Yeah Noted but any solution can given.

Or

Please make this code correct.

Public Sub CountColorCells()
    'Variable declaration
    Dim rng As Range
    Dim lColorCounter As Long
    Dim rngCell As Range
    'Set the range
    Set rng = Sheet2.Range("J2:J1000")
    Set rng = Sheet2.Range("K2:K1000")
    Set rng = Sheet2.Range("L2:L1000")
    Set rng = Sheet2.Range("M2:M1000")
    Set rng = Sheet2.Range("N2:N1000")
    Set rng = Sheet2.Range("O2:O1000")
    Set rng = Sheet2.Range("P2:P1000")
    Set rng = Sheet2.Range("Q2:Q1000")
    Set rng = Sheet2.Range("R2:R1000")
    Set rng = Sheet2.Range("S2:S1000")
    Set rng = Sheet2.Range("T2:T1000")
    Set rng = Sheet2.Range("U2:U1000")
    Set rng = Sheet2.Range("V2:V1000")
    Set rng = Sheet2.Range("W2:W1000")
    Set rng = Sheet2.Range("X2:X1000")
    Set rng = Sheet2.Range("Y2:Y1000")
    Set rng = Sheet2.Range("Z2:Z1000")
    'loop throught each cell in the range
    For Each rngCell In rng
        'Checking Yellor color
        If Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.Color = RGB(183, 225, 205) Then
            lColorCounter = lColorCounter + 1
        End If
    Next
    'Display the value in cell
    Sheet2.Range("J1") = lColorCounter
    Sheet2.Range("K1") = lColorCounter
    Sheet2.Range("L1") = lColorCounter
    Sheet2.Range("M1") = lColorCounter
    Sheet2.Range("N1") = lColorCounter
    Sheet2.Range("O1") = lColorCounter
    Sheet2.Range("P1") = lColorCounter
    Sheet2.Range("Q1") = lColorCounter
    Sheet2.Range("R1") = lColorCounter
    Sheet2.Range("S1") = lColorCounter
    Sheet2.Range("T1") = lColorCounter
    Sheet2.Range("U1") = lColorCounter
    Sheet2.Range("V1") = lColorCounter
    Sheet2.Range("W1") = lColorCounter
    Sheet2.Range("X1") = lColorCounter
    Sheet2.Range("Y1") = lColorCounter
    Sheet2.Range("Z1") = lColorCounter



End Sub

I have made a summary sheet manually but want a code which will make the summary sheet automatically and paste the Green and Pink count

My sheet has no code. i made the sheet manually.

I am looking for VBA code which will count 2 color from all worksheets used Columns till last row and then paste the result in summary sheet.

First Code will count sheet columns till last row (those cell which are colored)

second Code will create summary sheet

third Code will paste each sheet Header separately in summary sheet, with sheet name as i made manually in summary sheet and there count result.

There are two colors in my sheets which i want to count that are Green and Pink and here is RGB(244, 204, 204) & RGB(183, 225, 205).

Each sheet headers are same that are names in sheet 1 2 3 4 5 6 7 8 9 10 11 12 13 14 so on these are headers.

I want to count how many green and pink color is in header 1 and so on.

Yes there is not code but looking for.

I want to count the color of cell column wise with given RGB's .

For Example

The code will count the two colors for used column across all sheets and will create summary sheet then paste the result there with sheet names and headers.

Same as summary sheet is looking like.

[xpost][/xpost]

Experts,

I am looking for a code i have attached a file where summary sheet have count of all sheets for both RGB(244, 204, 204) & RGB(183, 225, 205) Columns wise.

Please make same format as Summary sheet have.

Thank you so much i will definitely learn from your codes.

Below error is occurring while login.

I will be grateful to you if could add comments to understand the code.

Ok i will wait for resolution.

I have got this from Ozgrid.

I also try to learn form other people worksheets.

All passwords are mentioned in previous comments.

User - Admin

Password - Chuckles1

Unlock Sheet - entity

Unlock VBA - pbarratt6344