جلو گيري از ورود داده هاي تكراري با كپي

[ahadbares]

با عرض سلام خدمت دوستان گرامي
براي جلو گيري از ورود داده هاي تكراري در data validation از فرمول زير COUNTIF(A:A;A3)=1استفاده نمودم ولي اگه داده تكراري رو كپي كنم انو قبول ميكنه اگه ممكنه منو راهنمايي كنيد تا كپي رو قبول نكنه

[Amin_D]

RE: جلو گيري از ورود داده هاي تكراري با كپي

سلام
این فرمول رو بایستی به صورت COUNTIF(A:A;A1)=1= در قسمت Validation Data___Custom بزاری
توی خود همین تالارهای گفتگو قسمت توابع هم راجع به همین موضوع بحث شده است

[ahadbares]

RE: جلو گيري از ورود داده هاي تكراري با كپي

خیلی ممنون از راهنمایی شما اما من این اینکارو کردم من از یه شیت دیگه اطلاعاتی روتو ستون شیت دیگه کپی .میکنم اما موقعی کهاطلاعات تکرای کپی میشه اون رو قبول میکنه

[Amirsayyafi]

RE: جلو گيري از ورود داده هاي تكراري با كپي

با عرض سلام خدمت دوستان گرامي
براي جلو گيري از ورود داده هاي تكراري در data validation از فرمول زير COUNTIF(A:A;A3)=1استفاده نمودم ولي اگه داده تكراري رو كپي كنم انو قبول ميكنه اگه ممكنه منو راهنمايي كنيد تا كپي رو قبول نكنه

به جای علامت مساوی از کوچکتر مساوی استفاده کنید.

=COUNTIF(A:A;A1)<=1

[ahadbares]

RE: جلو گيري از ورود داده هاي تكراري با كپي

سلام
من هرچه كردم نشد فايل رو واستون ميزارم توي ورك بوك مشاركت بخش ورود اطلاعات موقع زدن انتقال وام گيرند موقع زدن كليد اگه داده تكراري باشه بازم تو ورك بوك ديتا انو رو قبول ميكنه در حالي كه نبايد قبول كنه بخش هاي زياد فايل رو حذف كردم تا حجمش كم بشه در ضمن موقع كه جستجوي اطاعات كليد كنسل رو ميزنم برنامه هنگ ميكنه ماكروشو هم ميزارم اگه ممكنه راهنماييم كنيد قبلا از لطف جناب عالي متشكرم

[ahadbares]

RE: جلو گيري از ورود داده هاي تكراري با كپي

سلام
من هرچه كردم نشد فايل رو واستون ميزارم توي ورك بوك مشاركت بخش ورود اطلاعات موقع زدن انتقال وام گيرند موقع زدن كليد اگه كد ملي تكراري باشه بازم تو ورك بوك ديتا انو رو قبول ميكنه در حالي كه نبايد قبول كنه بخش هاي زياد فايل رو حذف كردم تا حجمش كم بشه در ضمن موقع كه جستجوي اطاعات كليد كنسل رو ميزنم برنامه هنگ ميكنه ماكروشو هم ميزارم اگه ممكنه راهنماييم كنيد قبلا از لطفتون متشكرم

Sub Button8_Click()
'Standard Sheet Module code, like: Sheet1.
Dim iFound
Dim Message$, Title$, Default$, myCode$

Message = "Enter data to search for:" ' Set prompt.
Title = "Get Data!" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
myCode = InputBox(Message, Title, Default)

iFound = False
Application.ScreenUpdating = False

'Check data sheet for data wanted!
Workbooks("data.XLS").Activate
Workbooks("data.xls").Worksheets("Sheet1").Select

For Each r In Workbooks("data.xls").Worksheets("Sheet1").UsedRan ge.Rows
x = r.Row
N = r.Column
If Worksheets("Sheet1").Cells(x, N) = myCode Then
iFound = True
'Copy the found data from the starting row = myStart to
'the ending row = myFinish for the Found Date [myDate]
'to Sheet2 in column "C" change as needed!
'Start data import just below any entery in this column!
Workbooks("data.xls").Worksheets("Sheet1").Range(C ells(x, N), Cells(x, 12)).Copy _
Destination:=Workbooks("mosharekat.xls").Worksheet s("Sheet1").Range("z1")
Else

End If
Next r

If iFound = False Then MsgBox "Date not Found!"
Workbooks("mosharekat.xls").Activate
Workbooks("mosharekat.xls").Worksheets("Sheet1").S elect
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub

Sub GreyCalc()
Sheets("Sheet1").Range("e2:e13").Copy
Workbooks("data.xls").Worksheets("Sheet1").Range(" a1" & Columns.Count).End(xlUp) _
.Offset(1).PasteSpecial xlPasteValues, Transpose:=True
Range("a1").Select
Application.CutCopyMode = False
End Sub