Как присвоить имя столбцу в VBA?

[Neo007]

Подскажите, можно ли столбцу в коде VBA присвоить имя, которое будет заменять ему его букуву при обращении?

Например, чтобы столбец "A" стал столбцом "January". Тогда Cells(1,"A") будет то же самое, что и Cells(1,"January")

[viter.alex]

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

  Dim January As Range
  Set January = Worksheets(1).Columns(1)

[Neo007]

Да, я так пробовал, но дело в том, что само значение January я нахожу с помощью переменной, которая заключает имя в кавычки:
например:
i=лист1.cells(1,1), откуда i="january".
затем, когда я пишу лист2.cells(1,i) - возникает ошибка, т.к. i - содержит имя в кавычках.
Как избежать этой ошибки?

[viter.alex]

Сообщение от Neo007

Да, я так пробовал, но дело в том, что само значение January я нахожу с помощью переменной, которая заключает имя в кавычки:
например:
i=лист1.cells(1,1), откуда i="january".
затем, когда я пишу лист2.cells(1,i) - возникает ошибка, т.к. i - содержит имя в кавычках.
Как избежать этой ошибки?

Нужно следить за типами переменных и, желательно, объявлять их.
Как объявлена i? Скорее всего никак. Ты ей присваиваешь строковое значение "january". И что ты хочешь от строки?
Чтобы присвоить переменной, имя ячейки, то это имя нужно заключить в квадратные скобки

i=[january]

[Neo007]

Я пишу так
Sub Macros()
Dim i, January As Range
Set January = Worksheets("Invoiced").Columns(7)
Set i = Worksheets("Details").Cells(2, "L") 'в этой ячейке содержится значение месяца (January)
Worksheets("Invoiced").Cells(10, i).Select 'выдает ошибку Type mismatch
End Sub

[viter.alex]

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

Sub Macros()
Dim i, January As Range
Set January = Worksheets("Invoiced").Columns(7)
Set i = Worksheets("Details").Cells(2, "L") 'в этой ячейке содержится значение месяца (January)
Worksheets("Invoiced").Cells(10, i.column).Select 'выдает ошибку Type mismatch
End Sub

[Neo007]

Нет, Саш, если я возьму i.column, то у меня будет столбец L, а это мне не нужно, т.к. листы "Invoiced" и "Details" никак между собой не связаны.
Я делаю следующее: в ячейке Cells(2,"L") у меня содержится название определенного месяца. Это название я присваиваю переменной i (т.к. i у меня равен "january"). А на другом листе мне нужно найти столбец, который я определил, как january = Worksheets("Invoiced").Columns(7)
Все бы работало, если бы i = january, а в моем случае i = "january".
Короче кавычки все портят((( Как это исправить? Может есть другой способ?)

[IgorGO]

А на другом листе мне нужно найти столбец, который я определил, как january = Worksheets("Invoiced").Columns(7)

А что его искать, если двумя строками выше вы знали, что это 7-й столбец!
Set January = Worksheets("Invoiced").Columns(7)
Set i = Worksheets("Details").Cells(2, "L") 'в этой ячейке содержится значение месяца (January)
Worksheets("Invoiced").Cells(10, 7).Select
только для чего здесь обе строчки с Set - не понимаю.

[Neo007]

Igor Go, это я сейчас знаю что у меня 7 столбец - это Январь. А таких столбцов у меня 12. И в зависимости от того какое значение содержит столбец L на листе Details, я и хочу, чтобы в будущем построенный мною цикл, автоматически находил именной столбец.