Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 488 След.
Вывод остатков на другой лист
 
Уважаемый ровшан ход, опишите задачу в сообщении
Согласие есть продукт при полном непротивлении сторон.
Работа-, Надо написать макрос
 
Не договорились, заказ свободен
Согласие есть продукт при полном непротивлении сторон.
"Не удается выполнить макрос..."
 
Код
cbButton.OnAction = "Module2.R" ' название процедуры, выполняемой при нажатии на кнопку
Согласие есть продукт при полном непротивлении сторон.
Работа-, Надо написать макрос
 
Цитата
Иван313 написал: Просьба писать в личку.
Написал
Согласие есть продукт при полном непротивлении сторон.
Нужно скомпоновать данные, вставка Смещение строк в таблице 1 зависимости от неопределенного количества в таблице 2 в отдельную зону 1 листа
 
Сроки? Бюджет?
Согласие есть продукт при полном непротивлении сторон.
Ошибка при попытке передать в .PivotFields одномерный массив значений фильтра
 
Файл-пример в студию. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Цитата
Timyr написал: Dim EtalonBook As Worksheet
В моем коде такой строки нет.
По тексту ошибки понятно, что где то в коде переменная EtalonBook объявлена как минимум дважды
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Application.EnableEvents = False
If Not Intersect(Target, Union(Rows(2), Rows(7))) Is Nothing And Target.Rows.Count = 1 Then
With Sh
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Range(.Cells(Target.Row, "A"), .Cells(Target.Row, "Y")).Copy
    .Rows(lRow).PasteSpecial (xlPasteValues)
    .Rows(lRow).PasteSpecial (xlPasteComments)
End With
End If
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Изменено: Sanja - 23 Июл 2019 12:18:08
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
Цитата
igorbych написал: нужна проверка на номер строки скажем 2 или 7
В модуль ЭтаКнига. Строки 2 или 7 будут копироваться после последней строки листа при их выделении
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Application.EnableEvents = False
If Not Intersect(Target, Union(Rows(2), Rows(7))) Is Nothing Then
With Sh
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Rows(Selection.Row).Copy
    .Rows(lRow).PasteSpecial (xlPasteValues)
    .Rows(lRow).PasteSpecial (xlPasteComments)
End With
End If
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Условное форматирование в зависимости от разных дат
 
Цитата
toxic2007 написал: Файл во вложении.
Что-то пошло не так...
Согласие есть продукт при полном непротивлении сторон.
Суммирование значений VBA (Dic)
 
Переменные нужно обнулять перед следующим шагом цикла
Код
'.................................
ИНВNO = Empty: СуммаNO = Empty
Next i
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
Цитата
igorbych написал: Надо например 7 строку скопировать в конец листа - значения и примечания.
Код
Sub Copy7Row()
Application.ScreenUpdating = False
With ActiveSheet
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Rows(7).Copy
    .Rows(lRow).PasteSpecial (xlPasteValues)
    .Rows(lRow).PasteSpecial (xlPasteComments)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
В большинстве случаев для каких-то операций со строкой выделять ее нет необходимости. Да и работать со ВСЕЙ строкой тоже очень редко приходится. Я очень сомневаюсь, что у Вас заполнены все 16 384 столбца.
Вы лучше опишите ЗАДАЧУ, а не СПОСОБ, которым пытаетесь ее решить. Приложите файл-пример, в котором на одном листе Как есть, на другом Как надо
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
В модуле листа
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
В модуле книги
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Согласие есть продукт при полном непротивлении сторон.
Есть ли событие на выделение строки?
 
Цитата
igorbych написал: событие на обработку сделать удобное, чтобы на всех листах работало
Напишите эту обработку в модуле ЭтаКнига.  
Согласие есть продукт при полном непротивлении сторон.
Вставка примечания если это формула
 
