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

Страницы: 1 2 След.
проблема отображения значений в Textbox из таблицы (из ячеек )
 
RAN, вы правы написал глупо,  макрос выдовал 1048576 , но теперь макрос Юрия подправил под свои нужды, всё работает

спасибо
проблема отображения значений в Textbox из таблицы (из ячеек )
 
спасибо Юрий буду дальше  под себя настраивать
проблема отображения значений в Textbox из таблицы (из ячеек )
 
добрый вечер,
опять необходима ваша помощь с макросом
задача такова:  при нажатие на кнопку (значения из столбеца 48 активой строки должен быть в Textbox4 ) и так со всеми строками,
использую user форму которая активируется через двойной клик в столбце "Y"
Код
Private Sub CommandButton4_Click()
TextBox5.Value = Cells(Rows.Count, 48).Row
End Sub   
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
Цитата
=ОСТАТ(B1-A1;1)
спасибо как вариант неплохо, но если раньше запланированного времени то считает неверно, точнее тогда считать ненадо
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
попробую ещё раз растолковать что необходимо:
главное:
запланированоое время столбец "Q"
     время отправки столбец "P"
в обеих столбцах должна заноситься текущее время и дата, т.к запланированоое время заносится с вечера т.е до 20:00 часов а вот время отправки в тот момент когда грузовик уезжает.
и если это после 0:00 то формулы перестают считать =ЕСЛИ((P5-Q5)=P5;0;(P5-Q5))
Цитата
Ещё как вариант - если время отправки меньше времени загрузки, то дату отправки ставить на 1 день позже выдачи
время загрузки неважно, если грузовик уезжает(время отправки) раньше запланированого время, тогда считать ничего ненадо
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
мне надо чтобы при вводе 1234 к 12:34 добавлялось и текущая дата в туже ячейку, и это всё для того чтобы посчитать описанное в начале.
Спасибо Hugo
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
сам недогодался, код в примере
я маркировал то что необходимо подправить

спасибо всем большое  
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
извиняюсь что весь код выложил, но пример меньше 150 кб неполучаеться, в коде надо добавить или поправить чтобы при вводе в стобце "P" и "Q" добавлялась дата ввод производиться без двоеточия.
в макросах совсем ни как всё что тут есть собирал сам методом проб и ошибок не судите строго    

код удален [МОДЕРАТОР]
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
надо пропробывать я для ввода времени использую макрос с примеров, ввод без двоеточия
Код
Dim vVal
Dim StrVal As String
 
If Target.Cells.Count > 1 Then Exit Sub
      
   If Not Intersect(Target, Range("M5:Q496") Is Nothing Then
        With Target
            vVal = Format(.Value, "0000"
            If IsNumeric(vVal) And Len(vVal) = 4 Then
                Application.EnableEvents = False
                .Value = Left(vVal, 2) & ":" & Right(vVal, 2)
                .NumberFormat = "[h]:mm"
            End If
        End With
     End If
     Application.EnableEvents = True
Изменено: Scheremet - 19.01.2014 19:24:24
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
впринцепе ничего только незнаю как это сделать :oops:
рассчёт времени задерки загрузки, в вечерне- ночное время, Не считает (неправильно) время задержки, если период вычисления попадает на 20:00-01:00 т.е ночная смена
 
Добрый день,
опять обращаюсь к специальстам возникла проблема с рассчётом времени в переход с вечера на ночь.
загружаем грузовики, иногда начало загрузки до полуночи а отправка после. Так вот в этот момент нужно выссчитать задержку отправки ?
Пример:
начало загрузки  20:30  
конец загрузки    21:00
отправка              01:00
запланированное время отправки: 23:00
Задача: вычислить задержку отправки т.е должно быть 02:00 часа
использовал эту формулу =ЕСЛИ((P5-Q5)=P5;0;(P5-Q5))
Формула считает всё правильно пока не доходит до запланированное время отправки до 0:00 от отправка после 0:00
пользовалься поиском но не нашёл ничего чтобы мне могло помочь
забыл добавить задержка начинает считаться от 0:30 минут всё что меньше 0:30 минут не считаеться задержкой
Изменено: Scheremet - 19.01.2014 19:02:41
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
Ikki,
Огромное спасибо код что надо,  работает как и пологается.
Спасибо ещё раз за помощь
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
конечно нет а спасибо Ikki.... ведь он помог мне в решении проблем с макросом..!!!

 :)
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
Спасибо вроде то что надо надо посмотреть на свежую голову я уже 19 часов  на ногах, завтра проверю после работы и отпишусь
огромное спасибо за ваш труд я про это примерно 3 недели читал на разных форумах и языках и в итоге помощь нашёл здесь ..
спасибо ещё раз
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
Замечательно теперь работает быстрее чем кликаешь .... класс  теряеться только ширина  и высота ячеек которая была в исходнике можно как то исправить

алех
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
можно но только не весь лист выделять а только A1:G500
и тогда всё должно получиться

а забыл надо чтоб ячейки оставались такими же как и в оригинале
мы на правильном пути, огромное спасибо
Изменено: Scheremet - 18.01.2014 01:00:47
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
ДА и этот лист был сохранён в отдельную книгу
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
это к сожалению тоже не помогло, дело в том сто после фильтрации у меня остаёться макс. 20 строк из которых надо удалить формулы...
 может это как то поможет
или удалять те формулы которы произвели вычисления

Спасибо
Изменено: Scheremet - 18.01.2014 01:00:03
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
без кода удаления макроса лист копируется сразу без замедления,
После добавки этого кода я вижу как он считает ячейку за ячейкой и это немного быстрей чем в начале было ..
может есть альтернатива макросу по удалению формул ?

Александр
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
попробывал код стало немного быстрее но не так как могло бы ...??
на этом листе максимально 500 строк и 7 столбцов связаны через ВПР и ЕСЛИ с другим листом этой книги и сортируются с помощью фильтра т.е пустые скрыть.
по поводу защиты защищена быдет только книга и будет общий доступ

спасибо
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
после того как нажимаю кнопку, проходит секунд десять примерно, а только потом открывается окно для сохранения...

если убераю вот эту строку тогда всё ОК.  
For Each c In Cells.SpecialCells(xlCellTypeFormulas): c.Value = c: Next


Спасибо за ваш труд  
Макрос для сохранения листа в новую книгу и удаление формул виснет?
 
добрый вечер нашёл поиском часть кода для удаления формул, но у меня почему то виснет аот пример :
Код
Sub ляляля4()
Dim FileN$
FileN = ThisWorkbook.Path & "/" & Date & ".xls"
ThisWorkbook.Sheets(2).Copy
For Each c In Cells.SpecialCells(xlCellTypeFormulas): c.Value = c: Next
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

виснет только из-за выделеной части

Спасибо
макрос вычисления имени пользователя
 
да вы правы не совсем тема имя пользователя а последний вопрос первые две буквы от имени пользователя, нехотел новую тему начинать а та в которой нашёл макрос была закрыта (архив)

извените если это нарушение правил

Александр  
макрос вычисления имени пользователя
 
огромное спасибо всё так просто когда знаешь

:)
макрос вычисления имени пользователя
 
