Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
при копировании возникает ошибка очистки буфера обмена
 
простите: ...не отключаю..., а ...выгружаю... (при выключении видимо он всё равно наблюдает за буфером)  
Прикрепил скриншот на всякий случай
при копировании возникает ошибка очистки буфера обмена
 
Спасибо всем!    
проверял на 2-х компах:    
на 1-м XP SP3 + MS Office 2007 SP1  
на 2-м Vista SP1 + MS Office 2007 SP1  
На самом деле ошибка возникает из-за свитчера клавиатуры "Punto Switcher"(стоит на обоих). Как только его отключаю - никаких ошибок и перезагрузка не требуется (как советуют по ссылке).  
Теперь дилемма: либо терпеть ошибку, либо - смотреть чего пишешь ;)
при копировании возникает ошибка очистки буфера обмена
 
Помогите с назойливым сообщением - при банальном копировании или переносе ячеек в Excel возникает ошибка очистки буфера обмена, причём не всегда. При нажатии кнопки "ок" данные вставляются без проблем. Получается - на работу влияет только замедлением этой самой работы.    
Подскажите, кто знает, как от неё избавиться?
Копирование данных в другую книгу с накоплением
 
Luzer, где ты? Без тебя не справлюсь! :)
Копирование данных в другую книгу с накоплением
 
{quote}{login=Ёксель-моксель}{date=16.11.2009 05:50}{thema=}{post} По указанному периоду "29.11_14.12" - это несколько недель. Если накопление делается один раз в неделю, то ИМХО следует отказаться от записи временного интервала как "29.11_14.12". Лучше как на Западе - ставить номер недели.{/post}{/quote}  
 
Странно, я в файлах указывал 09/11_14/11,, в декабрь не залазил :)(только что проверил, скачав с другого компа архив)  
реально накопление делается раз в неделю, в данном случае 9/11, но если человек что-то меняет к примеру 10/11 (период остаётся тот-же) то новые данные должны попадать в этот период, а не накапливаться в следующий.  
Для этого нужна проверка периода.
Копирование данных в другую книгу с накоплением
 
Господа профессионалы, подскажите пожалуйста, хотя бы где или как искать?
Копирование данных в другую книгу с накоплением
 
Прошу не ругать меня за "замусоленную" тему, но 2 часа мучил поиск - подходящего решения не нашёл. (Сам видел похожее решение пару месяцев назад, а сейчас найти не могу)  
Короче есть 2 файла (прилагаю)  
В первом ("график")пользователем вносятся данные:  
1)период (ячейка А1)  
2)часы работы (ячейки L2:M25)  
данные заполняются раз в неделю  
После чего пользователь запускает макрос который открыв второй файл "общие часы" сравнил последнюю заполненную ячейку в строке 1 (последний период (N1)) с А1 файла "график" , и если данные те же, то по принципу ВПР вставил данные (только значения) в ячейках ниже.  
Если ячейки А1 в "график" и последняя незаполненная в 1-й строке не совпадают, то в следующей (незаполненной) ячейке первой строки вставить значения из А1 в файле "график"  
и соответственно в ячейках ниже принципу ВПР.  
Почему по принципу ВПР - Фамилии могут меняться местами или пропадать.  
В файле "график" есть кусочек примерного кода, но буду очень рад за помощь в построении условий
Цикл в макросе, и другая петрушка
 
Спасибо, получилось, принцип понятен.
Цикл в макросе, и другая петрушка
 
{quote}{login=The_Prist}{date=29.09.2009 09:43}{thema=Re: }{post}{quote}{login=Serjman}{date=29.09.2009 09:40}{thema=}{post}ругается на фрагмент: Range("Q" & x ":AD & x){/post}{/quote}Range("Q" & x ":AD" & x){/post}{/quote}  
 
Не хочет :( та же ошибка - Compile error: Expected: list separator or )
Цикл в макросе, и другая петрушка
 
я хотел, чтобы макрос проверял в столбце "Q" с 3-й строки если ячейка не равна нулю, то копировал последовательно Q3:AD3 в Q1:AD1, затем Q4:AD4 в Q1:AD1, ит.д. до первой ячейки равной нулю. В Q1:AD1 сбрасывается информация, которая затем распечатывается в "бланке отчёта", и сколько было ячеек неравных нулю столько "бланков отчёта".  
Подставил Ваши корректировки, получилось:  
x = 3  
   Do While Cells(x, 17).Value <> 0  
   Range("Q" & x ":AD & x).Select  
   Range("Q1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
   :=False, Transpose:=False  
....  
x = x + 1  
   Loop  
 
но работать не хочет, ругается на фрагмент: Range("Q" & x ":AD & x)  
пробовал по разному написать - безрезультатно.  
Помогите пожалуйста!  
За замечания - спасибо! ;)
Цикл в макросе, и другая петрушка
 
Спасибо большое! А цикл можно настроить?
Цикл в макросе, и другая петрушка
 
Заранее спасибо!
Цикл в макросе, и другая петрушка
 
Взываю к помощи, потому как знаний нехватает!  
Предлагаю код, в примечаниях написал где у меня не получается:  
 
Sub Создание()  
'  
   Sheets("Список товара").Select  
   Application.DisplayAlerts = False  
' !проверяет, если ячейка Q3 <>0, то копирует значения из диапазона Q3:AD3 в Q1:AD1  
' !затем надо чтобы проверял значение в Q4 и копировал в Q1:AD1, и т.д.  
   x = 3  
   Do While Cells(x, 17).Value <> 0  
   Range("x,17 : x,30").Select  
   Selection.Copy  
   Range("Q1").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
' !это неработает надо исправлять  
   Sheets("Список товара").Select  
   Sheets("Лист1").Select  
' !надо заставить фильтровать по значению из ячейки "А1"  
   ActiveSheet.Range("$B$1:$N$872").AutoFilter Field:=1, Criteria1:= _  
       ("A1"), Operator:=xlAnd  
   Range("D2:D873").Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets("Список товара").Select  
   Range("B3").Select  
   Selection.SpecialCells(xlCellTypeVisible).Select  
   Sheets("Лист1").Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Selection.SpecialCells(xlCellTypeVisible).Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets("Список товара").Select  
   Range("B3").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Sheets("Бланк отчёта").Select  
   Range("B9:C9").Select  
   Sheets("Бланк отчёта").Select  
   Application.CutCopyMode = False  
   Sheets("Бланк отчёта").Copy  
   Dim strDate As String  
   strDate = Range("A1")  
   ActiveWorkbook.SaveAs Filename:= _  
       "C:\Documents and Settings\my\Desktop\" + strDate + ".xls", FileFormat:=xlExcel8, _  
       Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _  
       CreateBackup:=False  
   iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)  
   If Not IsEmpty(iLinks) Then  
   For i = LBound(iLinks) To UBound(iLinks)  
   ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks  
   Next i  
   End If  
   ActiveWorkbook.Save  
   ActiveWindow.Close  
   Sheets("Список товара").Select  
   x = x + 1  
   Loop  
   Application.DisplayAlerts = True  
End Sub
Как изменить имя ячейки?
 
Спасибо! А "слона"-то я и не заметил :)
Как изменить имя ячейки?
 
А как это сделать в Microsoft Excel 2007?
Страницы: 1
Наверх