Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Лина
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 След.
Как закрепить область в условном форматирование
 
#
18.04.2020 13:42:38
Здравствуйте!
Есть таблица в которой применяется условное форматирование. Периодически в таблице строки приходиться удалять со сдвигом вверх, заданная область с форматом плывет. Подскажите какие есть варианты закрепить область.  
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:36:57
Nordheim, Спасибо Вам! Заработало!
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:27:33
После отработки этого макроса ниже находящиеся макросы не срабатывают.
Код
'копирует корпус
Dim i As Long
 On Error Resume Next
Sheets("база корпуса нестандарт").[J79:V79].Copy
Sheets("заказ").Activate
For i = 5 To Cells(Rows.Count, 9).End(xlUp).Row + 1
  If Cells(i, 9).Value = "" Then
         Sheets("заказ").Range("I" & i).PasteSpecial
         Sheets("заказ").Activate
         Exit Sub
  End If
Next i
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:23:41
Весь код.
Код
Sub фасады_распашные__()
'проверка на заполнение полей
 Dim x As Control
    For Each x In фасады_распашные.Controls 'Проверяем - все ли обязательные поля заполнены?
        If TypeOf x Is MSForms.TextBox Or TypeOf x Is MSForms.ComboBox Then
            If x.Visible = True Then
                If x.Value = "" Then
                    MsgBox "Все пустые поля должны быть заполнены.", 48, "Ошибка!"
                    x.SetFocus
                Exit Sub
                End If
            End If
        End If
    Next
    
' размеры корпуса
Worksheets("база корпуса нестандарт").Cells(79, 12).Value = фасады_распашные.ComboBox5.Value 'наименование детали
Worksheets("база корпуса нестандарт").Cells(79, 13).Value = фасады_распашные.ComboBox6.Value 'код детали
Worksheets("база корпуса нестандарт").Cells(79, 16).Value = фасады_распашные.TextBox14.Value 'деталь размер х
Worksheets("база корпуса нестандарт").Cells(79, 17).Value = фасады_распашные.TextBox15.Value 'деталь размер у
Worksheets("база корпуса нестандарт").Cells(79, 18).Value = фасады_распашные.TextBox16.Value 'кол-во
Worksheets("база корпуса нестандарт").Cells(79, 19).Value = фасады_распашные.TextBox17.Value 'кромка х
Worksheets("база корпуса нестандарт").Cells(79, 20).Value = фасады_распашные.TextBox18.Value 'кромка у


'заполнение фурнитуры
Worksheets("база корпуса нестандарт").Cells(79, 27).Value = фасады_распашные.ComboBox1.Value 'петля - вписывает содержимое
Worksheets("база корпуса нестандарт").Cells(79, 29).Value = фасады_распашные.TextBox10.Value 'кол-во - вписывает содержимое

Worksheets("база корпуса нестандарт").Cells(81, 27).Value = фасады_распашные.ComboBox2.Value 'ручка - вписывает содержимое
Worksheets("база корпуса нестандарт").Cells(81, 29).Value = фасады_распашные.TextBox11.Value 'кол-во - вписывает содержимое

Worksheets("база корпуса нестандарт").Cells(83, 27).Value = фасады_распашные.ComboBox3.Value 'тип-он - вписывает содержимое
Worksheets("база корпуса нестандарт").Cells(83, 29).Value = фасады_распашные.TextBox12.Value 'кол-во - вписывает содержимое


'копирует корпус
Dim i As Long
 On Error Resume Next
Sheets("база корпуса нестандарт").[J79:V79].Copy
Sheets("заказ").Activate
For i = 5 To Cells(Rows.Count, 9).End(xlUp).Row + 1
  If Cells(i, 9).Value = "" Then
         Sheets("заказ").Range("I" & i).PasteSpecial
         Sheets("заказ").Activate
         Exit Sub
  End If
Next i
'копирует фурнитуру
 With Application
         .ScreenUpdating = 0
         lr = Sheets("сбор фурнитуры").Cells(Rows.Count, 6).End(xlUp).Row + 1
         Sheets("база корпуса нестандарт").[Y79:AC84].Copy
         Sheets("сбор фурнитуры").Range("B" & lr & ":F" & lr + 6).PasteSpecial Paste:=xlPasteValues
        .ScreenUpdating = 0
        End With
        
'подчищает форму
фасады_распашные.TextBox14 = "" 'деталь х
фасады_распашные.TextBox15 = "" 'деталь у
фасады_распашные.TextBox16 = "" 'кол-во
фасады_распашные.ComboBox1 = "" 'петля наименование
фасады_распашные.TextBox10 = "" 'петля кол-во
фасады_распашные.ComboBox2 = "" 'ручка наименование
фасады_распашные.TextBox11 = "" 'ручка кол-во
фасады_распашные.ComboBox3 = "" 'тип-он наименование
фасады_распашные.TextBox12 = "" 'тип-он кол-во
End Sub
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:15:57
Перед вторым есть заголовок "'копирует фурнитуру" он и есть второй
 
Перейти    
Как связать два макроса между собой?
 
