Спасибо! Все робит!

а в VBA?

Подскажите пожалуйста, как проверить существование листа??

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

Подскажите пожалуйста. Возможно ли осуществить автоматическое создание checkbox в каждой строке по мере заполнения таблицы. Т.е. заполнил одну строку в таблице кликаешь на нижнюю и напротив строки создается checkbox... И если не сложно, напишите код(

пробовал так, ругается на строку  
Sheets("nakladnaya").Copy after:=Sheets("database")  
пишет    
subscript out of range  
.....

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

Юрий М,  на скрытом листе я не ничего не выбирал, он у меня просто копируется вот так:  
ActiveWorkbook.Worksheets("Nakladnaya").Copy before:=ThisWorkbook.Sheets("DataBase")    
а потом все действия проводятся с копией

Решил проблему только так: вначале программы листы делаю видимые по окончанию  прячу)

не получается!... Спрятанные листы не может копировать, очень очень жаль(  
......................  
Serge 007   У меня имеются бланки которые после нажатия кнопки копируются, обзываются как надо и заполняются..Вот хотелось бы чтоб этих бланков небыло видно(

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

Спасибо!!!)

Добрый день. Подскажите пожалуйста. как программно отключить функцию СОХРАНИТЬ, если это возможно.  
 
И как по клику кнопки запускать окошко Сохранить как?  
Чет с синтаксисом не разберусь(  
вот код:  
Private Sub CommandButton4_Click()  
ActiveWorkbook.SaveAs  
End Sub

все решил проблему!  
вставил строку:  
oSheet.Range("A25").Select  
   Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove  
 
Спасибо!!!

The_Prist я наверно просто не понимаю немного(  
f s > 2 Then  
oSheet.Range("A24:M24").Select  
oSheet.Selection.Copy oSheet.Selection.Offset(oSheet.Selection.Rows.Count)  
end if  
и ничего не получается(((  
----------------------------------------------------------------------------  
Лузер™!... да да да.то что надо..только почему то не сдвигается все содержимое после строки A25 вниз а копирует в  нее. Может подскажите как вставлять строку между строками((

У меня имеется таблица, которая автоматически заполняется. Но бывает что строк не хватает. Приходиться от определенных условий добавлять еще строки.  
вот я и хочу диапазон  ("A24:M24") копировался в ("A25:M25" со сдвигом вниз

я немного не понял ваш код, но он не работает(

Доброго вам суток.  
Подскажите пожалуйста новичку, как правильно написать код чтоб вставлял выделенный диапазон ячеек со сдвигом вниз  
вот мой код:  
If s > 2 Then  
oSheet.Range("A24:M24").Select  
Selection.Copy  
oSheet.Range("A25:M25").Select  
Selection.Paste    
End If

Спасибо! ВСЕ РОБИТ!)

вот и он

немного подправил , так как Checkbox находятся на другом листе  
If Worksheets("Blank").Shapes(n).DrawingObject.Object.Value Then  
ничего не получается. даже ошибку не выдает(

ммм... а не подскажите как написать правильно?((

Здравствуйте! Помогите пожалуйста самоучке. Не могу разобраться с синтаксисом.    
мне нужно произвести опрос Checkbox-ов и те котороые ИСТИНы напечатать в определенную ячейку.    
вот код:    
 
1.For n = 1 To 4  
 
2.Dim s As Integer  
 
3.If CheckBox(n).Value = True Then  
 
4.name = Worksheets("Áëàíê").Cells(4 + n, 4).Value    
5.oSheet.Cells(21 + s, 4).Value = name    
6.s = s + 1  
 
7.End If  
8.n = n + 1  
9.Next  
 
Я знаю что в строке №3 синтаксическая ошибка. Просто незнаю как правильно ее написать.

{quote}{login=LDar}{date=16.09.2009 09:04}{thema=Создание новых листов VBA}{post}Доброго времения суток) Столкнулся с проблемой. пытаюсь программно создавать копию листов  по клику по кнопке. Вся процедура выполняется, но вылазиет при этом ошибка "Run-time error 424    Object required" чтобы это означало??? помогит е плиз  
 
 
вот код:  
Private Sub CommandButton1_Click()  
 
Dim oWbk As Excel.Workbook  
Set oWbk = ActiveWorkbook  
Dim oSheet As Excel.Worksheet  
Set oSheet = oWbk.Worksheets("Nakladnaua").Copy(before:=ThisWorkbook.Sheets("DataBase"))  
 
End Sub{/post}{/quote}  
 
код не корректно отобразился. все подправил

Доброго времения суток) Столкнулся с проблемой. пытаюсь программно создавать копию листов  по клику по кнопке. Вся процедура выполняется, но вылазиет при этом ошибка "Run-time error 424    Object required" чтобы это означало??? помогит е плиз  
 
 
вот код:  
Private Sub CommandButton1_Click()  
 
Dim oWbk As Excel.Workbook  
Set oWbk = ActiveWorkbook  
Dim oSheet As Excel.Worksheet  
Set oSheet = oWbk.Worksheets("Íàêëàäíàÿ").Copy(before:=ThisWorkbook.Sheets("DataBase"))  
 
End Sub