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

Страницы: 1
Задержка в обновлении данных
 
Доброго всем дня.
Удачных и продуктивных выходных.
В примере на листе "бланк" есть кнопка которая вызывает пользовательскую форму.
В форме есть TextBox1 в который забиваются данные.
При нажатии на кнопку " ПЕЧАТЬ" в этой же форме макросом происходит перенос данных
из TextBox1 в Label.1 на листе "бланк". После переноса данных происходит печать этого листа.
Проблема в следующем: Обновление данных происходит через раз...Поясню:.....
Если вызывать три раза форму и в TextBox1 забивать "данные №1"  "данные №2"  "данные №3"
то из принтера выйдут три листа но в первом и втором выйдет надпись "данные №1" а в третьем "данные №3".
Всю голову сломал что не так...
Заранее благодарю всех кто откликнется...
Объединение календарей
 
Доброго всем дня .
У меня есть форма на которой 16 текстбоксов, а рядом с ними кнопки которые по макросу вызывают форму календаря.
При выборе даты в календаре это значение должно вставиться в текстбокс находящийся рядом с той кнопкой которую активировал пользователь.
Не хочется плодить формы календаря и делать их 16 штук что бы в каждой прописать конкретный текстбокс куда нужно вставить дату.
Вопрос.....Можно ограничиться одной формой календаря, а номер текстбокса сделать переменной...при нажатии кнопки создавалась бы константа с номером текстбокса и она использовалась бы потом в форме календаря для определения куда потом вставлять дату...
Немного сумбурно описал за что прошу прощения..
Уверен знатоки этого форума подскажут как это реализовать..
Заранее спасибо всем кто откликнется на мою просьбу.

Кусок кода:
Код
касса.TextBox2 = Calendar1.Value
касса.TextBox2 = Format(Me.Calendar1, "dd/mmmm/yyyy")
Изменено: kviona - 13.01.2017 11:29:57
Коррекция директории в макросе
 
Доброго всем дня и с наступающим Новым Годом.
Скачал в свое время макрос по формированию договоров (не помню автора к сожалению)
Адаптировал его под свои задачи но столкнулся с проблемой.
В макросе путь, к шаблонам и папке для сохранения сформированных договоров, прописан автоматом с условием что шаблоны и папка "договора" лежат в том же месте где и сам рабочий файл с которого запускается макрос.
Был бы премного благодарен если бы кто то подправил код макроса . Нужно указать конкретные пути для шаблонов и папки с договорами.
путь к шаблонам: C:\Program_Bobr_SV\Шаблоны
путь к папке "договора" : C:\Program_Bobr_SV\Договора
Код
Const ИмяФайлаШаблона = "шаблон.dot"
Const ИмяФайлаШаблонаФабрикант = "шаблон_фабрикант.dot"
Const ИмяПапки = "Договора"
Const КоличествоОбрабатываемыхСтолбцов = 17
Const РасширениеСоздаваемыхФайлов = ".doc"

Sub СформироватьДоговоры()

If Worksheets("Данные").Cells(56, 1) = "Бобр" Then
    ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона)
    Else
    ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблонаФабрикант)
    End If
    
    НоваяПапка = NewFolderName & Application.PathSeparator
    Dim row As Range, pi As New ProgressIndicator
    r = Cells(Rows.Count, "A").End(xlUp).row: rc = r - 2
    If rc < 1 Then MsgBox "Строк для обработки не найдено", vbCritical: Exit Sub

    pi.Show "Формирование договоров": pi.ShowPercents = True: s1 = 10: s2 = 90: p = s1: a = (s2 - s1) / rc
    pi.StartNewAction , s1, "Запуск приложения Microsoft Word"

    ' Dim WA As Word.Application, WD As Word.Document: Set WA = New Word.Application    ' c подключением библиотеки Word
    Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application")    ' без подключения библиотеки Word

    For Each row In ActiveSheet.Rows("3:" & r)
        With row
            ФИО = Trim$(.Cells(1))
            Filename = НоваяПапка & ФИО & РасширениеСоздаваемыхФайлов

            pi.StartNewAction p, p + a / 3, "Создание нового файла на основании шаблона", ФИО
            Set WD = WA.Documents.Add(ПутьШаблона): DoEvents

            pi.StartNewAction p + a / 3, p + a * 2 / 3, "Замена данных ...", ФИО
            For i = 1 To КоличествоОбрабатываемыхСтолбцов
                FindText = Cells(1, i): ReplaceText = Trim$(.Cells(i))

                ' так почему-то заменяет не всё (не затрагивает таблицу)
                'WA.Selection.Find.Execute FindText, , , , , , , wdFindContinue, False, ReplaceText, True

                pi.line3 = "Заменяется поле " & FindText
                With WD.Range.Find
                    .Text = FindText
                    .Replacement.Text = ReplaceText
                    .Forward = True
                    .Wrap = 1
                    .Format = False: .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                    .Execute Replace:=2
                End With
                DoEvents
            Next i
            pi.StartNewAction p + a * 2 / 3, p + a, "Сохранение файла ...", ФИО, " "
            WD.SaveAs Filename: WD.Close False: DoEvents
            p = p + a
        End With
    Next row

    pi.StartNewAction s2, , "Завершение работы приложения Microsoft Word", " ", " "
    WA.Quit False: pi.Hide
    msg = "Сформировано " & rc & " договоров. Все они находятся в папке" & vbNewLine & НоваяПапка
    MsgBox msg, vbInformation, "Готово"
End Sub

Function NewFolderName() As String
    NewFolderName = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяПапки)
   
End Function
Получение данных из сайта и вывод их в сообщении
 
Всем доброго вечера.
Заранее хочу поблагодарить всех ко откликнется.
Цель следующая. Есть файл ексель в которой работают менеджеры. Есть сайт компании..в его недрах лежит текстовый файл.
Как сделать так что бы при открытии менеджером файла ексель, открывалась пользовательская форма и информация из текстового файла переносилась в Label1 (или в текстбокс)  ну или или просто при открытии что бы выводилось бы сообщение с данными из текстового файла..Планирую потом сделать проверку на наличие файла и если он есть на сайте запускать макрос а если нет то пропускать эту процедуру....Если в кратце....открываем файл...макрос идет на сайт и если текстовый файл в наличии то выводим сообщение с данными из текстового файла а если нет просто открываем ексель и менеджер спокойно работает..
Возможно не совсем внятно объяснил за что заранее прошу прощения.
Вот полный путь к текстовому файлу: http://www.smp-bobr.ru/program/01.txt
Конфликт с макросом для функции "РАБДНИ"
 
Всем доброго дня и удачи...
Есть связанный выпадающий список . Есть макрос который анализирует изменение "главной" ячейки в выпадающем списке и при изменении значения в ней обнуляет значение выбранное в другой  ...но макрос не работает...перепробовал разные способы...делал макрос который запускался при изменении значения в ячейке но макрос выполнял все что угодно кроме самого важного...обнуления значения..видимо конфликт с макросом для функции "РАБДНИ" так как удалив лист "календарь" все работает..Помогите и подскажите как этого избежать..
Страницы: 1
Наверх