Moderatori: Anthony47, Flash30005
Sub Raggruppa()
' Raggruppa() Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+R
Dim Numero_lotti, n10, n62 As Integer
Numero_lotti = Cells(4, 9).Value
n10 = Numero_lotti + 11
n62 = Numero_lotti + 63
Selection.ClearOutline
Rows(n10 & ":54").Select
Selection.Rows.Group
Rows(n62 & ":106").Select
Selection.Rows.Group
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("C" & n10 - 1).Select
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
Range("I4").Select
Selection.Copy
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
Application.EnableEvents = False
If Range("i4").Value <> Range("j4").Value Then
Call Raggruppa
Call Macro1
End If
Application.EnableEvents = True
End Sub
Mi occorrerebbe eseguire una macro al verificarsi del cambiamento del valore di una determinata cella (questo valore è definito con una formula). Mi dite come posso fare?
Torna a Applicazioni Office Windows
Macro per aggiungere testo in tutti i files di una cartella? Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 15 |
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
Macro riporta testo specifico se condizione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 18 |
Macro se condizione vera allora salta comandi successivi Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro crea file word rinominato come dato in specifica cella Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Nessuno e 12 ospiti