You need to bring the lastrow=lastrow+1 into the IF statement, this seems
to work
Sub test()
Dim cell As Range
Dim lastrow As Long, xTitleID, I As Long
lastrow = Range("b65536").End(xlUp).Row
Dim workrng As Range
Set workrng = Application.Selection
Set workrng = Application.InputBox("Range", xTitleID, workrng.Address,
Type:=8)
For I = 1 To 10
If Application.WorksheetFunction.CountIf(workrng, Cells(I, 1))
= 1 Then
'MsgBox lastrow
Cells(lastrow, 2).Value = Cells(I, 1)
lastrow = lastrow + 1
End If
Next
End Sub
On Wed, Sep 24, 2014 at 12:36 PM, Mandeep Baluja <rockerna...@gmail.com>
wrote:
> i have a question that i have a list of entries with duplicates what i
> want is how to get the distnict values(values which occur only one time) .
> Please read my question carefully, I am not asking for removing duplicates
> what I want is how to get the list of data which occured 1 time only in the
> list.
> For Example
> List Result
> A A
> B C
> B D
> C
> D
> Please check this code as it is giving me right result but how can i store
> the values in next column this code is overwriting the values because of
> that loop . :(
> Sub test() Dim cell As Range
> Dim lastrow As Long lastrow = Range("b65536").End(xlUp).Row
> Dim workrng As Range
> Set workrng = Application.Selection
> Set workrng = Application.InputBox("Range", xTitleId, workrng.Address,
> Type:=8)
> For i = 1 To 10 If Application.WorksheetFunction.CountIf(workrng,
> Cells(i, 1)) = 1 Then
> MsgBox lastrow Cells(lastrow, 2).Value = Cells(i, 1)
> End If lastrow = lastrow + 1
> Next End Subless
> <https://www.linkedin.com/groups?viewMemberFeed=&gid=3667803&memberID=312532939&trk=groups%2Finclude%2Fitem_snippet-0-b-pp#>
> <https://www.linkedin.com/groupItem#>
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
