Перебор кнопок циклом

[who]

И снова, здравствуйте!
есть такой

Private Sub Worksheet_Change(ByVal Target As Range)
'Stop
'Sub d2()
Dim rng As Range: Set rng = [B4:C4] If Not Intersect(rng, Target) Is Nothing Then
    Sheets(1).Name = Cells(2, 3)
    '
    If Sheets(3).Cells(23, 13) = "" Then
    Sheets(1).CommandButton2.Caption = "Перейти к изделию " & Sheets(3).index - 2
    Else
    Sheets(1).CommandButton2.Caption = "Перейти к " & Sheets(3).Cells(23, 13)
    End If
... вплоть до  Sheets(12).Cells(23, 13) и Sheets(1).CommandButton11 (10 листов и 10 кнопок)

можно ли перебрать кнопки циклом?
что-нибудь типа:

    For i = 3 To Sheets.Count - 1
    If Sheets(i).Cells(23, 13) = "" Then
    Sheets(1).CommandButton[(i-1) - для примера].Caption = "Перейти к изделию " & Sheets(i).index - 1
    Else
    Sheets(1).CommandButton[(i-1) - для примера].Caption = "Перейти к " & Sheets(i).Cells(23, 13)
    End If

?
я пока не допёр...

[IgorGO]

как-то так

dim sh as shape
for i = 3 to workSheets.Count - 1
  for each sh in worksheets(i).shapes
    if sh.name like "commandbutton*" then
      if ... then sh.caption = "..."
    end if
  next
next

[Hugo121]

Файлик бы показали с парой тройкой своих кнопок.

[IgorGO]

если Вы полностью доверелись Ексель в названи кнопок - это уже сработает, а если, как нормальный программист, дали кнопкам осмысленные имена типа Save, Add, Del и пр. чтобы потом в коде читать (а главное - понимать) Save_Click гораздо проще, чем CommandButton3_Click

я называю кнопки так:
ComButSave, ComButAdd...
и по именам понятно предназначение кнопки и циклом можно пройтись при необходимости

[who]

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

Файлик бы показали с парой тройкой своих кнопок.

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

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

как-то так

dim sh as shape
for i = 3 to workSheets.Count - 1
  for each sh in worksheets(i).shapes
    if sh.name like "commandbutton*" then
      if ... then sh.caption = "..."
    end if
  next
next

спасибо буду пробовать.

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

если Вы полностью доверелись Ексель в названи кнопок - это уже сработает, а если, как нормальный программист, дали кнопкам осмысленные имена типа Save, Add, Del и пр. чтобы потом в коде читать (а главное - понимать) Save_Click гораздо проще, чем CommandButton3_Click

я называю кнопки так:
ComButSave, ComButAdd...
и по именам понятно предназначение кнопки и циклом можно пройтись при необходимости

кнопки на этом листе для перехода на другие листы. поэтому не переименовывал, да и в принципе имена почти не меняю ‒ какой-же я "нормальный программист", если самоучка? пишу макросы, чтобы немного облегчить себе работу в будущем
только сегодня допёр как и, главное, где объявлять глобальные переменные

[who]

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

как-то так

dim sh as shape
for i = 3 to workSheets.Count - 1
  for each sh in worksheets(i).shapes
    if sh.name like "commandbutton*" then
      if ... then sh.caption = "..."
    end if
  next
next

я тут немного проанализировал предложенный Вами код...
получается он перебирает кнопки на листах от "i" и до "workSheets.Count - 1"
а нужные мне кнопки находятся на первом листе, и их имена, присвоенные им excel-ем начинаются от "CommandButton2" и до "CommandButton11"
вот их я и хочу перебрать.
получается мне надо делать, наверное, так

dim sh as shape
for i = 3 to workSheets.Count - 1
  for each sh in worksheets(1).shapes
    if sh.name like "commandbutton*" & i-1 then
      if ... then sh.caption = "..."
    end if
  next
next

я верно рассуждаю?

[IgorGO]

да, осталось только лишний цикл (по листам) викинуть

dim sh as shape
  for each sh in worksheets(i).shapes
    if sh.name like "commandbutton*" then
      if ... then sh.caption = "..."
    end if
  next

[who]

Ув . IgorGO, что-то я запутался.
в этом коде:

dim sh as shape
for i = 3 to workSheets.Count - 1
  for each sh in worksheets(1).shapes
    if sh.name like "commandbutton*" & i-1 then
      if ... then sh.caption = "..."
    end if
  next
next

строка

for i = 3 to workSheets.Count - 1

всего лишь определяет количество кнопок которые нужно переименовать, причём "workSheets.Count - 1" можно просто заменить на "12".
а строка " for each sh in worksheets(1).shapes" (для каждого sh из шейпов на рабочем листе (1)) описывает шейпы на листе, на котором перебираем шейпы, и, по моему ставить в дужки "i" получается незачем, так?
и соответственно выкидывать
for i = 3 to workSheets.Count - 1
не нужно

[IgorGO]

в том коде строка
for i = 3 to workSheets.Count - 1
не определяет колическво кнопок, я ее вообще викинул и рекомендовал использовать то, что написал сообщением выше.

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

[who]

Спасибо за помощь принцип понял... только

sh.caption = "..."

"Object doesn't support this property or method"

У меня получился такой

  For Each sh In Worksheets(1).Shapes
sn = sh.Name
    If sh.Name Like n Then
    If Sheets(i).Cells(23, 13) = "" Then
    Sheets(i).Name = Sheets(i).Cells(3, 14) & Sheets(i).index - 2
    Sheets(1).sh.Caption = "Перейти к изделию " & Sheets(i).Cells(23, 13) & Sheets(i).index - 2
    Sheets(i).Cells(1, 1) = Sheets(i).Cells(3, 3)
    Else
    Sheets(i).Name = Sheets(i).Cells(3, 14)
    Sheets(1).sh.Caption = "Перейти к" & Sheets(i).Cells(23, 13)
    Sheets(i).Cells(1, 1) = Sheets(i).Cells(3, 3)
    End If
    Exit Sub
    End If
  Next

в окне "Locals" при пошаговом выполнении видно как цикл находит нужный шейп, но в перечне его свойств действительно отсутствует "Caption"