welcome.
On Wed, Feb 16, 2011 at 8:59 PM, Rajesh K R wrote:
> Hi Ashish
> Thank You very much.I checked the code it is working well.
>
> Regards & Thanks
> Rajesh Kainikkara
>
>
> On 2/16/11, ashish koul wrote:
> > Sub tests()
> > Dim i As Long
> >
> > For i = 1 To Sheets(2).Range("
Hi Ashish
Thank You very much.I checked the code it is working well.
Regards & Thanks
Rajesh Kainikkara
On 2/16/11, ashish koul wrote:
> Sub tests()
> Dim i As Long
>
> For i = 1 To Sheets(2).Range("b1").End(xlDown).Row
> If Application.WorksheetFunction.CountIf(Sheets(1).Range("b:b"),
> Sheet
Sub tests()
Dim i As Long
For i = 1 To Sheets(2).Range("b1").End(xlDown).Row
If Application.WorksheetFunction.CountIf(Sheets(1).Range("b:b"),
Sheets(2).Range("b" & i).Value) = 0 Then
Sheets(2).Select
Sheets(2).Range("b" & i).Select
Selection.EntireRow.Copy
Sheets(1).Select
Sheets(1).Cells(Sheets(
Hi
Thanks for ur fast reply, now it copying the data in column"B" if I
want to copy the entire raw how to change the code.
Regards & Thanks
Rajesh kainikkara
On 2/16/11, ashish koul wrote:
> Sub tests()
> Dim i As Long
>
> For i = 1 To Sheets(2).Range("b1").End(xlDown).Row
> If Application.Works
Sub tests()
Dim i As Long
For i = 1 To Sheets(2).Range("b1").End(xlDown).Row
If Application.WorksheetFunction.CountIf(Sheets(1).Range("b:b"),
Sheets(2).Range("b" & i).Value) = 0 Then
Sheets(1).Cells(Sheets(1).Range("b1").End(xlDown).Row + 1, 2).Value =
Sheets(2).Range("b" & i).Value
End If
Next i
Hi Experts
How can select data from sheet2 which don't exist in sheet1 and copy
the entire raw and paste in sheet1. Pls find the attached file to get
more details
Regards
Rajesh Kainikkara
--
--
Some important links