avrei bisogno di un aiutino x completare la mia macro.
Ho creato un pulsante per attivare la userform COPIA nel foglio1
- Codice: Seleziona tutto
Sub COPIA_RIGHE()
COPIA.Show vbModeless
End Sub
nella userform COPIA ho creato la mia macro:
- Codice: Seleziona tutto
Private Sub UserForm_Initialize()
Set iset = Application.Intersect(Range("A14:V1000"), Selection)
If Not iset Is Nothing Then
If Application.Intersect(Range("A14:V1000"), Selection).Count = Selection.Count Then
L1.Caption = "Le righe da copiare sono: " & Selection.EntireRow.Address(0, 0) & "." & Chr$(10) _
& Chr$(10) & "*** Indicare la destinazione ***"
Range(Cells(Selection.Row, 2), Cells(Selection.Row + Selection.Rows.Count - 1, 22)).Copy
' IF SELEZIONO UNA CELLA MI COPIA L'INTERVALLO E CHIUDE LA USERFORM
Cells(34, 2).Insert Shift:=xlDown ' CELLA FISSA X PROVA
Application.CutCopyMode = False
COPIA.Hide
End If
End If
End Sub
Ho provare ad indicare una cella di destinazione Cells(34, 2) fissa X prova e mi copia perfettamente tutto, come desiderato.
Però NON chiude la userform. non capisco perchè!
Però vorrei che copiasse l'intervallo nella cella da me selezionata (ho usato vbModeless) e conseguentemente mi chiudesse la userform.
Per semplificare, c'è la possibilità di usare un msgbox senza pulsanti di conferma e in modo vbModeless?
Grazie