Jungl, Казанский, большое спасибо! Все как надо работает..
Юрий М, спасибо за способ выделения группы элементов по свойству Tag..наверное тему нужно было назвать
" пробежать по именам нужных контролов".
Всем спасибо!

Юрий М, указанной вами конструкцией реализован поиск пустых текстбоксов в файле-примере.
А есть ли возможность сразу осуществлять перебор по определенным (в массиве или по другому)
текстбоксам, не затрагивая другие (так как другие могут быть также нулевыми)?

Уважаемые гуру!
Подскажите, как создать массив с именами нужных контролов на форме, и пробежаться по нему циклом -
если имя совпадает - что-то делать, если нет - дальше.
Что-то вроде этого (но эта конструкция не работает):
Другим способом, приведенным в файле получается длинный код при наличии n-го количества контролов на форме

Казанский, большое спасибо!
В процессе поиска решения читал ведь про удаление и смещение строк(столбцов)....
Ну что ж, надо быть осторожней с такими действиями, чтоб не...

Тема:Внесение изменений сразу на несколько листов книги
По ходу работы возникла проблема:
При внесении изменений  сразу на несколько листов книги  МАКРОСОМ не удаляются строки.

удалить, копировать...поиск выдал эту тему...может не так заряжал поиск..извиняюсь..
смысл пробега по листам понял, но столкнулся с удалением строк (копирование удалось)..
Путем проб и ошибок (спустя N часов) нашел решение, но не понял в чем загвоздка..

Уважаемые форумчане! Поясните по простому...
почему следующий код удаляет строки в указанных листах:
d = cRetVal.Row
For Each wd In Worksheets(Array(wsh1.Name, wsh2.Name, wsh3.Name))
   wd.Rows(d).Delete Shift:=xlUp
а этот только в том на котором кнопка:
For Each wd In Worksheets(Array(wsh1.Name, wsh2.Name, wsh3.Name))
   wd.Rows(cRetVal.Row).Delete Shift:=xlUp  

{quote}{login=Юрий М}{date=28.08.2010 09:24}{thema=}{post}Цикл:  
............{/post}{/quote}  
Прямым текстом не работает, через Dim i As Integer получается.  
Кто-нибудь подскажет, чтоб ячейки "Cells(i, 2)" имели только значения  
ячеек Cells(i, 1).  
Спасибо огромное!

А если сохранить новый файл с названием из определенной ячейки оригинального файла?  
 
Sub SaveSheet_SMB()  
Sheets("Учет").Range("$B$2") = Sheets("1").Range("B2")  
Dim wsSh As Worksheet  
Dim NewWb As Workbook, asArr(), li As Long  
Application.ScreenUpdating = False  
For Each wsSh In Sheets(Array("1", "2"))  
If wsSh.Visible <> -1 Then ReDim Preserve asArr(li): asArr(li) = wsSh.Name: li = li + 1: wsSh.Visible = xlSheetVisible  
Next wsSh  
Sheets(Array("1", "2")).Copy  
Set NewWb = ActiveWorkbook  
For Each wsSh In NewWb.Worksheets  
With wsSh.UsedRange  
.Copy  
wsSh.Range(.Address).PasteSpecial Paste:=xlPasteValues 'Вот эта строка от Лузер™  
End With  
Next  
 
 
NewWb.SaveAs Filename:=Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "1_2 ") & Sheets("Учет").Range("B2")& ".xls"  
For li = LBound(asArr) To UBound(asArr)  
ThisWorkbook.Sheets(asArr(li)).Visible = xlSheetVeryHidden  
Next li  
Application.ScreenUpdating = True  
MsgBox "Формы документов перенесены в новую книгу и сохранены.", , ""  
 
Sheets(Array("1", "2")).Select  
Sheets("1").Activate  
ActiveWindow.SelectedSheets.PrintPreview  
'Selection.PrintOut Copies:=1, Collate:=True  
ThisWorkbook.Save  
ThisWorkbook.Close  
End Sub  
 
Отчего игнорируется & Sheets("Учет").Range("B2")& ".xls" ?  
Помогите как нибудь.