I have two sheets, sheet1 and sheet2
sheet1 is
------------
A B C D
----------------
AD AF TO DATA
-----------------
101 121 131 25
102 122 132 362
103 123 133 39
104 124 134 14
105 125 135 37
106 126 136 35
107 127 137 5
108 128 138 39
109 129 139 325
110 130 140 27

sheet2 is
------------
A B C D
---------------
AD AF TO DATA
----------------
101 121 131
102 122 132
103 123 133
104 124 134
105 125 135
106 126 136
107 127 137
108 128 138
109 129 139
110 130 140

I have to compare sheet1 fields AD, AF and TO
with sheet2 if AD=AF=TO then write sheet1 DATA value into sheet2
DATA field, how can write the vb marco in excel ?
ie.
I want that check value of sheet1 AF,AD and TO
ie 101=121=131 then write sheet1 DATA field value 25
into sheet2 DATA field how ?
what macro will use ?

Please help

Mateen

Hi Mateen,

You can use this code.
Initialize variable i to the row your table begins

Sub WriteData()
Dim i As Integer
i = 1
Worksheets("Sheet1").Activate
Do Until IsEmpty(Cells(i, 30))
    If Cells(i, 30) = Sheets("Sheet2").Cells(i, 30) And _
        Cells(i, 31) = Sheets("Sheet2").Cells(i, 31) And _
        Cells(i, 32) = Sheets("Sheet2").Cells(i, 32) Then
        Sheets("Sheet2").Cells(i, 33) = Sheets("Sheet1").Cells(i, 33)
    End If
    i = i + 1
Loop
End Sub


-vemaju

Hi, vemaju,

thanks for your response
I try to run your macro, but it not write data to sheet2 data colum.
nothing. I could not sucess to write the data to sheet2 data
colum. I create new macro and write the code.
I could not understand where I making mistake.

regards

Mateen

Hi,

Sorry. The colums are wrong. Here's the right code

Sub WriteData()
Dim i As Integer
i = 1
Worksheets("Sheet1").Activate
Do Until IsEmpty(Cells(i, 1))
    If Cells(i, 1) = Sheets("Sheet2").Cells(i, 1) And _
        Cells(i, 2) = Sheets("Sheet2").Cells(i, 1) And _
        Cells(i, 3) = Sheets("Sheet2").Cells(i, 3) Then
        Sheets("Sheet2").Cells(i, 4) = Sheets("Sheet1").Cells(i, 4)
    End If
    i = i + 1
Loop
End Sub


-vemaju

Thanks for your response.

Macro working fine. I have thousand of records.
How can display the records to another column
which not match. it need to defined another variable ?
I try this,but it not write data which not match.


Sub writedata()
Dim i As Integer
i = 1
Worksheets("Sheet1").Activate
Do Until IsEmpty(Cells(i, 1))
    If Cells(i, 1) = Sheets("Sheet2").Cells(i, 1) And _
        Cells(i, 2) = Sheets("Sheet2").Cells(i, 2) And _
        Cells(i, 3) = Sheets("Sheet2").Cells(i, 3) Then
        Sheets("Sheet2").Cells(i, 4) = Sheets("Sheet1").Cells(i, 4)

    End If

    i = i + 1
Loop

Dim k As Integer
k = 1
Worksheets("Sheet1").Activate
Do Until IsEmpty(Cells(k, 1))
    If Cells(k, 1) <> Sheets("Sheet2").Cells(k, 1) And _
        Cells(k, 2) <> Sheets("Sheet2").Cells(k, 2) And _
        Cells(k, 3) <> Sheets("Sheet2").Cells(k, 3) Then
        Sheets("Sheet2").Cells(k, 5) = Sheets("Sheet1").Cells(k, 4)

    End If

    k = k + 1
Loop
End Sub


regards

Mateen

You just need to add an else clause to the original code..

    Else
        Sheets("Sheet2").Cells(i, 5) = Sheets("Sheet1").Cells(i, 4)

giving you

Sub WriteData()
Dim i As Integer
i = 1
Worksheets("Sheet1").Activate
Do Until IsEmpty(Cells(i, 1))
    If Cells(i, 1) = Sheets("Sheet2").Cells(i, 1) And _
        Cells(i, 2) = Sheets("Sheet2").Cells(i, 1) And _
        Cells(i, 3) = Sheets("Sheet2").Cells(i, 3) Then
        Sheets("Sheet2").Cells(i, 4) = Sheets("Sheet1").Cells(i, 4)
    Else
        Sheets("Sheet2").Cells(i, 5) = Sheets("Sheet1").Cells(i, 4)
    End If
    i = i + 1
Loop
End Sub

ps. sorry for not responding to the mail - been away over xmas :)

Thanks you very much.

Macro is good

Mateen