ChelSI

а я по магазинам сегодня(( да и погода что то не фонтан

протухла встреча)

или на велике покататься +сом здоровице лучше будет

погоды ты с сыночком) дай им время дочу поднять на ноги

ну теперь знаю где недалеко и недорого переобуться на переобувку для КК есть скидки?

это точно)) малышка славная))

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

Паша поздравляю!!!

Вчера в 8 вечера Настёныш родила Лешке дочу. 53 см росту и 3740 весу. Назвали Марусей)) Так что ВОТ)) Леха и Настя я вас от всей души поздравляю и желанию всего самого наилучшего. Вы так долго ждали этого дня и вон случился. Брат, теперь ты не только замечательный муж, но и отец, а это сам знаешь какая ответственность. Так что здоровья, счастья и любви вашему дому и семье. Растите здоровыми и счастливыми, а остальное приложится. Запасайся терпением и пониманием. Если что - ты знаешь, что я всегда помогу вам чем смогу. зы . сегодня отмечаем

а полянку нашу загаживать левые стали...(( прискорбно

это будет только видимость, а в кругу тех самых дам с формами будут ходить разговоры типа - ПОЗНАКОМИЛАСЬ ТУТ НА ДНЯХ С "тут у кого на что фантазии хватит", КАЧАЮ ТЕПЕРЬ ИЗ НЕГО ПО ПОЛНОЙ. А ОН И РАД ЧТО В ЕГО ОКРУЖЕНИИ ТАКАЯ Я РАСХОРОШАЯ

этих компаний сейчас пруд пруди.. о какой именно речь?

Психологический тест оптимиста: Психолог: - У вас умер дедушка. Оптимист: - А у меня еще один есть. - И вы опаздываете на похороны. - А я сяду в машину и по газам. - Нет, вы боитесь ездить за рулем. - А я выпью для храбрости бутылку водки. - Вот! И вас, пьяного, останавливает полицейский. - А я договорюсь. - Не договоритесь - это женщина. - А я познакомлюсь. - Но она страшная. - А я-то уже пьяяяяяяный!!!

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

да ладно бы это один раз было. уже картриджей 20 если не больше прошли через это испытание разными тонерами. у нас бледно, у них ярко - разница только в аппаратах

закрытия не будет?))

после первой заправки Вить такая фигня... это раз а как писал выше - в другой принт ставим этот картридж - печать безупречна попробую на красную скататься. спасибо Димон за наводку

MF4410. MF4570DN юзаю эти 2 на 728 картридже a целом всё нравится кроме одного ФУ...БЕЕЕ.... картридж маленький и после заправки. независимо чем заправляешь печатает бледно. у заправщиков не мфу. а простой принт на этом же картридже - печать идеальная

может и баян. но я не видел

сейчас подумываю о проверке файла на его наличие

если есть замечания - с удовольствием выслушаю пысы: коменты писал уже тут. так что если кто захочет воспользоваться - или закомментируйте, или удалите

Sub Кнопка2_Щелчок() Range("A11").Select (до A11 шапка ) перед вставкой удаляем все имеющиеся данные, соответственно до шапки Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select - выделяем Selection.Delete Shift:=xlUp - удаляем Range("A11").Select встаем на начало заполнения таблицы Workbooks.Open("D:\1\2.xlsx").Activate - открываем интересующий нас файл Range("A11").Select встаем так же на начало таблицы Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select выделяем ее Selection.Copy копируем Windows("Копия.xlsm").Activate переходим в общую базу ActiveSheet.Paste вставляем, активная ячейка на этом этапе А11 lr = Cells(Rows.Count, 2).End(xlUp).Row находим во втором столбце последнюю запись и присваиваем переменной lr значение записи ( это сделано для того. чтобы исключить переход по пустым ячейкам которые копируются с форматированием но без данных (косяки юзеров) Cells(lr + 1, 1).Select и переходим на ячейку ниже но уже в первом столбце Selection.Copy освобождаем буфер Workbooks("2.xlsx").Close закрываем первый файл с которого было копирование данных Workbooks.Open("D:\1\3.xlsx").Activate открываем второй файл Range("A11").Select встаем на начало таблицы Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select выделяем ее аналогично первому Selection.Copy копируем Windows("Копия.xlsm").Activate переходим на главную таблицу ActiveSheet.Paste вставляем аналогично как и с первым файлом проводим операции lr = Cells(Rows.Count, 2).End(xlUp).Row Cells(lr + 1, 1).Select Selection.Copy Workbooks("3.xlsx").Close т.к. копирование идет из разных таблиц, то порядковый номер будет заполнен неверно Range("A11").Select переходим на начало общей таблицы Dim i As Long база большая/ поэтому long в цикле заполняем порядковые номера базы For i = 1 To lr - 10 ActiveCell.FormulaR1C1 = i Cells(11 + i, 1).Select Next i End Sub

спс, сегодня выложу что сам навоял. не до конца конечно... но всё же

как добраться до листа в закрытой книге не открывая ее?

и сегодня снова наверно, но уже перемигнуться успели даже привет еще раз