Worksheets(«Отчет»).Activate
Range("A3:FA3").Find(What:= «Сидоров»).Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
Sheets("sup").Cells(5, 2).Value = Selection.Column
Как найти значение. Если его нет то ...., если есть то....
Добрый день.
Просьба помочь.
В листе «Отчет» мне надо найти столбец «Сидоров». Информация берется из 1С и порой этот столбец расположен не на томже месте. Порой он вообще отсутствует. Если использовать:
То в случае отсутствия столбца макрос пишет ошибку.
Подскажите пожалуйста, как правильно написать если не найден, то сообщение и переход, а если найден, то Sheets("1").Cells(1,1).Value = (номер столбца)
С уважением, Константин
[COLOR=Red]Пользуйтесь тегами разметки кода. Модератор[/COLOR]
Просьба помочь.
В листе «Отчет» мне надо найти столбец «Сидоров». Информация берется из 1С и порой этот столбец расположен не на томже месте. Порой он вообще отсутствует. Если использовать:
Код:
То в случае отсутствия столбца макрос пишет ошибку.
Подскажите пожалуйста, как правильно написать если не найден, то сообщение и переход, а если найден, то Sheets("1").Cells(1,1).Value = (номер столбца)
Код:
If sFind Is Nothing Then
MsgBox(«Столбец не найден»)
Goto Q1
Else
Sheets("1").Cells(1,1).Value = Selection.Column
End If
MsgBox(«Столбец не найден»)
Goto Q1
Else
Sheets("1").Cells(1,1).Value = Selection.Column
End If
С уважением, Константин
[COLOR=Red]Пользуйтесь тегами разметки кода. Модератор[/COLOR]
Код:
Sub Макрос1()
Dim sFind As Range
Worksheets("Отчет").Activate
Set sFind = Rows(3).Find(What:="Сидоров", LookIn:=xlFormulas, LookAt:=xlPart)
If sFind Is Nothing Then
MsgBox "Столбец не найден!", vbExclamation, "Ошибка"
GoTo Q1
Else
Sheets("1").Cells(1, 1) = sFind.Column
End If
Q1:
End Sub
Dim sFind As Range
Worksheets("Отчет").Activate
Set sFind = Rows(3).Find(What:="Сидоров", LookIn:=xlFormulas, LookAt:=xlPart)
If sFind Is Nothing Then
MsgBox "Столбец не найден!", vbExclamation, "Ошибка"
GoTo Q1
Else
Sheets("1").Cells(1, 1) = sFind.Column
End If
Q1:
End Sub