{quote}{login=KukLP}{date=24.08.2012 02:53}{thema=}{post}Union(Selection, Selection.Offset(, 1)).Select{/post}{/quote}  
 
Спасибо, все хорошо работает

В итоге должно получиться выделение ячеек a1,b1,a6,b6,a12,b12

Здравствуйте, напишите пожалуйста макрос. Задача такая:  
У меня есть выделенные (Select) ячейки, выделение всегда разное, допустим A1;A6;A12.  
Необходимо, что бы макрос добавил в выделение ячейки в соседнем столбце B1;B6;B12.

Извиняюсь, файл xls был

Макроса то кокраз у меня нет.  
вот файл, необходимо что бы макрос выделил ячейки с Len > 1

Пишет "Object required"

Большое спасибо :)

Извиняюсь, напишите для меня пожалуйста, не хватает знаний :(

Тему немного не правильно написал одно условие :)

Здравствуйте, уважаемые гуру, помогите написать строку макроса, необходимо что бы в столбце выделялся диапазон ячеек в которых колич. символов > 1

{quote}{login=ikki}{date=13.05.2012 01:10}{thema=}{post}А как Вы себе это представляете? В одном приложении открыто несколько книг, но для одной из них приложение нужно скрыть...{/post}{/quote}  
Останавливаемся на варианте application, уже придумал как все реализовать под свою задачу, всем огромное спасибо за активную помощь! :)

хочу полностью скрывать, а отображать только при введении пароля

{quote}{login=Юрий М}{date=13.05.2012 12:22}{thema=}{post}Windows("ВтораяКнига.xls").Visible = False{/post}{/quote}  
 
Юрий у меня excel visible = false :)

Я же написал, что остановился пока на нем :) и жду решения ikki  
 
Повторный вопрос: при application.visible = false можно прописать параметр true только для определенной книги?

интересненько :)  
Вот только добавляет в ячейки методом +1 от последней ранее заполненной, даже если она пустая

Пробовал по разному.  
Остановился на варианте application.visible = 0, при открытии первой книги, которая управляющая выскакивает окно excel, в дальнейшем, при открытии других книг такого не наблюдалось.  
 
А возможно при application.visible = 0 отобразить только определенную книгу?

{quote}{login=Hugo}{date=13.05.2012 12:14}{thema=}{post}Похоже, что Application.ScreenUpdating - неведома зверушка... :){/post}{/quote}  
Это тоже не помогает избежать отображения окна excel на 1-2 сек. :)

так же ничего

Что с ним, что без, при попытке скрытно открыть книгу вылезает окно excel на некоторое время потом скрывается, цель - что бы пользователь работал только с формой и вообще не видел книги, которые открываются макросами для добавления данных.

Я спросил альтернативу application.visible  
Что бы пользователь не видел как открывается книга excel

Юрий, ничего не происходит, у меня Win7, office 2007.  
 
44665

Я уже начал экспериментировать :)    
Но и жду макрос, для саморазвития да и форумчанам я думаю он будет очень полезен :)  
 
Еще один вопрос а можно открыть книгу, что бы пользователь не догадывался, что она открывается, а то application.visible = false выдает открытие excel

Надо.... основная книга, это хранилище макросов и так далее, остальные книги будут хранить только информацию.  
 
32233

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

Здравствуйте,обыскался - не нашел :(  
Необходимо что бы форма после события Resize отцентровывалась в центре экрана, экраны будут с разным расширением.

{quote}{login=Юрий М}{date=03.04.2012 11:03}{thema=}{post}Я же написал - явно указывайте лист.{/post}{/quote}  
 
Юрий большое спасибо за помощь :) не увидел ваш пост на радостях написал непосмотрев :)

Извините сглупил :)  
Dim iLastrow As Long, i As Long, x As Long  
iLastrow = Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row  
   x = 0  
  With ListBox1  
       .ColumnCount = 3  
       .Clear  
     For i = 7 To iLastrow  
       .AddItem ""  
       .List(x, 0) = Sheets(2).Cells(i, 1).Value  
       .List(x, 1) = Format(Sheets(2).Cells(i, 2), "dd/mm/yyyy")  
       .List(x, 2) = Sheets(2).Cells(i, 3).Value  
       x = x + 1  
     Next  
  End With

Что то у меня не получается адаптировать код под неактивный \ скрытый лист...  
Помогите пожалуйта

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

{quote}{login=Юрий М}{date=03.04.2012 09:46}{thema=}{post}С седьмой строки.{/post}{/quote}  
 
Юрий спасибо за еще один способ :)