PDA

Visualizza la versione completa : controllo celle uguale excell


soundforgers
03-08-2009, 12:17
Ciao ragazzi... un po che manco da qusto forum...
Ultimamente sto realizzando una specie di gestione magazzino con una tabella abbastanza semplice che tenga part number seriale una breve descrizione e altre 2 cavolate...
tutto ok... fino a quando mi hanno richiesto un controllo per evitare di inserire un seriale 2 o +volte...

in giro per internet ho trovato qusto codice Vb


Private Sub Worksheet_Change(ByVal Target As Range)

Dim fnd As Boolean
Static JustErased As Boolean

On Error GoTo Go_Away

If JustErased Then
JustErased = False
Exit Sub
End If

Set c = Cells.Find(What:=Target.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

Do
If Not Target.Value = Empty Then
If Not c Is Nothing And c.Address <> Target.Address Then
If c.Column = Target.Column Then
MsgBox "Valore gi presente in questa colonna!", vbExclamation + vbOKOnly, "Attenzione!"
JustErased = True
fnd = True
Target.ClearContents
Target.Select
End If
End If
Else
Exit Sub
End If
If fnd Then Exit Do
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> Target.Address

Go_Away:

End Sub


il mio problema che dovrei riadattarlo perch questo codice mi fa il controllo su tutti il foglio mentre a me serve solo su una colonna precisa di un foglio in particolare...

Qualcuno pu darmi una mano?

Vi ringrazio in anticipo!!

LeleFT
03-08-2009, 14:29
Se il tuo scopo la riscrittura di un codice gi pronto il forum corretto "Offro Lavoro / Collaborazione".

Se, al contrario, il codice lo hai riadattato tu e per qualche motivo non fa il suo dovere, chiedi lumi postando il codice riadattato nel forum "Visual Basic e .NET Framework" in quanto VBA viene trattato l.


Ciao. :ciauz:

Loading