Ciao bysal ho provato ad applicare quello che ho postato,e per essere funziona,purtroppo ho notato che un volta posizionato alla secondo clik, invece di incollare il blocco mi inserisce solo 1 cella nella quale mi sono posizionato con il mouse.
E se gli dico di copiare 5 volte,
in pratica non avendo piu' modo di posizionarmi con il mouse, ripete si la macro 104 ma non succede nulla.
Tu hai qualche soluzione a questo enigma???
Option Explicit
Private Controllo As Boolean
Sub DoppiaMacro3()
If Controllo = False Then
Call Macro101
Controllo = True
Else
Call Macro1104
Controllo = False
End If
End Sub
-------------------------------------
Sub Macro1104()
'
' Macro1104 Macro
Dim i As Long
For i = 1 To Application.InputBox("quante voci vuoi inserire?", , , , , , 1)
Macro104
Next i
End Sub
-------------------
Sub Macro104()
'
' Macro104 Macro
'
'
Dim MYMESSAGE As Variant
MYMESSAGE = MsgBox("VUOI PROCEDERE A INSERIRE NUOVA VOCE VUOTA?", vbOKCancel)
If MYMESSAGE = vbOK Then
Application.ScreenUpdating = False
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
ActiveCell.Offset(8, 24).Range("A1:B1").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:B2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:B2").Select
ActiveCell.Offset(0, 19).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A2").Select
ActiveCell.Offset(1, -43).Range("A1").Select
ActiveWindow.SmallScroll Down:=3
Cells.Find( _
What:="*", _
After:=Range("a1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Select
ActiveCell.Offset(-8, 0).Rows("1:9").EntireRow.Select
ActiveCell.Activate
Selection.Copy
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
ElseIf MYMESSAGE = vbCancel Then
MsgBox "CANCELLATO"
End If
End Sub
---------------------------------
[Modificato da fabrizio.ExcelForum 07/01/2020 19:08]