Установить курсор в ту же ячейку что и на листе N

@amiru · Регистрация: 30.04.2012

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

Люди добрые помогите. Пол дня бился безуспешно:

Visual Basic

    Sheets("В.2").Select
 
'   Здесь необходимо установить курсор в ту же ячейку что и на листе "Ввод"
 
'   Далее надеюсь все работоспособно
 
    Range("Таблица82[[#Эта строка];[1]:[31]]").Select
    Selection.Copy
    Sheets("Ввод").Select
    Range("Таблица8 [[#Эта строка];[1]]").Select
    ActiveSheet.Paste
    Range("F3").Select

@Казанский · 30.04.2012, 18:26

Visual Basic

dim a
a=selection.address
Sheets("В.2").Select
range(a).select

Хотя можно обойтись и без Select, и без переключения листов. Мне непонятен синтаксис [#Эта строка].

@amiru · 30.04.2012, 19:02 **[ТС]**

Сообщение от Казанский

Мне непонятен синтаксис [#Эта строка].

Вот и мне он теперь не понятен и VBA не понимает! Когда пользовал строку формул в Таблицах все работало.

А задумка была следующей: не зависимо от того, в каком столбце находится активная ячейка
в Таблице, скопировать в буфер значения активной строки по столбцам с 1 по 31

Как быть? Помоги прошу

Dragokas · 30.04.2012, 22:23

Можно и напрямую без буфера, только Вы не написали куда (в данном случае на лист2 в ячейки, начиная с А1:

Visual Basic

1	Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 31)).Copy Destination:=Sheets("Ëèñò2").[A1]

@amiru 0 / 0 / 0 Регистрация: 30.04.2012 Сообщений: 7
	30.04.2012, 19:02 [ТС]	3
	Сообщение от Казанский Мне непонятен синтаксис [#Эта строка]. Вот и мне он теперь не понятен и VBA не понимает! Когда пользовал строку формул в Таблицах все работало. А задумка была следующей: не зависимо от того, в каком столбце находится активная ячейка в Таблице, скопировать в буфер значения активной строки по столбцам с 1 по 31 Как быть? Помоги прошу 0

	30.04.2012, 22:23