Как прикрепится не к колонке по номеру, а по «значению» в «Экселе»?

Question

[Павел]

Сделал я пару скриптов для удобства использования документа, но не только я работаю в документе, и частенько там происходит вакханалия: столбцы перемещают, добавляют и т.п.

Я обращаюсь по:

Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange.Columns(5).Cells
If cell.Value = "нет" Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Columns(5)

И вот, например, еще кусочек кода

Sheets("Лист 1").Cells(1 + Offset1, 1 + Offset2).Value = Sheets("Лист 2").Cells(i, 18)

Тут последний параметр 18 — номер столбца.

Как уйти от проблемы?

Answer 1

[Korben5E]

присвоить имя ячейке и адресовать уже по имени

Comments

[Павел]

а как это сделать? Можно пример?

[Sergey В.]

Павел,
- Выбираете нужную ячейку (например В2);
- В левом вержнем углу листа (где высвечивается В2) пишете например Summa
- Обращаетесь в коде к этой ячейке как
[Summa].Value
или
Thisworksheet.Range("Summa").Value
Ячейку можно перемещать куда угодно.

[Павел]

BasiC2k, спасибо