igorbych, Ваши последние вопросы никак не связаны с названием Темы. На этом форуме правило такое Один вопрос - Одна тема.
Создайте новую тему, дайте ей соответствующее название
Согласие есть продукт при полном непротивлении сторон.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Больно смотреть уже на все это  :D
Тема: Выбор данных для копирования в зависимости от значения в другой ячейке
Код
Dim shBaza As Worksheet
Set shBaza = BazaBook.Worksheets(BazaSheet)
With ProtocolSklad.Worksheets(BazaSheet)
    If .Cells(48, 5) Then .Cells(40, 4) = shBaza.Cells(1, 2)
    .Cells(40, 6) = IIf(.Cells(48, 2) = 1, shBaza.Cells(2, 2), shBaza.Cells(3, 2))
End With
Изменено: Sanja - 22 Июл 2019 20:43:10
Согласие есть продукт при полном непротивлении сторон.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Цитата
Tyoma написал: Если ячейка B48
Эта ячейка в какой книге и на каком листе? ИЗ которой копируем или В которую?
Согласие есть продукт при полном непротивлении сторон.
Числовой формат VBA
 
Результаты арифметических операций с плавающей точкой в Excel могут быть неточными
Код
Range("K4") = Round(Range("F4") - Range("H4"), 2)
Согласие есть продукт при полном непротивлении сторон.
Создание UseForm с выводом значений (выбранного списка) в одну ячейку
 
Цитата
Contact_me написал: Подскажите, пожалуйста, что посмотреть-почитать, чтобы реализовать необходимый функционал?
Полно материала
Согласие есть продукт при полном непротивлении сторон.
Странное поведение при вставке текста в ячейку: пробел превращается в табуляцию.
 
Посмотрите. Файл - Параметры - Правописание - Параметры автозамены - Заменять при вводе...
Согласие есть продукт при полном непротивлении сторон.
Смена адреса макроса Excel
 
Цитата
crypto_boss написал:
Пытался сделать поиск по коду, не помогло.
В редакторе VBE - Ctrl + F, далее см.рисунок
Согласие есть продукт при полном непротивлении сторон.
Сводная таблица: итоги группировок внизу
 
?
Согласие есть продукт при полном непротивлении сторон.
Определение категории по диапазону значений
 
vikttur, я думаю Название темы можно взять из ее Описания
Тема: Определение категории по диапазону значений
Если чуть изменить значения категорий, то можно так. См.файл
Согласие есть продукт при полном непротивлении сторон.
Извлечение последних двух цифр года из даты.
 
Код
=ТЕКСТ(A1;"ГГ")
Согласие есть продукт при полном непротивлении сторон.
Вставка примечания если это формула
 
Приложите файл-пример. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Функция убирающая символ, help me
 
Цитата
Faervol написал: убрались символы @Skeletal$#:_NUMBER
Если количество цифр в NUMBER всегда равно 4, то можно так
Код
=ПОДСТАВИТЬ(A2;ПСТР(A2;ПОИСК(" ";A2)+1;17);"")
Согласие есть продукт при полном непротивлении сторон.
Как из текста при получении русского слова исключить слова, содержащие в конце слова ая или ый или ое?, в продолжение темы "Как из текста-каши получить первое русское слово"
 
Понятно. Тогда нужно извлекать все русские слова, а уже потом, в полученном результате, искать первое без этих окончаний
Согласие есть продукт при полном непротивлении сторон.
Как из текста при получении русского слова исключить слова, содержащие в конце слова ая или ый или ое?, в продолжение темы "Как из текста-каши получить первое русское слово"
 
Так у Вас практически все слова заканчиваются на эти самые ~ая(ый) (столбец F)
В чем подвох?
Изменено: Sanja - 21 Июл 2019 09:20:37
Согласие есть продукт при полном непротивлении сторон.
Процент меняется в зависимости от размера числа
 
Код
=ПРОСМОТР(A1;{90;100;130;180};{0,1;0,2;0,3;0,4})
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 488 След.
Наверх