Задать диапазон по списку

@kmtz · Регистрация: 14.04.2015

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

Всем привет, вот возникла проблема надо сделать чтоб я не вручную в коде прописывал строки 1,2,3 и тд а чтобы сразу по списку до конца сколько есть

вот код как я понимаю надо какой то диапазон задать но ничего в этом не понимаю

помогите

Visual Basic

Sub Макрос1()
'
' Макрос1 Макрос
'
 
'
    Rows("2:2").Select
    Range("C2").Activate
    Selection.Copy
    Sheets("РЗЯкутск").Select
    ActiveSheet.Paste
    Sheets("накл новая").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Счета ДМД").Select
    Rows("3:3").Select
    Range("C3").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("РЗЯкутск").Select
    ActiveSheet.Paste
    Sheets("накл новая").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Добавлено через 39 минут

Visual Basic

1 2	Rows("3:3").Select Range("C3").Activate

вот нужно чтоб был не 1 2 3 и тд

а сразу он до конца этого списка по очереди брал строку совершал действия в коде которые дальше идут, и потом опять следующую и так до конца списка

@Vlad999 · 14.04.2015, 13:52

Visual Basic

Dim LRow As Long, i%
LRow = Cells(Rows.Count,1).End(xlUp).Row 'определяем номер строки с последней заполненной ячейкой в 1 столбце
For i=1 To LRow 'цикл по строкам
...код...
next

@Казанский · 14.04.2015, 17:15

kmtz, приложите файл и объясните словами, что должно происходить.

@kmtz · 15.04.2015, 11:32 **[ТС]**

должны выполняться действия в моем коде, но нужно чтоб Rows("2:2").Select
Range("C2").Activate
вот это как то автоматизировать чтоб я в коде не вбивал потом 3 4 5 6 и тд
а чтобы сразу до конца документа он по очереди строки брал эти потом проделывал действия в коде

Добавлено через 1 минуту
и можете сразу с моим кодом написать понятия не имею куда что вставлять

@Vlad999 · 15.04.2015, 11:41

приложите ваш файл.

@kmtz · 15.04.2015, 12:10 **[ТС]**

вот файл пароль ольга2010 http://rghost.ru/7BxLd7FXr

Fairuza · 15.04.2015, 12:22

kmtz, по Правилам файлы надо выкладывать на форум. Расширенный режим - Управление вложениями

@kmtz · 15.04.2015, 12:29 **[ТС]**

я пытался но файл слишком большой а для решения задачи удалить не могу с него многое

Fairuza · 15.04.2015, 12:31

kmtz, заархивируйте

@kmtz · 15.04.2015, 12:55 **[ТС]**

все равно не влезает даже заархивированный

@Vlad999 · 15.04.2015, 13:16

проверяйте, желательно на копии

Visual Basic

Sub На_печать()
Dim LRow As Long, i%
LRow = Sheets("Счета ДМД").Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To LRow
    Sheets("Счета ДМД").Rows(i).Copy
    Sheets("РЗЯкутск").Range("A1").PasteSpecial
    Sheets("накл новая").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next
Application.CutCopyMode = False
End Sub

@kmtz · 15.04.2015, 13:42 **[ТС]**

Влад спасибо большое все получилось!) спасибо за помощь

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.04.2015, 17:15	3
	kmtz, приложите файл и объясните словами, что должно происходить. 0

@kmtz 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 6
	15.04.2015, 11:32 [ТС]	4
	должны выполняться действия в моем коде, но нужно чтоб Rows("2:2").Select Range("C2").Activate вот это как то автоматизировать чтоб я в коде не вбивал потом 3 4 5 6 и тд а чтобы сразу до конца документа он по очереди строки брал эти потом проделывал действия в коде Добавлено через 1 минуту и можете сразу с моим кодом написать понятия не имею куда что вставлять 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	15.04.2015, 11:41	5
	приложите ваш файл. 0

@kmtz 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 6
	15.04.2015, 12:10 [ТС]	6
	вот файл пароль ольга2010 http://rghost.ru/7BxLd7FXr 0

Fairuza 6002 / 3197 / 716 Регистрация: 23.11.2010 Сообщений: 10,684
	15.04.2015, 12:22	7
	kmtz, по Правилам файлы надо выкладывать на форум. Расширенный режим - Управление вложениями 0

@kmtz 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 6
	15.04.2015, 12:29 [ТС]	8
	я пытался но файл слишком большой а для решения задачи удалить не могу с него многое 0

Fairuza 6002 / 3197 / 716 Регистрация: 23.11.2010 Сообщений: 10,684
	15.04.2015, 12:31	9
	kmtz, заархивируйте 0

@kmtz 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 6
	15.04.2015, 12:55 [ТС]	10
	все равно не влезает даже заархивированный 0

@kmtz 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 6
	15.04.2015, 13:42 [ТС]	12
	Влад спасибо большое все получилось!) спасибо за помощь 0

Задать диапазон по списку

Решение