Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Кнопка, просто код который не работает 
:(
    Опции темы
zhenya2010
Дата 22.4.2010, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.4.2010

Репутация: нет
Всего: нет



ПРивет, гениям VBA! 

для кнопки пишу такое 
Код



Private Sub CommandButton1_Click() 

Sheets.Add(, Sheets(Sheets.Count)).Name = [СВАТ!B3] 
[A1] = [СВАТ!B5] 
[B1] = [СВАТ!C5] 

End Sub


программа делает новый лист с названием ячейки B3. А вот почему то ячеки которые я хочу что бы были заполнены на новом листе(A1,B1) заполняются на старом листе. Как сделать так чтобы ячейки с листа СВАТ переносились на новый лист( с названием ячейки В3)? 

и еще(просто думаю что не надо создавать новую тему по даному вопросу) а есть какаето команда которая будет перед началом "переноса ячеек" проверять есть ли лист с названием совпадающем с названием ячейки В3 и удалять его. Потому что при повторном выполнении программы, выдается новость о существовании даного листа и не работает( 

заранее спасибо
_________________
PM MAIL   Вверх
RockClimber
Дата 22.4.2010, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Интересненько, я такой записи ([A1] = [СВАТ!B5]) не встречал нигде, но она работает  smile 
Короче, я рекомендую общепринятую запись обращения к ячейкам (через Range или Cells).
Чтобы в макросе на листе обратиться к ячейкам другого листа, надо указать лист явно:
Код
Sheets("Другой лист").Range("A1") = "траляля"

Проверить наличие листа можно, обратившись к нему и словив (или не словив) исключение:
Код

On Error Resume Next
Sheets("Неизвестный лист").Select
If Err.Number <> 0 Then
   MsgBox "Нет такого листа"
End If



--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
zhenya2010
Дата 22.4.2010, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.4.2010

Репутация: нет
Всего: нет



Логично. Спасибо за ответ.
PM MAIL   Вверх
Akina
Дата 22.4.2010, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Можно сразу получить ссылку на вставленный лист:
Код

Dim sht As WorkSheet
Set sht = Sheets.Add(...)

и использовать
Код

sht.Range("A1") = "траляля"
msgbox sht.Name



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0702 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.