How to prevent duplicate in VBA Excel

[Mickie01]

Dear Team,

I wants to post my monthly sales data in total sales sheet for every month by VBA (macros sheet), I am very new to using VBA, could u please help me to give steps by steps, so when we are posting current month sales in total sales sheet it will prevent us to create of duplication. Because we are a team who working on sales data and if one of my colleague mistakely run macros which i already processed for the month it will create duplicates values.


Thank you in advance,
Regards.

 

[Joe4]

Welcome to the Board!

This seems to be a very popular question today, as there have been a few other similar questions to this posted today.

This question is very difficult to answer without seeing what your data looks like.

Questions include:
- How many columns are your data?
- What constitutes a duplicate (do all columns need to match, or just certain ones)?
- How exactly is the data being copied? If by VBA code, please post your code.

Perhaps you could have some sort of flag that the macro updates at the end (i.e. populate an unused cell in Excel), to let it know what was the last month that it ran against. Then, you could use that in your code to make sure it doesn't process that same data again.

 

[Mickie01]

Hi,

Answers,
- I have 7 columns data
- i wants just one column to be prevent from duplication "A", its contains date which i want that if macros run and it will search same date in data file it should stop running.
- Code, In bold i used for msgbox for duplication but its not stopped macro.

Sub Apend_Data()'
' Apend_Data Macro
'


'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Users\hdaman\Documents\VBA Alghanim\VBA\Orders.xlsx"
Range("A1").Select
Selection.End(xlDown).Select
'Range("A3267").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


MsgBox "You Are not Allowed to page the Same Date Twice in the same Month"



ActiveWindow.Close savechanges:=True
Application.CutCopyMode = False
Range("A1").Select
End Sub



Regards.

Welcome to the Board!

This seems to be a very popular question today, as there have been a few other similar questions to this posted today.

This question is very difficult to answer without seeing what your data looks like.

Questions include:
- How many columns are your data?
- What constitutes a duplicate (do all columns need to match, or just certain ones)?
- How exactly is the data being copied? If by VBA code, please post your code.

Perhaps you could have some sort of flag that the macro updates at the end (i.e. populate an unused cell in Excel), to let it know what was the last month that it ran against. Then, you could use that in your code to make sure it doesn't process that same data again.

 

[rlv01]

Welcome to the Board!

This seems to be a very popular question today.

Indeed it is.

https://www.mrexcel.com/forum/excel...eventing-duplicates.html?highlight=duplicate*
https://www.mrexcel.com/forum/excel-questions/1055758-removing-duplicates.html?highlight=duplicate*
https://www.mrexcel.com/forum/excel...cate-data-using-vba.html?highlight=duplicate*

School assignment?

 

[Joe4]

Will you just be copying over one row at a time, or are there multiple rows?

 

[Joe4]

Indeed it is.

https://www.mrexcel.com/forum/excel-...t=duplicate%2A
https://www.mrexcel.com/forum/excel-...t=duplicate%2A
https://www.mrexcel.com/forum/excel-...t=duplicate%2A

School assignment?

I would say so. All four threads are coming from the same city, and one of the other threads is even using the same file path as the one used in the code in this post.

Mickie01,
Note that while people may be willing to give you some "hints", please do not expect people to do your homework assignments for you.