перенос данных - копированием (VBA)

перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?

Пользователь

Сообщений: 23 Регистрация: 17.08.2016

15.09.2016 10:00:28

Код

Sub перенос()
Dim d As String
d = Sheets("Новая схема проводок").Range("B6").CurrentRegion.Rows.Count
Sheets("Новая схема проводок").Range("B6:AO" & d).Select
Range("B6:AO" & d).Copy Sheets("Лист2").Range("A1")

Не пойму почему копирует и переносит не все строки( последние 4 не захватывает), помогите,пожалуйста,разобраться, таблица в диапазоне B:AO, конкретный диапазон не задаю,т.к. размеры таблицы меняются (по количеству строк)

Изменено: katealex - 15.09.2016 10:00:52

SAS888

Пользователь

Сообщений: 765 Регистрация: 01.01.1970

15.09.2016 10:09:12

1. CurrentRegion - это СВЯЗАННЫЙ диапазон. Возможно, у Вас есть пустая строка, которая и "разбивает" нужный Вам диапазон.
2. Т. к. Вы задаете диапазон явно указывая строку (переменная d), то нужно знать, как количество строк диапазона (Rows.Count) соотносится к абсолютному значению строк листа.
Более конкретно без примера файла ответить затруднительно.

Изменено: SAS888 - 15.09.2016 10:12:46

Чем шире угол зрения, тем он тупее.

Azakia

Пользователь

Сообщений: 300 Регистрация: 30.10.2015

15.09.2016 10:11:15

katealex, без примера трудновато
проверьте через msgbox(d) свою переменную
я так понимаю что количество строк определяется по столбцу В
если не досчитаетесь по msgbox(d) то попробуйте определить строчку так
d = Worksheets("Новая схема проводок").Cells(Rows.Count, 2).End(xlUp).Row

SAS888

Пользователь

Сообщений: 765 Регистрация: 01.01.1970

15.09.2016 10:17:45

Выполните

Код
Range("B6").CurrentRegion.Select

и Вам станет понятно, почему количество строк в этом диапазоне (Ваша переменная d) не совпадает с АБСОЛЮТНЫМ НОМЕРОМ последней заполненной строки диапазона.

Чем шире угол зрения, тем он тупее.

katealex Пользователь Сообщений: 23 Регистрация: 17.08.2016	#5 15.09.2016 10:20:07 спасибо большое!!! все получилось через d = Worksheets("Новая схема проводок").Cells(Rows.Count, 2).End(xlUp).Row

katealex

Пользователь

Сообщений: 23 Регистрация: 17.08.2016

15.09.2016 10:31:22

при проверке,кстати, выделяется нужный диапазон

Код
Range("B6").CurrentRegion.Select

SAS888

Пользователь

Сообщений: 765 Регистрация: 01.01.1970

15.09.2016 10:36:08

А Вы посчитайте количество строк в выделенном диапазоне и убедитесь, что оно не равно номеру последней строки диапазона.
ИМХО выше Вашего диапазона есть пустые строки.

Изменено: SAS888 - 15.09.2016 10:41:02

Чем шире угол зрения, тем он тупее.

Azakia Пользователь Сообщений: 300 Регистрация: 30.10.2015	#8 15.09.2016 10:38:20 katealex, ну конечно получилось почитайте там определение строки на все случаи жизни статья умнейшего человека Изменено: Azakia - 15.09.2016 10:39:16

katealex Пользователь Сообщений: 23 Регистрация: 17.08.2016	#9 15.09.2016 10:39:54 не равно, был применен автофильтр и затем нужно было отфильтрованные данные перенести, значит неверно присвоила переменной значение через CurrentRegion, теперь понятно,почему не работало, спасибо!

Читают тему