Vba code to compare columns in different sheets

[Nawin616]

HI Friends ,

I'm looking for a little help in Vba macro.

I have two sheets ( category ) which has values like CURRENT ASSETS ,NON CURRENT ASSETS, CURRENT LIABILITIES ,NON CURRENT LIABILITIES , PROFIT LOSS Etc..

in the other sheet (Balance sheet) in column A i have CURRENT ASSETS ,NON CURRENT ASSETS, CURRENT LIABILITIES . How do i compare the two sheets (Category & Balance sheet) and add data that are available in Category sheet and not available in Balance sheet.. the values should be added to column A in Balance sheet

Thanks in advance.

 

[offthelip]

Try this code:

With Worksheets("Category")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
cats = .Range(.Cells(1, 1), .Cells(lastrow, 1))
End With
With Worksheets("Balance")
lastrowb = .Cells(Rows.Count, "A").End(xlUp).Row
bals = .Range(.Cells(1, 1), .Cells(lastrowb, 1))
indi = lastrowb + 1
 For i = 1 To lastrow
  If cats(i, 1) <> "" Then
   fnd = False
   For j = 1 To lastrowb
    If cats(i, 1) = bals(j, 1) Then
     fnd = True
     Exit For
    End If
   Next j
   If Not (fnd) Then
    .Range(.Cells(indi, 1), .Cells(indi, 1)) = cats(i, 1)
    indi = indi + 1
   End If
  End If
 Next i
 
End With

This is my understanding of what you want but you requirements are not absolutely clear