1 and 0

BirveSifir.com: Systems, Websites, Applications.

Posts Tagged ‘excel macro

Excel Macro which copies one column to another by matching specific unique column

leave a comment »

This is a simple Excel Macro which copy one column to another by comparing specific unique column. There two sheets: Sheet1 and Sheet2. We copy column 2 and 3 at Sheet2 to column 2 and 3 at Sheet1 by matching column 1 at both.

There might be persentage data. You should use NumberFormat parameter in that situation.

Sub CopyCells()
'*** Defining variables ***'
 Dim Value1, Value2
 Dim RowsCount1, RowsCount2
'*** Find out rows count ***'
 RowsCount1 = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
 RowsCount2= Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count
'*** Copying data ***'
 For C1 = 2 To RowsCount2
..Set Value1 = Worksheets("Sheet2").Cells(C1, 1)
..For C2 = 3 To RowsCount1
 ....Set Value2 = Worksheets("Sheet1").Cells(C2, 1)
 ....If Value1 = Value2 Then
 ......Worksheets("Sheet1").Cells(C2, 2) = Worksheets("Sheet2").Cells(C1, 2)
 ......Worksheets("Sheet1").Cells(C2, 2).NumberFormat = "0.00%"
 ......Worksheets("Sheet1").Cells(C2, 3) = Worksheets("Sheet2").Cells(C1, 3)
 ......Worksheets("Sheet1").Cells(C2, 3).NumberFormat = ""
 ....End If
 ..Next C2
 Next C1
End Sub

.
C1 and C2 mean Counter1 and Counter2.

Written by 1ve0

01/24/2012 at 4:37 PM

Follow

Get every new post delivered to your Inbox.