#
16.04.2020 17:12:40
Здравствуйте.
На кнопке висит два макроса, первый копирует строку с одного листа на другой с проверкой заполненных ячеек далее происходит выход.
Как сделать так чтобы без прерывно срабатывали оба макроса.
Закоммен. Exit Sub макрос перестал работать корректно.
Поменять местами макросы тоже не вариант.
Код
'копирует корпус
Dim i As Long
 On Error Resume Next
Sheets("база корпуса нестандарт").[J79:V79].Copy
Sheets("заказ").Activate
For i = 5 To Cells(Rows.Count, 9).End(xlUp).Row + 0
  If Cells(i, 9).Value = "" Then
         Sheets("заказ").Range("I" & i).PasteSpecial
         Sheets("заказ").Activate
        Exit Sub
  End If
Next i

'копирует фурнитуру
 With Application
         .ScreenUpdating = 0
         lr = Sheets("сбор фурнитуры").Cells(Rows.Count, 6).End(xlUp).Row + 1
         Sheets("база корпуса нестандарт").[Y79:AC84].Copy
         Sheets("сбор фурнитуры").Range("B" & lr & ":F" & lr + 6).PasteSpecial Paste:=xlPasteValues
        .ScreenUpdating = 0
        End With
Изменено: Лина - 16.04.2020 17:14:13
 
Перейти    
Проверка на заполнение полей
 
#
07.04.2020 16:54:37
RAN, Хочется да не получается)
Догадываюсь что вся сила в этих двух строках
Код
i = встройка.MultiPage1.Value 
For Each x In встройка.MultiPage1.Pages(i).Controls
Изменено: Лина - 07.04.2020 16:54:50
 
Перейти    
Проверка на заполнение полей
 
#
07.04.2020 16:15:01
Здравствуйте.
Помогите отредактировать код. Как дописать еще одно условие для проверки на заполнение полей. Сейчас проверка происходит ссылаясь на UserForm и на MultiPage1..
Хотелось бы добавить еще одно условие, жесткую привязку к конкретному Frame, у меня на них расположены поля на заполнения.
Например у меня их несколько Frame1,Frame2,Frame3 надо чтобы проверка происходила только Frame1,Frame2.

 
Код
'проверка на заполнение полей
Dim i
 i = встройка.MultiPage1.Value
For Each x In встройка.MultiPage1.Pages(i).Controls
        If TypeOf x Is MSForms.TextBox Or TypeOf x Is MSForms.ComboBox Then
            If x.Visible = True Then
                If x.Value = "" Then
                    MsgBox "Все пустые поля должны быть заполнены.", 48, "Ошибка!"
                    x.SetFocus
                Exit Sub
                End If
            End If
        End If
    Next
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 21:39:03
Ungrateful, Спасибо вы меня выручили!
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 20:10:25
Ungrateful,
С форматом данных текстбокса.  
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 19:54:20
Ungrateful,
Ввожу формат в ячейке 14 марта 2012 г.
После ввода через форму, получаю по факту дату 10.03.20 а должно быть так 10. марта 2020 г.
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 17:15:20
Андрей_26,  

Можно сделать вот так? но на основе моего кода. Кусочек кода взят из сети.
Код
With Sheets("Счет")
         
          Cells(LastRow + 1, 2) = CDbl(Me.TextBox1) 
          Cells(LastRow + 1, 3) = Me.ComboBox1 
          Cells(LastRow + 1, 4) = CDate(Me.TextBox2) 
          Cells(LastRow + 1, 7) = Me.TextBox3 
          Cells(LastRow + 1, 13= Me.TextBox4
          Cells(LastRow + 1, 9) = Me.TextBox5
          Cells(LastRow + 1, 10) = CDbl(Me.TextBox6) 
          Cells(LastRow + 1, 11) = CDbl(Me.TextBox7) 
          Cells(LastRow + 1, 12) = CDbl(Me.TextBox8) '
Изменено: Лина - 10.03.2020 17:15:42
 
Перейти    
Как получить нужный формат с TextBox
 
#
10.03.2020 15:27:36
Здравствуйте уважаемые форумчане.
Есть форма для записи с набором полей, после заполнения все данные переносятся на лист.
Как получить правильный формат в ячейках, для даты и для значения.
Видела в связке вот такие коды применяются для значения CDbl для даты CDate, к сожалению в макросах не сильна не знаю как применить куда что дописать.
Не большой кусочек кода прикрепила.
Код
Worksheets("Счет").Cells(10, 8).Value = UserForm1.TextBox3.Value '№ счета
Worksheets("Счет").Cells(10, 10).Value = UserForm1.TextBox4.Value   'дата
 
Перейти    
Сохранить из книги отдельный лист не удаляя изображения.
 
#
25.05.2019 19:08:57
RAN, На всякий случай от посторонних глаз)
 
Перейти    
Сохранить из книги отдельный лист не удаляя изображения.
 
#
25.05.2019 18:24:13
Извиняюсь, не учла один момент, хотелось бы избавится от макроса в сохраненном листе.
 
Перейти    
Сохранить из книги отдельный лист не удаляя изображения.
 
