| | Post: 8 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
  07/03/2020 14:18 | |
Salve a tutti,
un aiuto in vba
ho registrato una macro
però alcune volte vorrei
che nella macro non mi eseguisse
If Cells(7, 114).Value = 1 Then
Range("DK14").Select
ActiveCell.Range("A1:CL" & r).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Else: Exit
End If
questo e continui l'elaborazione o terminare la macro
dico che se cella dk7 contiene 1
deve saltare queste righe di macro e continuare dopo
Ho provato con If...then
else:exit
un aiuto
Grazie |
|
| | Post: 912 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 07/03/2020 14:46 | |
Senza entrare nel merito della macro, così si dovrebbe ottenere quello che chiedi, ovvero gira la frittata, esegui le altre righe solo se DK7 è diversa da 1: If Cells(7, 114).Value <> 1 Then
Range("DK14").Select
ActiveCell.Range("A1:CL" & r).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If[Modificato da rollis13 07/03/2020 14:50]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 8 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
| 07/03/2020 15:55 | |
Salve rollis,
grazie del suggerimento
Ci stavo girando intorno
ma quando non si vuole seguire il corso
"non è mai troppo tardi"
ci si perde ore e capoccia.
OK risolto il problema
Ancora grazia |
| | Post: 913 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 07/03/2020 16:29 | |
Grazie del riscontro positivo 👍.
In realtà, se ho intuito bene quello che avevi in mente di fare, credo che quelle righe vanno scritte così:
If Cells(7, 114).Value <> 1 Then
ActiveCell.Range("A1:CL" & r).Copy
Range("DK14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If[Modificato da rollis13 07/03/2020 16:30]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|
|
|