{quote}{login=KukLP}{date=30.01.2011 05:49}{thema=Re: }{post}{quote}{login=R Dmitry}{date=30.01.2011 12:09}{thema=}{post}смотрите так?{/post}{/quote}Дим, ты наверное и сам заметил, что твой способ сортирует некорректно, а 2003 и вовсе не работает. Он сортирует как текст. Вот без доп. столбца и с корректной сортировкой.  
 
П.С. Дима, кнопку у тебя украл:-){/post}{/quote}  
спасибо большое за участие ! только счас смогла попасть в нет !  
KukLP - всё действительно работает вот только одна проблемка мне нужно делать пометки заливкой цветом а они(заливки, не переносятся вместе с информацией) при добавке нового IP и сортировке

{quote}{login=Hugo}{date=20.01.2011 03:18}{thema=}{post}Не знаю, в коде вроде ничего нет, что под 2007 не работает...  
Может быть security не даёт, может быть надо макросы разрешить.  
Я сейчас всё равно версию под 2007 сделать не могу - нет его тут.{/post}{/quote}    
простите а как с вами поговорит в скайпе или Магенте? как ком нибудь?

{quote}{login=Hugo}{date=19.01.2011 11:13}{thema=}{post}Лиска, сделал модификацию предыдущего кода. Лишнее не удалял, а просто закомментировал - всё, что в коде зелёным - можно удалить.  
А может позже понадобится ещё какое-нибудь условие добавить - тогда их можно использовать.  
Строки переносятся не на второй лист, а в другой файл Книга 2.xls, который находится в папке с исходным файлом. Его нужно сперва создать.Но это несложно исправить.{/post}{/quote}  
 
спасибо большое! Но у меня проблемка когда я пыталась скопировать код из этого файла в свой при сохранении написало что форматы не подходят у меня 2007 стоит.

вставляться должна в первую свободную сроку

мальчики исправте пожалуста этот код чтобы он переносил данные по строчно из листа "ААААА" в лист"ВВВВВ" при условии наличия в столбце "V" даты  тоесть если в этой строке в ячейке столбца "V" есть дата, то из листа "ААААА" эта строка удаляется после того как туда внесли дату и вставляется в лист "ВВВВВ"  
 
 
For Each cc In ra  
If cc < Now - 92 Then  
If InStr(cc.Offset(, 3), "работе") > 0 Then  
If ws.Cells(cc.Row, 2).Font.ColorIndex <> 3 Then  
iLastrow = iLastrow + 1  
ws.Rows(cc.Row).Copy .Sheets(1).Cells(iLastrow, 1)  
ws.Rows(cc.Row).Font.ColorIndex = 3  
End If  
End If  
End If  
Next

Всем привет!  
Всех с наступившим Новым годом!  
 
Вопрос в следующем:  
ребята подскажите как организовать синхронизацию обновления каталога на сайте   при входе на сайт с моего компа  (в каком виде его туда поместить по группам товара )  с моим прайсом на моём компе, обновляться должно содержимое : цены по  конкретной модели (у меня в колонке цена настроены ссылки, на сайте должна быть просто цифра равная той что стоит в колонке "Е"), добавляться новая модель которой нет в каталоге сайта а отсутствующая модель удаляется из списка

{quote}{login=webley}{date=04.10.2010 09:41}{thema=}{post}=СЧЁТЕСЛИ(D24:AH24;"*Отг*"){/post}{/quote}  
спасибо большое !!

{quote}{login=webley}{date=04.10.2010 09:35}{thema=Re: }{post}{quote}{login=Лиска}{date=04.10.2010 09:26}{thema=}{post}и ещё одну =СЧЁТ(D24:AH24)(если D24:AH24 содержит текст){/post}{/quote}  
 
А здесь что надо сделать? Может =счетз()?{/post}{/quote}  
тут надо что бы считал количество ячеек например при условии что они содержат  
(Отг)

и ещё одну =СЧЁТ(D24:AH24)(если D24:AH24 содержит текст)

Доброго времени всем ещё не проснулась!!

=AA16-AA15 (если AA16 текст =0)  
подскажите как правильно записать то что в скобках

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

кто нибудь сможет объяснить что за что отвечает в задании диапазонов  или нет?  
очень надо закончить только этот мак и держит!!!

{quote}{login=Лиска}{date=30.09.2010 07:10}{thema=}{post}вот!{/post}{/quote}  
Люди помогите понять как задаётся диапазон в этом макросе  
Sub перенос_с_объединением_ячеек()  
Dim iLastRow As Long, jLastRow As Long, i As Long  
jLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
Range(Cells(2, 2), Cells(jLastRow + 1, 2)).ClearContents  
jLastRow = 1  
   With Sheets("СОСТАВИТЬ ГРАФИК")  
       iLastRow = .Cells(Rows.Count, 2).End(xlUp).Row  
       For i = 2 To iLastRow Step 2  
           Cells(jLastRow + 1, 2) = .Cells(i, 2) & "-" & .Cells(i + 1, 2)  
           Cells(jLastRow + 1, 3) = .Cells(i, 3) & "-" & .Cells(i + 1, 3)  
           Cells(jLastRow + 1, 4) = .Cells(i, 4) & "-" & .Cells(i + 1, 4)  
           Cells(jLastRow + 1, 5) = .Cells(i, 5) & "-" & .Cells(i + 1, 5)  
           jLastRow = jLastRow + 1  
       Next  
   End With  
End Sub

вот!

Юрий извините не стой папки взяла файл,вот с пояснением на жёлтом фоне

