Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Simplification de Code

Simplification de Code

6 réponses
Avatar
cyr1373
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:\Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "\" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
cyr1373
Oups j'ai oublié..

merci
Avatar
Jacky
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------

--
Salutations
JJ


"cyr1373" a écrit dans le message de
news:
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False


Avatar
Jacky
Re..
Il manque un point devant
[AV90]
.[AV89].Value = [AV90]




--
Salutations
JJ


"Jacky" a écrit dans le message de news:

Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------

--
Salutations
JJ


"cyr1373" a écrit dans le message de
news:
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format
Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False






Avatar
LSteph
Salut Jacky, ;-)
On pourrait raccourcir la litanie des cellules:

'....
Dim i As Byte
'....
With Sheets(nom)
.Unprotect
For i = 3 To 48 Step 3
.Cells(89, i) = .Cells(90, i)
.Cells(137, i) = .Cells(138, i)
Next
End With
'...


'Amicales Salutations
'lSteph

Jacky a écrit :
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------



Avatar
Jacky
Salut Stéphane,

Je n'ai pas poussé jusque là, mes yeux ne suivent plus ;o)
Je pense qu'en nommant les plages se serait encore plus simple
Plage2=plage1
Même que je me demande si une copie de feuille......ne ferait pas l'affaire
Attendons la réaction du demandeur
--
Bonne nuit
JJ


"LSteph" a écrit dans le message de news:
%
Salut Jacky, ;-)
On pourrait raccourcir la litanie des cellules:

'....
Dim i As Byte
'....
With Sheets(nom)
.Unprotect
For i = 3 To 48 Step 3
.Cells(89, i) = .Cells(90, i)
.Cells(137, i) = .Cells(138, i)
Next
End With
'...


'Amicales Salutations
'lSteph

Jacky a écrit :
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------





Avatar
cyr1373
Bonsoir et merci à vous deux,

je vais tester le code de jachy mais je pense que
le fait de nommer les deux plage et un idée lumineuse...
mais concernant la copie de feuille ce n'est pas possible
car le but et de replacer des formules sans toucher à la
mise en page et présentation du document initial.

Cordialement

cyril


"Jacky" a écrit :

Salut Stéphane,

Je n'ai pas poussé jusque là, mes yeux ne suivent plus ;o)
Je pense qu'en nommant les plages se serait encore plus simple
Plage2=plage1
Même que je me demande si une copie de feuille......ne ferait pas l'affaire
Attendons la réaction du demandeur
--
Bonne nuit
JJ


"LSteph" a écrit dans le message de news:
%
> Salut Jacky, ;-)
> On pourrait raccourcir la litanie des cellules:
>
> '....
> Dim i As Byte
> '....
> With Sheets(nom)
> .Unprotect
> For i = 3 To 48 Step 3
> .Cells(89, i) = .Cells(90, i)
> .Cells(137, i) = .Cells(138, i)
> Next
> End With
> '...
>
>
> 'Amicales Salutations
> 'lSteph
>
> Jacky a écrit :
>> Bonsoir,
>> 1er épuration (non tester)
>> '-----------
>> Sub test()
>> 'Sauvegarde du Classeur
>> Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
>> 2009")
>> ScreenUpdating = False
>> nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
>> répertoire = ("c:Planning de Présence")
>> If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
>> ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
>> 'Attente(500)
>> Call copie("planning")
>> Call copie("planning 2")
>> With Sheets("Planning 2")
>> .AutoFilterMode = False
>> .Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
>> End With
>> Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
>> Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
>> ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
>> Scenarios:=True
>> End Sub
>> '---------------------------------------------------
>> Sub copie(nom)
>> With Sheets(nom)
>> .Unprotect
>> .[C89].Value = .[C90]
>> .[F89].Value = .[F90]
>> .[I89].Value = .[I90]
>> .[L89].Value = .[L90]
>> .[O89].Value = .[O90]
>> .[R89].Value = .[R90]
>> .[U89].Value = .[U90]
>> .[X89].Value = .[X90]
>> .[AA89].Value = .[AA90]
>> .[AD89].Value = .[AD90]
>> .[AG89].Value = .[AG90]
>> .[AJ89].Value = .[AJ90]
>> .[AM89].Value = .[AM90]
>> .[AP89].Value = .[AP90]
>> .[AS89].Value = .[AS90]
>> .[AV89].Value = [AV90]
>> .[C137].Value = .[C138]
>> .[F137].Value = .[F138]
>> .[I137].Value = .[I138]
>> .[L137].Value = .[L138]
>> .[O137].Value = .[R138]
>> .[U137].Value = .[U138]
>> .[X137].Value = .[X138]
>> .[AA137].Value = .[AA138]
>> .[AD137].Value = .[AD138]
>> .[AG137].Value = .[AG138]
>> .[AJ137].Value = .[AJ138]
>> .[AM137].Value = .[AM138]
>> .[AP137].Value = .[AP138]
>> .[AS137].Value = .[AS138]
>> .[AV137].Value = .[AV138]
>> End With
>> End Sub
>> '------------------------
>>