Ситуация такая: есть макрос,который считает/выбирает места для складов, он написан для 5 мест - мне нужно его расширить до 9. Насколько я понимаю изменить код и несколько скорректировать формулы вводных данных. Есть понимание?
Stormy,
Ситуация такая: есть макрос,который считает/выбирает места для складов, он написан для 5 мест - мне нужно его расширить до 9. Насколько я понимаю изменить код и несколько скорректировать формулы вводных данных. Есть понимание?wheel04
Pelena, при всем уважении к правилам, решил помочь . Вот Ваш код.
[vba]
Код
Sub Iteration() ' Range("X27:X32").Select Selection.Copy Range("Y27").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("X18:Y22").Select Application.CutCopyMode = False Selection.Copy Range("X10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
[/vba]
Range("X27:X32").Select - Укажите диапазон того что нужно скопировать теперь Range("X18:Y22").Select - Укажите диапазон того что нужно скопировать теперь Range("Y27").Select - Куда будет вставлено теперь Range("X10").Select - Куда будет вставлено теперь
Alt+F11 - открывает редактор, там в модуле нужно сделать эти поправки.
Pelena, при всем уважении к правилам, решил помочь . Вот Ваш код.
[vba]
Код
Sub Iteration() ' Range("X27:X32").Select Selection.Copy Range("Y27").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("X18:Y22").Select Application.CutCopyMode = False Selection.Copy Range("X10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
[/vba]
Range("X27:X32").Select - Укажите диапазон того что нужно скопировать теперь Range("X18:Y22").Select - Укажите диапазон того что нужно скопировать теперь Range("Y27").Select - Куда будет вставлено теперь Range("X10").Select - Куда будет вставлено теперь
Alt+F11 - открывает редактор, там в модуле нужно сделать эти поправки.Stormy