уже поняла что нет файл оценила в размере сори!

{quote}{login=Лиска}{date=30.09.2010 10:51}{thema=Re: Re: }{post}{quote}{login=Юрий М}{date=30.09.2010 10:46}{thema=Re: }{post}Эх...  
{quote}{login=Юрий М}{date=30.09.2010 01:34}{thema=}{post} Поэтому в Правилах и написали - выкладывайте в формате 2003!!!{/post}{/quote}{/post}{/quote}    
 
Эх.... снова забыла :(  
вот 2003  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>{/post}{/quote}  
млин но он же весил 91,8 кб  
ладно вот архив !

может заодно гляните можно ли его(весь табель) как то отредактировать чтоб быстрее всё было?  
это не обязательно но интересно.

{quote}{login=Юрий М}{date=30.09.2010 10:46}{thema=Re: }{post}Эх...  
{quote}{login=Юрий М}{date=30.09.2010 01:34}{thema=}{post} Поэтому в Правилах и написали - выкладывайте в формате 2003!!!{/post}{/quote}{/post}{/quote}    
 
Эх.... снова забыла :(  
вот 2003  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

у меня тоже но стоит низкий уровень защиты макросов  
:)

{quote}{login=Юрий М}{date=30.09.2010 01:34}{thema=}{post}Сейчас сработает. Это из-за конвертирования 2007 - 2003. Не справляется полностью. Поэтому в Правилах и написали - выкладывайте в формате 2003!!!{/post}{/quote}  
решила использовать ваш макрос, но так как с таким видом задания диапазона не сталкивалась пока а хелпом просто не в состоянии пользоваться по причине незнания инглиша,    
ОЧЕНЬ прошу показать вариант задания диапазонов (хотя бы на двух человек) на моём файле  
в ответ можно просто  вариант текста макроса.  
Заранее благодарствую за помощь.

спасибо большое, снова выручили!!!

{quote}{login=Юрий М}{date=30.09.2010 01:21}{thema=}{post}Вот.{/post}{/quote}  
что то не заработало  и есть вариант без кнопки а синхронизировать автоматом

Бусь !  
 
и отдельное спасибо-Дмитрию!!!  
создателю этого макроса для меня!  
' Module : mWriteInCell  
' DateTime : 06.09.2010 16:11  
' Author : The_Prist(Дмитрий); WebMoney - R298726502453; Яндекс.Деньги - 41001332272872;  
' http://www.excel-vba.ru  
' Purpose : Создание, удаление меню и запись выбранной позиции в ячейку

Млин

ну подскажите как поправить!!!  
ПЛизззз, ну чуточку то осталось!!!!  
да забыла уточнит подставления все про нижние ячейки шла речь а то что выбераем должно отображатся как есть в примере тоеть .8, 8,11,13,Вых,Отг.  
............................................23,20,23,22, , .  
все пробнлы съело :(

ну подскажите как поправить!!!    
ПЛизззз, ну чуточку то осталось!!!!  
да забыла уточнит подставления все про нижние ячейки шла речь а то что выбераем должно отображатся как есть в примере тоеть  8, 8,11,13,Вых,Отг.  
                                           23,20,23,22,   ,   .

{quote}{login=Муля}{date=28.09.2010 03:33}{thema=}{post}Дорогой KuklP  
Я ваша на веки!!!!  
ДЖоброго дня!  
Лиска!  
А как же муж, любимый и единственный?  
С ув. Муля!{/post}{/quote}  
ну я же образно! (Смустяюсь)

Есть Макрос вып.списка при правом клике мышки, при выборе значения он вставляет выбранное значение в ту ячейку в которой кликали и вставляет замещение по критерию в нижестоящую ячеку    
не получается следующее:  
вот данные которые вводится должны  
8-23 <<< как сделать отличие двух "8" чтобы при выборе каждой своё значение подставлялось  
8-20 <<<  
9-21  
10-22  
11-23  
12-21  
13-22  
Вых <<<как сделать чтобы при выборе подставлялось "пусто"  
Отг <<<как сделать чтобы при выборе подставлялось "пусто"  
Отп <<<как сделать чтобы при выборе подставлялось "пусто"  
Бол <<<как сделать чтобы при выборе подставлялось "пусто"  
 
вот сам макрос:  
 
Option Explicit  
 
Sub Write_Date_in_Cell()  
ActiveCell = Application.CommandBars.ActionControl.Tag  
ActiveCell.Offset(1).FormulaR1C1 = _  
"=IF(R[-1]C="""","""",VLOOKUP(R[-1]C,{8.1,23;8,20;9,21;10,22;11,23;12,21;13,22},2,0))"
End Sub  
 
 
Sub Create_MyPopupMenu()  
   Dim vItem  
   Del_PopupMenu  
With Application.CommandBars.Add(Name:="MyNumbersPopup", Position:=msoBarPopup)  
For Each vItem In Array(8, 8, 9, 10, 11, 12, 13, "Вых", "Отг", "Отп", "Бол") 'Добавляя, удаляя либо изменяя здесь цифры меняем состав нашего меню  
'можно заносить текст - Array(8, 11, 14, 23, "Новая запись")  
With .Controls.Add(Type:=msoControlButton)  
.Caption = vItem  
.Tag = vItem  
.OnAction = "Write_Date_in_Cell"  
End With  
Next vItem  
End With  
End Sub  
Sub Del_PopupMenu()  
On Error Resume Next: Application.CommandBars("MyNumbersPopup").Delete  
End Sub