Вставить диапазон с 1-го листа на 2-ой и удалить диапазон

@graverman · Регистрация: 12.03.2016

Author24 — интернет-сервис помощи студентам

Добрый день, всем.

Посоветуйте каким образом сделать своеобразную кнопку отмены после вставки диапазона данных.

на листе "hw" книги есть кнопка копирующая диапазон данных на лист "blank" - все работает нормально.
после переноса данных активируется лист "blank"
хочу сделать кнопку отменяющую действие -вставку данных. То есть допусти ошибочно вставил или лишний раз блок - и нажимаю на кнопку отмены /удаления и последний добавленный диапазон удаляется.

как считать последние добавленные строки на 1 листе? кол-во строк переносимого диапозона может быть разным ( так как с разных листов в лист "blank" будут добавляться разные диапазоны).

Привожу код копирующий диапазон (может что лишнего написал - буду благодарен за указание недочетов)

Visual Basic

Private Sub CommandButton21_Click()
 
Dim q As Integer
Dim rw As Integer
Dim i As Integer
 
q = 66
While Worksheets("blank").Cells(q, 1).Value <> ""
q = q + 1
Wend
rw = q - 66
Worksheets("hw").Activate
Worksheets("hw").Range("A5: AQ18").Select
Selection.Copy
Worksheets("blank").Activate
Worksheets("blank").Cells(q, 1).Select
Worksheets("blank").Cells(q, 1).EntireRow.Insert
Worksheets("blank").Cells(q, 1).Select
ActiveSheet.Paste
i = q + 13
Worksheets("blank").Range("A" & q, "A" & i).Select
Worksheets("blank").Range("A" & q, "A" & i).RowHeight = 15
 
End Sub

Прошу снова хотя бы совета - как организовать подсчет последних добавленных строк?

@KoGG · 16.03.2016, 11:26

Visual Basic

Public LastPasteAddress$ ' находится в стандартном модуле
 
Sub Отмена_копирования() ' находится в стандартном модуле
    If LastPasteAddress <> "" Then Worksheets("blank").Range(LastPasteAddress).Clear
End Sub
  
Private Sub CommandButton21_Click()
    Dim q%, i%
    With Worksheets("blank")
        q = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    End With
    If q < 66 Then q = 66
    Worksheets("hw").Range("A5:AQ18").Copy Worksheets("blank").Cells(q, 1)
    i = q + 13
    LastPasteAddress = "A" & q & ":AQ" & i
    Worksheets("blank").Range("A" & q, "A" & i).Select
    Worksheets("blank").Range("A" & q, "A" & i).RowHeight = 15
End Sub

@graverman · 16.03.2016, 18:20 **[ТС]**

Уважаемый, КоGG.

Спасибо за ответ. Как я понимаю, Вы предложили задать весь блок переменной LasPasteadress и брать из него значение для удаления последнего блока ( могу ошибаться в точности, но надеюсь не в принципе). У меня еще небольшой вопрос. Я плохо знаком с основами и не до конца правильно понял про расположение модулей сделал так :

вставить modul1 в Modules в дереве проекта, в него вписал
Public LastPasteAddress$

кнопка отмены с любого листа работает! Вставляется тоже все отлично!

Огромное спасибо!!!

@graverman 0 / 0 / 0 Регистрация: 12.03.2016 Сообщений: 13
	16.03.2016, 18:20 [ТС]	3
	Уважаемый, КоGG. Спасибо за ответ. Как я понимаю, Вы предложили задать весь блок переменной LasPasteadress и брать из него значение для удаления последнего блока ( могу ошибаться в точности, но надеюсь не в принципе). У меня еще небольшой вопрос. Я плохо знаком с основами и не до конца правильно понял про расположение модулей сделал так : вставить modul1 в Modules в дереве проекта, в него вписал Public LastPasteAddress$ кнопка отмены с любого листа работает! Вставляется тоже все отлично! Огромное спасибо!!! 0

Вставить диапазон с 1-го листа на 2-ой и удалить диапазон

Решение