Ανανέωση ιστοσελίδας

[gpentez]

γεια παιδια κ χρονια πολλα .εχω μια απορια .θελω με καποιον τροπο με συναρτηση η αλλη ενεργεια να βρισκω ομοιες τιμες σε πχ 10 γραμμες ποιες τιμες επαναλαμβανονται κ αν γινεται να μη δινω συγκεκριμενη τιμη αλλα αυτοματα το προγραμμα να βρισκει τις ομοιες υπαρχει κ η ευρεση αλλα δεν ειναι ευχρηστη ειδικα οταν δουλευεις με πολλες τιμες επειδη το θεμα ειναι σημαντικο για μενα οποιος μπορει να με διαφωτισει .....μηπως αυτο που ζηταω μπορω να το πετυχω σε αλλο προγραμμα του οφις ? ευχαριστω πολυ

[spirosgr]

Καλημέρα
Αυτά ισχύουν για επισήμανση και οχι κατάργηση διπλότυπων
Υπάρχουν διάφοροι τρόποι στο Συνημμένο
Ελπίζω να βοηθήσουν
Η Μακροεντολή είναι

Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
' Set CompareRange equal to the range to which you will
' compare the selection.
Set CompareRange = Range("C1:C5")
' NOTE: If the compare range is located on another workbook
' or worksheet, use the following syntax.
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C5")
'
' Loop through each cell in the selection and compare it to
' each cell in CompareRange.
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
Next y
Next x
End Sub


ΚΑΛΗ ΧΡΟΝΙΑ!!!

[gpentez]

ευχαριστω πολυ