range definito in text box

[AmmoNPartecipante AmmoN]

Buongiorno.

volevo chgiederVi come si possa sostituire questo codice 

Target.Offset(0, 1).Value = InputBox(Target.Offset(0, -1) & " dove va ?", "ATTENZIONE") '... chiedi destinazione
con uno che mi consenta di far riferimento sempre alla Colonna (B2:B14)

Il codice completo è qst

Private Sub Worksheet_Change(ByVal Target As RANGE)

If Not Intersect(Target, RANGE("c2:L14")) Is Nothing And Target.Value = "SOST" Then

Target.Offset(18, 0).Value = InputBox(Target.Offset(0, -1) & " dove va ?", "ATTENZIONE") '... chiedi destinazione

End If

End Sub

 

 

 

 

allrgo il file

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 51 pts]

Non ho capito qual'è il tuo obiettivo, dovresti spiegare meglio

[AmmoNPartecipante AmmoN]

se scivo SOST nelle celle C2:C14, si deve aprire un textbox che mi dica il nome corrispondente che si trova in B2:B14 dove va?

il risultato di qst domanda me la scrive sotto in corrispondenza. 

il problema è che se scrivo SOST nella colonna C2:C14, il box mi chiede "il nome corrispondente " dove va? e funziona, ma se dovessi scrivere SOST in altre colonne (es. D, E ...ect ect, ) nel textbox non mi appare piu il nome corrispondente che deve prendere dalla colonna B.

ok?

[patelModeratore patel Karma: 51 pts]

Target.Offset(18, 0).Value = InputBox(Cells(Target.Row, "B") & " dove va ?", "ATTENZIONE") '... chiedi destinazione

[AmmoNPartecipante AmmoN]

Okkk..perfetto grazie mille

[Autore]

Articoli