Как найти следующую, после последней заполненной, строку

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как найти следующую, после последней заполненной, строку (Макросы Sub)

Stormy

Дата: Среда, 12.02.2014, 17:13 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток, уважаемые форумчане.
Как из формы при помощи "горячих клавиш" скопировать и вставить диапазон B19:T19 в строку после последней заполненной?
Скопировал B19:T19 и вставил как значения в B22:T22 , а дальше как "научить" макрос самому находить?
При достижение строки B28 вызвать сообщение о необходимости сохранить данные.

К сообщению приложен файл: 4502831.rar (34.4 Kb)

Место для рекламы.

Сообщение отредактировал Stormy - Среда, 12.02.2014, 17:54

Ответить

Stormy

Дата: Среда, 12.02.2014, 17:56 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Получился вот такой код. Находит и копирует данные. Но как его привязать к клавишам и заставить запускать с формы?

[vba]

Код

Sub makro()

Dim x1
Range("B10:L10").Select
     Selection.Copy
     x1 = Columns("B").Rows(29).End(xlUp).Row
   Range("B" & x1 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
         If Range("B23") <> 0 Then
         MsgBox "Блок заполнен. Отправьте данные в архив"
         End If
         Application.CutCopyMode = False
End Sub

[/vba]

Место для рекламы.

Ответить

Wasilich

Дата: Среда, 12.02.2014, 20:10 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Так наверно:
[vba]

Код

x1 = Range("B" & Rows.Count).End(xlUp).Row + 1

Range("B" & x1).Select
' Или
Cells(x1, 2).Select

[/vba]

Ответить

Stormy

Дата: Среда, 12.02.2014, 20:58 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Wasilic,
С этим разобрался, с *горячими клавишами* ничего не получается ((

Место для рекламы.

Ответить

KuklP

Дата: Среда, 12.02.2014, 20:58 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кто Вас знает, что Вам надо. <_<

Ваш макрос, присвойте ему сочетание клавиш(файл не смотрел):
[vba]

Код

Sub makro()
     [B10:L10].Copy Range("B" & cells(29,2).End(xlUp).Row + 1)
     If len(Range("B23")) Then
         MsgBox "Блок заполнен. Отправьте данные в архив"
     End If
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Как найти следующую, после последней заполненной, строку (Макросы Sub)

Страница 1 из 1
1