Здравствуйте! В связи с тем, что не получил ответ по своему прошлому вопросу, решил разбить его на подзадачи. Надеюсь, что так ее получится решить.
Итак, На одном листе имеется строка с ячейками, в этих ячейках указаны табельные номера через запятую (вот так: 13, 15, 47) На другом листе имеется несколько столбцов, в которых эти табельные номера дублируются (по 1 табельному номеру в ячейке)
Как я могу сделать проверку по всей строке с табельными номерами и получить ссылки (адреса ячеек) этих табельных номеров на втором листе? Возможно кто-то уже делал подобное или есть идеи с чего начать?
получить ссылки (адреса ячеек) этих табельных номеров
При активном листе Лист2 запустить макрос адреса в строке 5
Код
Sub iAdres()
Dim FoundCell As Range
Dim ws1 As Worksheet
Dim j As Integer
Dim i As Integer
Dim j_cell
Set ws1 = ThisWorkbook.Worksheets("Лист1")
Rows(5).ClearContents
With ws1
For j = 7 To 9
j_cell = Split(Cells(4, j), ", ")
For i = 0 To UBound(j_cell)
Set FoundCell = .Columns("A:J").Find(j_cell(i), , xlValues, xlWhole)
Cells(5, j) = Cells(5, j) & FoundCell.Address(0, 0) & ", "
Next
Next
End With
End Sub
Кузьмич, здравствуйте! Спасибо за ваш макрос, выполняет поставленную мной задачу! Только у меня складывается впечатление, что задачу я сформулировал некорректно. Похоже, что я запутался в логике построения цепочки действий для добавления комментариев в ячейку.
Форумчане, возможно кто-то сможет "популярно объяснить", как правильно передать в комментарий данные, из ячеек, найденных макросом Кузьмича. Или я все-таки ошибся и это нужно делать не так?
Понимаю, что вопрос не совсем по теме, но мою прошлую тему удалили из-за создания этой, т.ч.. решил написать тут
Sub iAdres()
Dim FoundCell As Range
Dim ws1 As Worksheet
Dim j As Integer
Dim i As Integer
Dim j_cell
Dim msg As String
Set ws1 = ThisWorkbook.Worksheets("Лист1")
If Not Range("G4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("G4").Comment.Delete
If Not Range("H4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("H4").Comment.Delete
If Not Range("I4").SpecialCells(xlCellTypeComments) Is Nothing Then Range("I4").Comment.Delete
With ws1
For j = 7 To 9
j_cell = Split(Cells(4, j), ", ")
For i = 0 To UBound(j_cell)
Set FoundCell = .Columns("A:J").Find(j_cell(i), , xlValues, xlWhole)
msg = msg & FoundCell.Address(0, 0) & ", "
Next
Cells(4, j).AddComment.Text Text:=msg
msg = ""
Next
End With
End Sub