Inserire valori fissi tramite macro.

Question

Salve,

ho la seguente situazione:

Siccome nella colonna B ci sono valori che cambiano in continuazione, mi serve l'archivio storico, da riportare nella colonna A, del primo valore che esce nel momento in cui inserisco dei nuovi valori nell'intervallo D:F.

Ad esempio, se nella cella B24 il valore 1 passa ad un altro valore, il valore 1 già presente nella cella adiacente della colonna A non deve cambiare.

Mi dite come costruire la macro?

Vladimiro

Answer 1

Ciao Vladimiro,

Ciao Norman,

Ho alcune ulteriori domande:

• I valori in ogni riga dell'intervallo C23:F27 sono inseriti manualmente o sono il risultato di formule ? Sono inseriti manualmente
• Nel primo caso, i valori vengono inseriti in sequenza nelle celle della riga o i dati vengono copiati nella riga in un'unica operazione di copia ? Vengono inseriti in sequenza.
• Con riferimento al secondo scenario, se la riga da cui partire fosse (ad esempio) la riga 28 con un nuovo inserimento nell'intervallo di celle C28 : F28, ho ragione nel ritenere che l'intervallo B23:B27 debba essere copiato nell'intervallo A23: A27? Esatto.

Un ulteriore domanda.

Siccome c'è la possibilità di avere anche valore nullo nelle celle della colonna B, naturalmente dopo aver inserito i dati nell'intervallo C : F della riga corrispondente, crea qualche problema nella macro?

Esempio:

Come puoi vedere, nella riga 28, dopo aver inserito i dati nell'intervallo di celle C28 : F28, il valore della cella B28 è nullo e di conseguenza, con la macro, dovrebbe essere nullo anche il valore della cella A28 rimanendo nullo anche nei futuri inserimenti:

A condizione di aver compreso appieno, nel caso del primo scenario, nel modulo di codice del foglio di interesse prova:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, Rng2 As Range, RngA As Range, RngB As Range, rRow As Range 

Const sIntervallo As String = "D:F"  'D23:F27" 

Const iPrimaRiga As Long = 23 

With Me.Range(sIntervallo) 

    Set Rng = .Columns(.Columns.Count) 

    Set Rng = Rng.Resize(Me.UsedRange.Rows.Count - iPrimaRiga + 1).Offset(iPrimaRiga - 1) 

End With 

Set Rng2 = Intersect(Rng, Target) 

If Not Rng2 Is Nothing Then 

    On Error GoTo XIT 

    Application.EnableEvents = False 

    For Each rRow In Rng2.Cells 

        With rRow 

            Set RngA = Intersect(.EntireRow, Me.Columns("A")) 

            Set RngB = Intersect(.EntireRow, Me.Columns("B")) 

            If IsEmpty(RngA) Then 

                RngA.Value = RngB.Value 

            End If 

        End With 

    Next rRow 

End If 

XIT:

Application.EnableEvents = True 

End Sub

'<<========

Nel caso del secondo scenario, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, Rng2 As Range, Rng3 As Range 

Dim RngA As Range, RngB As Range, rRow As Range 

Dim bFlag As Boolean 

Const sIntervallo As String = "D:F" 

Const iPrimaRiga As Long = 23 

Const iRiga\_da\_Partire As Long = 28 

With Me.Range(sIntervallo) 

    Set Rng = .Columns(.Columns.Count) 

    Set Rng = Rng.Resize(Me.UsedRange.Rows.Count - iPrimaRiga + 1).Offset(iPrimaRiga - 1) 

End With      

Set Rng2 = Intersect(Rng, Target)      

If Not Rng2 Is Nothing Then 

    bFlag = Rng2.Row = iRiga\_da\_Partire 

    On Error GoTo XIT 

    Application.EnableEvents = False 

    If bFlag Then 

        Set Rng3 = Intersect(Rng.Resize(iRiga\_da\_Partire - iPrimaRiga).EntireRow, Me.Columns("B")) 

        Rng3.Offset(0, -1).Value = Rng3.Value 

    End If 

    For Each rRow In Rng2.Cells 

        With rRow 

            Set RngA = Intersect(.EntireRow, Me.Columns("A")) 

            Set RngB = Intersect(.EntireRow, Me.Columns("B")) 

            If IsEmpty(RngA) Then 

                RngA.Value = RngB.Value 

            End If 

        End With 

    Next rRow 

End If 

XIT:

Application.EnableEvents = True 

End Sub

'<<========

Potresti scaricare il mio file di prova Vladimiro20210609.xlsm

===

Regards,

Norman

Answer 2

Ciao Vladimiro,

siccome alla tua domanda non sono in grado di rispondere, si potrebbero avere da parte tua due soluzioni?

1. Inizio inserimento dati con stessi valori nelle celle A23 e B23.
2. Stessi valori come in figura fino alla riga 27 e inizio inserimento dati dalla riga 28.

Sfortunatamente, non ho capito cosa dovrebbe accadere in nessuno dei due scenari che hai descritto. Per favore, potresti fornire un paio di esempi pratici di ciò che dovrebbe accadere in questi casi.

===

Regards,

Norman

Answer 3

Ciao Vladimio.

ho la seguente situazione:

Siccome nella colonna B ci sono valori che cambiano in continuazione, mi serve l'archivio storico, da riportare nella colonna A, del primo valore che esce nel momento in cui inserisco dei nuovi valori nell'intervallo D:F.

Ad esempio, se nella cella B24 il valore 1 passa ad un altro valore, il valore 1 già presente nella cella adiacente della colonna A non deve cambiare.

Mi dite come costruire la macro?

Per capire meglio la tua richiesta, confermeresti che inizialmente la colonna A è vuota?

===

Regards,

Norman

Ciao Norman,

siccome alla tua domanda non sono in grado di rispondere, si potrebbero avere da parte tua due soluzioni?

1. Inizio inserimento dati con stessi valori nelle celle A23 e B23.
2. Stessi valori come in figura fino alla riga 27 e inizio inserimento dati dalla riga 28.

Spero di essere stato comprensibile nella risposta.

Vladimiro

Answer 4

Ciao Vladimiro,

Per capire meglio la tua richiesta, confermeresti che inizialmente la colonna A è vuota?

In attesa della tua confermazione, nel modulo di codice del foglio di intertesse, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, RngA As Range, RngB As Range, rCell As Range 

Const sIntervallo As String = "D23:F27" 

Set Rng = Intersect(Me.Range(sIntervallo), Target) 

If Not Rng Is Nothing Then 

    On Error GoTo XIT 

    Application.EnableEvents = False 

    For Each rCell In Rng.Cells 

        With rCell 

            Set RngA = Intersect(.EntireRow, Me.Columns("A")) 

            Set RngB = Intersect(.EntireRow, Me.Columns("B")) 

            If IsEmpty(RngA) Then 

                RngA.Value = RngB.Value 

            End If 

        End With 

    Next rCell 

End If 

XIT:

Application.EnableEvents = True 

End Sub

'<<========

===

Regards,

Norman

Answer 5

Ciao Vladimio.

ho la seguente situazione:

Siccome nella colonna B ci sono valori che cambiano in continuazione, mi serve l'archivio storico, da riportare nella colonna A, del primo valore che esce nel momento in cui inserisco dei nuovi valori nell'intervallo D:F.

Ad esempio, se nella cella B24 il valore 1 passa ad un altro valore, il valore 1 già presente nella cella adiacente della colonna A non deve cambiare.

Mi dite come costruire la macro?

Per capire meglio la tua richiesta, confermeresti che inizialmente la colonna A è vuota?

===

Regards,

Norman