Как правильнее?

[ruvster]

Как правильнее (лучше, удобней) писать:
Range("a1").Copy Range("b1")
или
Range("b1") = Range("a1")
Спасибо.

[GSerg]

Смотря какая у тебя цель.

[ruvster]

Просто хотел узнать в чем разница.
И еще вопрос.
Пишу:
Set a = Range("a1")
Set b = Range("b1")
a.Copy b

Все нормально. А вот если:

Set a = Range("a1")
Set b = Range("b1")
b = a
Тогда не катит. Почему?
Это я к вопросу Васи-Глаши (задолбали они меня уже).
Я написал:
Set Вася = Worksheets(1).Columns(1).Find("Вася", , xlValues, xlWhole).Offset(0, 1)
Set Глаша = Worksheets(2).Columns(3).Find("Глаша", , xlValues, xlWhole).Offset(0, 1)
Теперь пишу:
Вася.Copy Глаша
И все путем, а вот если хочу сложить Васю и Петю и отдать все Глаше, то пишу:
Set Вася = Worksheets(1).Columns(1).Find("Вася", , xlValues, xlWhole).Offset(0, 1)
Set Петя = Worksheets(1).Columns(1).Find("Петя", , xlValues, xlWhole).Offset(0, 1)
Set Глаша = Worksheets(2).Columns(3).Find("Глаша", , xlValues, xlWhole).Offset(0, 1)
Глаша=Вася+Петя
Ни фига.
Где ошибка? Я ж только начинаю VBA рассматривать и многого не понимаю.
Спасибо.
PS
А массив тут может помочь как нибудь? Потому как Вась, Машь, Петь у меня до хрена?

[GSerg]

Ответ на все данные вопросы разом (правда, в форме вопроса): ты переменные объявляешь?

[ruvster]

Пробовал.
Тогда он мне вообще ошибки выдает и не знаю почему.
(объявляю переменные, как Double)
Главное, задача то простая. Вася - Глаша, Глаша - Маша

[ruvster]

Может глянешь одним глазком. Если я файл выложу?

[GSerg]

Вот ты переменные-то сначала объяви. Все. И не double, а тех типов, которые нужны.
Потом наверху option explicit напиши, самой первой строчкой модуля.

Потом продолжим

[ruvster]

Дело совсем не в объявлении переменных.
Суть не в этом.
Я могу тупо расписать:
Worksheets(1).Columns(1).Find("м-н лада", , xlValues, xlWhole).Offset(0, 1).Copy _
Worksheets(2).Columns(3).Find("лада", , xlValues, xlWhole).Offset(0, 1)

Worksheets(1).Columns(1).Find("м-н перекресток", , xlValues, xlWhole).Offset(0, 1).Copy _
Worksheets(2).Columns(3).Find("перекресток", , xlValues, xlWhole).Offset(0, 1)

Worksheets(2).Columns(3).Find("Копейка 1 в т.ч.", , xlValues, xlWhole).Offset(0, 1) = _
Worksheets(1).Columns(1).Find("М-Н КОПЕЙКА 1 ГАСТРОНОМ", , xlValues, xlWhole).Offset(0, 1) + _
Worksheets(1).Columns(1).Find("М-Н КОПЕЙКА 1 ВИНО-ВОДОЧНЫЙ", , xlValues, xlWhole).Offset(0, 1)

И так 30 позиций.
И все будет тип-топ.
Но думаю, что это совсем неправильно.
Должен быть другой выход. Более простой.
А объявление переменных в данном случае...
Ну, не объявлю я их. Чем тебе переменная типа "Variant" не нравится?

[GSerg]

Чем тебе переменная типа "Variant" не нравится?

Тем, что возникает неразрешамая неоднозначность.

Есть переменная v As Variant. В ней хранится ссылка на объект. У объекта есть свойство по умолчанию.
Выполняем команду v = "asd".
Что мы делаем этой командой? Забываем про объект и записываем вместо него строку? Или присваиваем строку свойству по умолчанию, которое есть у объекта, то есть, к примеру, v.value = "asd"?



Давай ты задачу изначально опишешь, без Глаш?

[ruvster]

Вот собственно на данный момент такая задача в файле.

[ruvster]

Случайно два раза отправил

[Twister]

Зачем два раза?

[Twister]

1. Workbooks.Open ("C:\vhod\Шаблон.xls") - старайся не указывать полный путь, потом могут возникнуть траблы.
2. Option Explicit все таки рулит - поставь его и объяви переменные, это уменьшит вероятность ошибки.

[ruvster]

Самое главное, что код какой-то "левый". Другие варианты возможны?

[ruvster]

Да, еще в шаблоне написана формула для подсчета суммы. Хотелось бы ее высчитать программно. Чтой-то не получается

[GSerg]

А сводная таблица не спасёт отца русской демократии?

[ruvster]

По поводу сводной таблицы... Я плохо представляю, как это будет выглядеть.

[GSerg]

Я тоже, но я ещё и плохо представляю твою задачу...