#
25.05.2019 18:20:12
RAN,Спасибо!
 
Перейти    
Сохранить из книги отдельный лист не удаляя изображения.
 
#
25.05.2019 17:18:35
Здравствуйте.
Пользуюсь рабочим макросом уже давно и все устраивало но вот возник вопрос, не много его изменить. Как это сделать, не понимаю так как не разбираюсь в них.
Вообщем как он работает, переводит формулы в значения, удаляет все картинки затем сохраняет лист.
Подскажите, как исключить удаление картинок перед сохранением?
Код
Application.ScreenUpdating = False
Dim sPath As String, sName As String, Sp As Shape, iFullName As String
Application.DisplayAlerts = False
     sPath = Sheets("путь к папке").Range("C11").Value '
    sName = InputBox("", "", "")
    If sName = "" Then
        MsgBox "", 48, ""
        Exit Sub
   End If
    iFullName = sPath & sName & ".xlsx"
    If Dir(iFullName) <> "" Then
        MsgBox "", 64, ""
    Else
        Sheets("Лист1").Copy
        For Each Sp In ActiveSheet.Shapes
            Sp.Delete
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value 
        Next
        ActiveWorkbook.SaveAs Filename:=sPath & sName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
        Application.DisplayAlerts = True
    End If
End Sub
 
Перейти    
При протягивании формулы менять ссылку в ДВССЫЛ
 
#
02.04.2019 20:25:58
Всем огромное спасибо! Все предложенные варианты рабочие!
 
Перейти    
При протягивании формулы менять ссылку в ДВССЫЛ
 
#
02.04.2019 19:32:01
Доброе время суток.
Уважаемые форумчане, подскажите как протянуть формулу ДВССЫЛ
Например =ДВССЫЛ("A2") методом протягивания формулы получить =ДВССЫЛ("A3") =ДВССЫЛ("A4") и.т.д.
 
Перейти    
Как скопировать изображение, с одного листа на другой, находящееся в копируемом диапазоне ячеек.
 
#
16.09.2018 10:21:26
Karataev,Спасибо работает!
 
Перейти    
Как скопировать изображение, с одного листа на другой, находящееся в копируемом диапазоне ячеек.
 
#
16.09.2018 09:55:13
Доброго времени суток.
Проблема в следующем:
макросом копируется определенный диапазон ячеек и вставляется в другой лист. В одной из ячеек находится изображение. Макросом переносятся все данные, но изображение - нет.
В случае копирования ячейки вручную - все копируется и переносится. Макросом никак.
 
Перейти    
Удаляются примечания с картинками в момент открытия файла
 
#
14.09.2018 09:41:09
ivanok_v2,
Цитата
ivanok_v2 написал:
то она появляется после програмного добавления выпадающего списка в ячейке
В моем файле нет выпадающего списка. Есть всего лишь примечания с картинками.
Сегодня выяснилось что перед сохранением если сжать каждый рисунок в примечании, в таком случае файл открываться без потерь рисунков.
Но это не вариант, слишком уж долго и муторно.
 
Перейти    
Удаляются примечания с картинками в момент открытия файла
 
#
13.09.2018 19:48:33
Здравствуйте! Возникла проблемка следующего характера.
Имеется файлик с несколькими листами, состоит из базы данных с картинками в примечаниях.
После копирования макросом диапазона ячеек включая картинку с примечанием с базы на другой лист, в дальнейшем сохраняя новым файлом, при открытие сохраненного файла а именно на других компьютерах получаю вот такую картину файл во вложении.
Все фигуры и примечания удаляются. Кто не будь сталкивался с такой броблемкой.
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
29.06.2018 17:32:56
Nordheim,В вашем варианте есть один нюанс. Допустим если на листе2 между заполненными сроками есть пустая строка, в эту пустую строку данные не копируются, а копируются ниже. В моем файл примере пустая строка заполняется.
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
29.06.2018 12:56:14
Юрий М,Здравствуйте, ваш код выдает ошибку если лист2 не заполненный. аналогично такая же ошибка в коде у
Kuzmich.
Назрел вопрос как обращаться к листу1 если кнопка будет находится на листе2, а она там и будет, извините  упустила этот момент.
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
29.06.2018 00:01:29
Hugo,Звучит логично, вот реализовать не совсем получается  
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
28.06.2018 23:13:38
Kuzmich,Загляните в мой ответ #27
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
28.06.2018 22:58:59
Kuzmich,Таким же методом)  И все же, задача так  и осталась не решенной.
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
28.06.2018 22:25:38
Юрий М,Ок. Я стормазила. Ваш код каким то чудом криво скопировала. Ну, с кем не бывает)
 
Перейти    
VBA Копирование строк с листа на лист с проверкой последней заполненной строки по нескольким условием
 
#
28.06.2018 22:19:12
Юрий М,Вы меня не совсем поняли а может и я вас не совсем поняла.
Проверка на заполнения должна происходить по двум столбцам. Например: если ячейка на листе2 в столбце А заполнена или ячейка в столбце С заполнена то строка копируется ниже.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх