Nome non univoco VBA e correzione codice per svuotare cella

Ragazzi se provo a far andare queste macro mi da come errore "Rilevato nome non univoco: Worksheet_Change" quindi immagino che si debba cambiare, ma se si cambia il nome non funzionano piùa dovere le macro (credo), quindi penso si possano incorporare in una sola macro, sempre su Worksheet_Change, tutte queste deduzioni le ho fatte da solo, quindi potrebbero essere errate nel caso correggettemi senza problema :) questi sono i due codici:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
r = Range("H2")
On Error GoTo esci
If Len(Cells(r + 1, Target.Column)) <> 0 Then
Cells(r + 2, Target.Column).Select
Else
Cells(r + 2, Target.Column + 1).Select
End If
End If
esci:
End Sub

Riduco il problema,
ho risolto il codice VBA e funziona, ora non mi resta solo che sconfiggere "Rilevato nome non univoco: Worksheet_Change", se qualcuno sa come si fa mi faccia sapere :)

Se avete bisogno dei nuovi codici VBA fatemi sapere che li aggiungo (non so se debbano necessariamente essere uniti in un'unico codice essendo entrambi Worksheet_Change)

Ciao Teo

Credo che sia proprio quello il problema.

Non credo possano coesistere due routine con lo stesso nome (penso sia per questo che VBA ti dica "nome non univoco")

Ciao Teo, ci deve essere un solo worksheet_Change, ma nella stessa macro puoi inserire più parti, prendi la sezione di una macro



ed aggiungila dopo la prima sezione nella stessa macro, logico che non dovranno esserci conflitti tra le due.

Ciao By Sal

Buongiorno Alfredo,
eh la penso anche io come te ahimé,
solo che non riesco a "fondere" i due codici in uno solo e non so davvero come fare...suggerimenti?provo a postarti qui sotto i miei due codici (magari anche ad altri utenti possono essere utili per risolvere questo grattacapo)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("BL:BL")) Is Nothing Then
r = Target.Value
On Error GoTo esci
If Target.Value <> PrecValue Then
Cells(Target.Row, Target.Column + 1) = ""
End If
If Len(Target.Value) = 0 Then
Cells(Target.Row, Target.Column + 1) = ""
End If
End If
esci:
End Sub

---

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("BL2")) Is Nothing Then
r = Range("CB2")
On Error GoTo esci
If Len(Cells(r + 1, Target.Column)) <> 0 Then
Cells(r + 2, Target.Column).Select
Else
Cells(r + 2, Target.Column + 1).Select
End If
End If
esci:
End Sub


Presi singolarmente fanno ciò che devono fare onestamente, solo che mi servirebbero in contemporanea :/
Ho lasciato invariati anche i riferimenti alle celle che uso io ("BL2" etc etc), qualsiasi suggerimento è ben accetto!!! :)  

Sal, buongiorno, abbiamo scritto praticamente in contemporanea, ora provo a fare come suggerito ;) vediamo cosa riesco a fare ;)

Grazie mille!!!

Risolto direi, modificato le parti che andavano in conflitto, direi che funziona tutto fin troppo bene ahah ;) grazie mille ragazzi!!!

Codice "fuso" in questo modo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("BL:BL")) Is Nothing Then
r = Target.Value
On Error GoTo esci
If Target.Value <> PrecValue Then
Cells(Target.Row, Target.Column + 1) = ""
End If
If Len(Target.Value) = 0 Then
Cells(Target.Row, Target.Column + 1) = ""
End If
End If
If Not Intersect(Target, Range("BL2")) Is Nothing Then
k = Range("CB2")
On Error GoTo out
If Len(Cells(k + 1, Target.Column)) <> 0 Then
Cells(k + 2, Target.Column).Select
Else
Cells(k + 2, Target.Column + 1).Select
End If
End If
out:
esci:
End Sub