macro per copiare la cella attiva e la prima a Dx

Question

ciao a tutti, Vi chiedo un' altro aiuto, avrei bisogno di una macro che mi permetta , premendo un pulsante, di inserire il contenuto della cella attiva (ad esempio come l'immagine , la "i7" ) e quella subito a Dx ("j7) nella tabella B:E

Quindi nella tabella "Codice e Rev." dovrei inserire il codice "060021" e la Rev. "4 "

Answer 1

Ciao Andrea,

ti chiedo una cortesia, quando clicco il pulsante funziona tutto ma è possibile fare in modo che si colori anche la relativa cella a sinistra (colonna H) come nell'immagine?

Prova a sostituire il codice precedente con la seguente versione:

'========>>

Option Explicit

'-------->>

Private Sub CommandButton1_Click()

Dim srcRng As Range, destRng As Range 

If ActiveCell.Column <> Me.Columns("I").Column Then 

    Call MsgBox(Prompt:="Questa procedura richiede che una cella nella colonna I sia attiva", \_ 

        Buttons:=vbInformation, \_ 

        Title:="REPORT") 

    Exit Sub 

End If 

Set srcRng = ActiveCell.Resize(1, 2) 

Set destRng = Me.Range("B2").End(xlDown).Offset(1).Resize(1, 2) 

destRng.Value = srcRng.Value 

srcRng.Cells(1, 0).Interior.Color = 5287936 

End Sub

'<<========

Ho aggiornato il mio file di prova Andrea20210803.xlsm

===

Regards,

Norman

![](https://learn-attachment.microsoft.com/api/attachments/22b91691-71bd-426c-a5cc-2d2963d225d7?platform=QnA

Answer 2

Ciao Andrea,

Vi chiedo un' altro aiuto, avrei bisogno di una macro che mi permetta , premendo un pulsante, di inserire il contenuto della cella attiva (ad esempio come l'immagine , la "i7" ) e quella subito a Dx ("j7) nella tabella B:E

Quindi nella tabella "Codice e Rev." dovrei inserire il codice "060021" e la Rev. "4 "

Prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Private Sub CommandButton1_Click()

Dim srcRng As Range, destRng As Range 

If ActiveCell.Column <> Me.Columns("I").Column Then 

    Call MsgBox(Prompt:="Questa procedura richiede che una cella nella colonna I sia attiva", \_ 

        Buttons:=vbInformation, \_ 

        Title:="REPORT") 

    Exit Sub 

End If 

Set srcRng = ActiveCell.Resize(1, 2) 

Set destRng = Me.Range("B2").End(xlDown).Offset(1).Resize(1, 2) 

destRng.Value = srcRng.Value 

End Sub

'<<========

Potresti scaricare il mio file di prova Andrea20210803.xlsm

===

Regards,

Norman

Answer 3

Ciao Andrea,

Vi chiedo un' altro aiuto, avrei bisogno di una macro che mi permetta , premendo un pulsante, di inserire il contenuto della cella attiva (ad esempio come l'immagine , la "i7" ) e quella subito a Dx ("j7) nella tabella B:E

Quindi nella tabella "Codice e Rev." dovrei inserire il codice "060021" e la Rev. "4 "

Prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Private Sub CommandButton1_Click()

Dim srcRng As Range, destRng As Range

If ActiveCell.Column <> Me.Columns("I").Column Then

Call MsgBox(Prompt:="Questa procedura richiede che una cella nella colonna I sia attiva", _

Buttons:=vbInformation, _

Title:="REPORT")

Exit Sub

End If

Set srcRng = ActiveCell.Resize(1, 2)

Set destRng = Me.Range("B2").End(xlDown).Offset(1).Resize(1, 2)

destRng.Value = srcRng.Value

End Sub

'<<========

Potresti scaricare il mio file di prova Andrea20210803.xlsm

===

Regards,

Norman

Ciao Norman,

ti chiedo una cortesia, quando clicco il pulsante funziona tutto ma è possibile fare in modo che si colori anche la relativa cella a sinistra (colonna H) come nell'immagine?

grazie

Answer 4

Ciao Andrea,

funziona bene, ora dovrò adattarla al mio file

come sempre grazie 1000 e ci risentiremo.....

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 5

ciao Norman

funziona bene, ora dovrò adattarla al mio file

come sempre grazie 1000 e ci risentiremo.....

ciao