Автоматическое копирование определенного диапазона строк и вставка нужного колич

Автор Bulava81, 05.06.2014, 14:56

« назад - далее »

Bulava81

Друзья, помогите с написанием макроса! Буду Вам премного благодарен за квалифицированную консультацию и практические рекомендации.
У меня задача заключается в следующем: При введении цифры в любую ячейку диапазона (H4:BG5002), например цифры 1, 2....1000, необходимо, чтобы вся строка, в которую была введена цифра в диапазон (H4:BG5002) копировалась со всем содержимым и формулами и вставлялась строкой ниже, при этом количество скопированных и вставленных строк равнялось этому числу, то есть ввели число 5 в диапазон (H4:BG5002, например строка H4), соответственно строка H4 была скопирована и вставлена в количестве пяти строк начиная с H5 (то есть сразу под строкой в которую ввели цифру).
Пример во вложении.

kuklp

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H4:BG5002]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Not IsNumeric(Target) Then Exit Sub
    Application.EnableEvents = False
    Target(2).Resize(Target.Value).EntireRow.Insert CopyOrigin:=1
    Target.EntireRow.Copy Target(2).Resize(Target.Value)
    Application.EnableEvents = True
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771