COnvalida dati + copia ed incolla

Question

Buona sera,

mi piacerebbe sapere se sia possibile usare il menu a tendina di convalida dati per copiare i dati di una cella ed incollarli in un altra.

Mi spiego meglio:

In una colonna ho creato un menu' convalida dati con una sola voce in elenco e cioe' "Closed". L'ho fatto solo per pigrizia per non scrivere ogni volta la stessa parola. Non ha nessuna funzione particolare. 

Adesso due colonne dopo ho una formula che mi da un valore se la cella ove risiede la convalida dati e' vuota.

Al momento che attivo la convalida dati e cioe' nella celle viene immessa la parola "Closed" vorrei far copiare il valore della formula che risiede due colonne dopo ed incollare tale valore nella colonna subito dopo la formula.

Tutto questo deve avvenire prima che la parola Closed venga selezionata altrimenti la condizione della formula viene soddisfatta e non ci sara' piu' nessun valore nella colonna della formula.

Non so se si e' capito bene cosa intendo ma spero come al solito nel vostro aiuto.

Saluti

Giuseppe

Answer 1

Ciao Giuseppe,

mi piacerebbe sapere se sia possibile usare il menu a tendina di convalida dati per copiare i dati di una cella ed incollarli in un altra.

Mi spiego meglio:

In una colonna ho creato un menu' convalida dati con una sola voce in elenco e cioe' "Closed". L'ho fatto solo per pigrizia per non scrivere ogni volta la stessa parola. Non ha nessuna funzione particolare. 

Adesso due colonne dopo ho una formula che mi da un valore se la cella ove risiede la convalida dati e' vuota.

Al momento che attivo la convalida dati e cioe' nella celle viene immessa la parola "Closed" vorrei far copiare il valore della formula che risiede due colonne dopo ed incollare tale valore nella colonna subito dopo la formula.

Tutto questo deve avvenire prima che la parola Closed venga selezionata altrimenti la condizione della formula viene soddisfatta e non ci sara' piu' nessun valore nella colonna della formula.

Credo che la tua domanda sia più complessa che potesse sembrare di primo acchito! 

Comunque, prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

Option Compare Text

'--------->>

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rng As Range, rCell As Range

    Dim rngConvalida As Range

    Dim arrValues As Variant

    Const sIntervalliConvalida As String = "A1:A10"     '<<=== Modifica

    Const sParola As String = "Closed"

    Set rngConvalida = Me.Range(sIntervalliConvalida)

    Set Rng = Intersect(rngConvalida, Target)

    If Not Rng Is Nothing Then

        On Error GoTo XIT

        Application.EnableEvents = False

        For Each rCell In Rng.Cells

            With rCell

                If .Value = sParola Then

                    .Value = vbNullString

                    .Offset(0, 3).Value = .Offset(0, 2).Value

                    .Value = sParola

                End If

            End With

        Next rCell

    End If

XIT:

    Application.EnableEvents = True

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Potresti scaricare il mio file di prova Giuseppe#2_20170830.xlsm

===

Regards,

Norman

Answer 2

Buongiorno Giuseppe,

sei sempre qui a darmi una mano.

Ti ringrazio infinitamente, hai risolto il mio ennesimo problema.

Grazie per il vostro gentile e consueto aiuto.

Mi fa piacere che il problema sia risolto e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Buongiorno Norman,

sei sempre qui a darmi una mano.

Ti ringrazio infinitamente, hai risolto il mio ennesimo problema.

Grazie per il vostro gentile e consueto aiuto.

Saluti

Giuseppe