добрый вечер
почитал на форуме похожие темы и смог написать вот такой макрос
Код
  Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
            If Not Intersect(cell, Range("A1:A496") Is Nothing Then
                ActiveSheet.Cells(1, 10).Value = CreateObject("WScript.Network") .UserName
           End If
        Next cell
    End Sub
в принцепе работает но несовсем как надо
Задача: надо чтобы макрос срабатывал при изменении в A1:A496, но построчно т.е если в А1 произошли именения то в этой же строке столбца J должно встать имя Пользователя (под которым человек зашёл в виндовс) и так далее
у меня считает изменения в столбце "А" но имя пользователя только в столбце "J1", в других строках нет незнаю почему ... Я новичёк в макросах
Подскажите если не трудно

всех с наступающим !!!
макрос в книге с общим доступом
 
Большое спасибо,
всё оказалось проще.
подправил код и вроде рабоает, завтра на работе проверю.

Александр
макрос в книге с общим доступом
 
добрый вечер,

воспользовлся поиском и смог

написать вот такой код:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim r As Long
Dim str As String
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
str = Target.Value
Application.EnableEvents = False
r = Cells(Rows.Count, 2).End(xlUp).Row
Range("A4:A100" & r).ClearContents
Target.Value = str
End If
If Not Intersect(Target, Range("A4:A100"  ;)  ) Is Nothing Then
Target.Offset(0, 12).Select
End If
Application.EnableEvents = True
ActiveSheet.Protect
End Sub

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
 If Target.Column = 14 Then
 Sheets(2).Select
 ActiveSheet.PrintOut
 Sheets(1).Select
 End If
End Sub

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

Подскажите пожалуйста какие есть возможности использовать этот код и общий доступ

Спасибо зарание Александр
условное форматирование с динамическими списками
 
сегодня переработал ....
условное форматирование с динамическими списками
 
так вроде все ячейки столбца С12:С44 первого листа ссылаются на С12 и ищет в столбце В листа 3 (anzahl),  
 
может надо формулу подкоригировать и добавить смещение т.е ..  
 
если при поиске позиции в столбце В первого листа есть совпадения с листом 3, то должен проверяться столбец С первого листа на совпадения с данными из столбца В третьего листа, и при несовпадении выделяться  
 
 
Спасибо
условное форматирование с динамическими списками
 
Сегодня начил использовать и заметил следущее...  
 
маленький глюк...  
 
если в столбце "С" 1 листа появляеться отклонение от столбца "B" листа 3  
на 10 + или - то никакого форматирования непроисходит, но если отклонение на 20 +- или на отклонение от 1 - 9 то ворматирование работает прекрасно... немогу догнать вчём дело.  
 
Если стандартное число на листе "60", а на листе 1 указано 50 то формат непроисходит и на обарот, 50/60 а в остальных случаях вроде работает  
 
фаил в формате XLS приклеплён    
 
Зелёным выделил правильное форматирование а красным нет  
 
Спаибо
Страницы: 1 2 След.
Наверх