Изменить цвет в слове

[Igor67]

Валерий, на каком листе Вы ищите?
Это обработка конкретного листа iLL)
With Sheets(iLL)
.Cells(iRow, 3).Resize(41).Value = iPrices
End With
А вот здесь Вы обращаетесь к активному на данный момент листу

If p > 0 Then
With Cells(iRow, 3).Characters(Start:=p, Length:=2).Font
.FontStyle = "bold"
.Color = -16776961
End With
End If

----------------------
Возможно так
With Sheets(iLL)
For iRow = 3 To 1623 Step 54

.Cells(iRow, 3).Resize(41).Value = iPrices

p = InStr(.Cells(iRow, 3), "УП")
"p = .InStr(.Cells(iRow, 3), "УП").Resize(41).Value = iPrices
If p > 0 Then
With .Cells(iRow, 3).Characters(Start:=p, Length:=2).Font
.FontStyle = "bold"
.Color = -16776961
End With
End If
End With
Next

[valerij]

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

на каком листе Вы ищите

Да я не ищу, ..
Модуль в посте 1, сам, по 9 листам вносит список товара с 3 -43 ячейки с шагом 54 и мне надо, как только, попадется слово УП, оно, УП, должно быть красным и жирным я все время это делаю в ручную....

[Igor67]

Но не вижу у Вас перебора листов


For Each iSh In ActiveWorkbook.Sheets
что то делаем
Next
============
Sub slistName()
Dim iSh As Worksheet
For Each iSh In ActiveWorkbook.Sheets
MsgBox iSh.Name
Next
End Sub

[valerij]

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

Но не вижу у Вас перебора листов

А ты модуль5 открой в блокноте

 For iLL= 1 To 9
.....................
For iRow = 3 To 1623 Step 54
                With Sheets(iLL).Cells
                    .Cells(iRow, 3).Resize(41).Value = iPrices
                End With
            Next
        Next

[Igor67]

Держите вариант. Покрасит все УП в книге по столбцу С.
ЗЫ саму окраску взял у IgorGO

Sub TestKrasim()
Dim iSht As Worksheet
Dim iFoundRng As Range, firstAddress As String, findData As String, p As Integer

Dim iRow As Long

findData = "УП"


Application.ScreenUpdating = False

For Each iSht In ThisWorkbook.Sheets
' If iSht.Name <> iShtRplData.Name Then
With iSht
Set iFoundRng = .Columns(3).Find(What:=findData, LookIn:=xlValues, LookAt:=xlPart) 'поиск
If Not iFoundRng Is Nothing Then 'если нашли
iRow = iFoundRng.Row
p = InStr(iFoundRng, findData)

With iFoundRng.Characters(Start:=p, Length:=2).Font
.FontStyle = "bold"
.Color = -16776961
End With

Do 'цикл поиска, т.к. одно и то же значение может встречаться много раз
Set iFoundRng = .Range(.Cells(iRow + 1, 3), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 3)).Find(What:=findData, LookIn:=xlValues, LookAt:=xlPart) 'продолжаем поиск на том же листе
iRow = iFoundRng.Row
p = InStr(iFoundRng, findData)

With iFoundRng.Characters(Start:=p, Length:=2).Font
.FontStyle = "bold"
.Color = -16776961
End With
Loop While iRow <> .Cells(Rows.Count, 3).End(xlUp).Row
End If
End With


Next

Application.ScreenUpdating = True
MsgBox "Замена по листам проведена!", 64, "Замена"
End Sub

[valerij]

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

Держите вариант.

Igor67!
Фу, как еще объяснить...
Понимаешь, тот модуль, он рабочий, покрасить УП, отдельно от этого модуля, у меня нет проблем, надо в нем, ненаю понятно изложил?

[IgorGO]

р - я определял позицию "УП" в ячейке, если оно там есть р будет равно позиции, нет - р = 0
"p = .InStr(Cells(iRow, 3), "УП").Resize(41).Value = iPrices
.InStr - вот это что? это общая функция
какой ресайз?

вот так можем написать:

 
p = InStr(.Cells(iRow, 3), "УП")
With .Cells(iRow, 3).Characters(Start:=p, Length:=2).Font

все, что я хотел подсказать
нашли в ячейке "УП", и сделали два символа с этой позиции жирными и красными.
With Cells(iRow, 3).Characters(Start:=p, Length:=2).Font
.FontStyle = "bold"
.Color = -16776961
End With
спасибо за внимание. успехов.

[IgorGO]

Фу, как еще объяснить...
Понимаешь, тот модуль, он рабочий, покрасить УП, отдельно от этого модуля, у меня нет проблем, надо в нем, ненаю понятно изложил?

из любого модуля можно обратиться к любой ячейке любого листа. вот и обращайся из своего модуля к той, которая нужна, а не к Cells(...) - это обращение к ячейкам активного листа. понятно излагаю?

[valerij]

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

понятно излагаю?

Игорек, ты модуль из первого поста, открывал?
Наверное нет, ты открой и тебе все станет ясно, что я хочу.

[Igor67]

И у меня код рабочий
Кто Вам мешает его вставить в Ваш
for iLL
с момента после For each
Будете перебирать листы, и после присвоения значений запускайте его.
А еще лучше Оставить его как отдельный макрос и вызывать для обработки листа через Call test