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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 473 След.
Удаление строк по условию
 
Выложите в облако и дайте здесь ссылку
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
А что у Вас в переменной myRng на момент ошибки?
Покажите проблемный файл
Изменено: Sanja - 19 Июн 2019 12:06:21
Согласие есть продукт при полном непротивлении сторон.
Заполнить пустой столбец таблицы с переменным количеством строк VBA
 
В том файле, который приложен выше макрос от Пытливый, отрабатывает без ошибок, так что проблема на Вашей стороне.
Приложите проблемный файл (или код, в который Вы вставили эту часть)
Согласие есть продукт при полном непротивлении сторон.
В таблице мониторинга цен разделить реализации по трём периодам
 
Цитата
ilgarzxc написал: Заполнил руками - приложил
А что за цифры в таблице? Как они получились?
Согласие есть продукт при полном непротивлении сторон.
Перемещение области выделения
 
Владимир Самара, в подавляющем большинстве случаев, для того что бы что-то сделать с диапазоном ячеек выделять их не нужно. В коде ниже вместо .Select используйте нужное Вам действие (.Copy, .Cut, .Clear и т.п.)
Код
Range(Cells(5, 1), Cells(Rows.Count, Cells(5, 1).Column).End(xlUp)).Resize(, 4).Select
Изменено: Sanja - 19 Июн 2019 06:57:10
Согласие есть продукт при полном непротивлении сторон.
Поиск листа по имени и названия статьи в этом листе, Надо найти лист, в нем позицию и поставить сумму по дате
 
Цитата
Alennka написал: Как без впр и свода каждый день
Макросом
Согласие есть продукт при полном непротивлении сторон.
Получение по заданному списку адресов их гео-координат (широта и долгота), Макрос для получения геокоординат по адресу
 
Пожалуйста
Согласие есть продукт при полном непротивлении сторон.
Как создать дубликат Control в UserForm через VBA ?
 
falmrom, может лучше вручную накидать на форму нужных контролов, настроить их свойства, и сделать невидимыми, а при необходимости показывать/скрывать?
Согласие есть продукт при полном непротивлении сторон.
Сбор данных с разных листов в плоскую таблицу
 
Цитата
Finswimmer написал: Помогите!
А в чем помочь? С такими исходными данными, как мне кажется, вручную будет быстрее всего это сделать.  
Согласие есть продукт при полном непротивлении сторон.
Сбор данных с разных листов в плоскую таблицу
 
Цитата
Finswimmer написал: новый день - новый лист
И на каждом листе такая вакханалия?
Согласие есть продукт при полном непротивлении сторон.
Условное форматирование. Изменение цвета ячеек при неравенстве значений
 
Цитата
Vbarsky написал: подскажите пожалуйста формулу для условного форматирования ячеек
Цитата
Vbarsky написал: =А2>A1, = a2<a1
Согласие есть продукт при полном непротивлении сторон.
Макрос ввода даты без разделителей даёт error...
 
Нет худа без добра!  ;)  
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Цитата
Jordan07 написал: Мой, но стоит же =FALSE (ЛОЖЬ)
Точно! Мой недогляд, извиняюсь!
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Тогда так
Код
If Not .Exists(arr(I, 48)) Then
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Цитата
Jordan07 написал: Строки с этими значениями, наоборот, должны остаться, остальное удалить
В смысле?!  8-0
Разве это не Ваш код?
Цитата
Jordan07 написал:
If dic1.Exists(CStr(Картотека.Cells(a, 48))) = False
      Then Картотека.Rows(a).Delete Shift:=xlUp
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
.
Изменено: Sanja - 18 Июн 2019 13:02:22
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Код
Sub Test()
Dim arrKey(), arr()
Dim lRow&, I&, iKey, iTemp
Dim myRng As Range, delRows As Range
arrKey = Array("0059_Абонентский комплект", "0060_АТС электронная", "0065_Головная станция кабельного ТВ", _
                "0068_Домовой узел", "0090_Магистральный узел", "0105_Точка-многоточка", _
                "0123_Узел доступа телематических служб", "0155_АТС аналоговая", "0158_Оборудование РРС в составе АБК", _
                "0178_Оборудование БШПД в составе АБК", "0271_Точка доступа частного сектора")
With Worksheets("Картотека")
    Set myRng = .Range(.Cells(2, 1), Cells(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(2, .Columns.Count).End(xlToLeft).Column))
    arr = myRng.Value
End With
ReDim arrNew(1 To UBound(arr, 1), 1 To UBound(arr, 2))
With CreateObject("Scripting.Dictionary")
    For Each iKey In arrKey
        iTemp = .Item(iKey)
    Next
    For I = 1 To UBound(arr, 1)
        If .Exists(arr(I, 48)) Then
            If delRows Is Nothing Then
                Set delRows = myRng.Rows(I)
            Else
                Set delRows = Union(delRows, myRng.Rows(I))
            End If
        End If
    Next
End With
Application.ScreenUpdating = False
If Not delRows Is Nothing Then delRows.Delete
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Да, очищаются только данные
Можно очищать всё (.Clear) и затем форматировать по новой. Это всяко будет быстрее чем построчное удаление
Изменено: Sanja - 18 Июн 2019 12:15:37
Согласие есть продукт при полном непротивлении сторон.
Есть задание в google-таблицах, Нужно быстро и дорого
 
Цитата
mbtest5 написал: быстро и дорого срочно
А что бы тут не рассказать то? Неужели НАСТОЛЬКО дорого?  ;)  
Изменено: Sanja - 18 Июн 2019 13:09:10
Согласие есть продукт при полном непротивлении сторон.
Макрос на поиск значения и объединение ячеек
 
Так Вы начните их писать, и, по ходу дела, задавайте конкретные вопросы. А так у Вас заказ для ЭТОЙ ветки
Согласие есть продукт при полном непротивлении сторон.
Удаление строк по условию
 
Цитата
Jordan07 написал: может быть до 1 млн
Да, миллион строк лучше обрабатывать в массиве
Код
Sub Test()
Dim arrKey(), arr(), arrNew()
Dim lRow&, I&, J&, N&, iKey, iTemp
Dim myRng As Range
arrKey = Array("0059_Абонентский комплект", "0060_АТС электронная", "0065_Головная станция кабельного ТВ", _
                "0068_Домовой узел", "0090_Магистральный узел", "0105_Точка-многоточка", _
                "0123_Узел доступа телематических служб", "0155_АТС аналоговая", "0158_Оборудование РРС в составе АБК", _
                "0178_Оборудование БШПД в составе АБК", "0271_Точка доступа частного сектора")
With Worksheets("Картотека")
    Set myRng = .Range(.Cells(2, 1), Cells(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(2, .Columns.Count).End(xlToLeft).Column))
    arr = myRng.Value
End With
ReDim arrNew(1 To UBound(arr, 1), 1 To UBound(arr, 2))
With CreateObject("Scripting.Dictionary")
    For Each iKey In arrKey
        iTemp = .Item(iKey)
    Next
    For I = 1 To UBound(arr, 1)
        If .Exists(arr(I, 48)) Then
            N = N + 1
            For J = 1 To UBound(arr, 2)
                arrNew(N, J) = arr(I, J)
            Next
        End If
    Next
End With
Application.ScreenUpdating = False
myRng.ClearContents
Worksheets("Картотека").Range("A2").Resize(N, UBound(arrNew, 2)) = arrNew
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Макрос на поиск значения и объединение ячеек
 
Так у Вас то что в этом направлении не получается? Ваших усилий совсем не видно
У Вас тут целое ТЗ на разработку, а не один вопрос
Согласие есть продукт при полном непротивлении сторон.
Мультивыбор записей из базы на отдельный лист
 
Расставил комментарии в коде. Попробуйте изменить код и протестировать на реальных данных (сам не тестировал, могут быть ошибки)
Согласие есть продукт при полном непротивлении сторон.
Выбор масштаба графика с помощью кнопки
 
Вы ошиблись.
Согласие есть продукт при полном непротивлении сторон.
Выбор масштаба графика с помощью кнопки
 
А где Вы такую константу нашли - xlMinutes?
Согласие есть продукт при полном непротивлении сторон.
Подстановка в UserForm выборочных данных, Подставляются только первые из выпадающего списка.
 
Затык в следующем
Для процедуры FillUpgradeVozv
В этой строке
Код
Set Rng = .Columns(1).Find(what:=Sales.cbx_NumVozv, LookIn:=xlValues, LookAt:=xlWhole)
Вы находите Номер заказа и при нахождении строки с номером, переходите на 6 столбцов правее, для сравнения Описания товара в таблице с выбранным описанием в Форме
Код
If Rng.Offset(0, 6) = Sales.cbx_tovarVozv Then
но проблема в том, что метод .Find всегда возвращает ячейку с ПЕРВЫМ найденным значением номера и ваш Rng.Offset(0, 6) всегда равен Описанию товара, расположенному напротив первого Номера из всего списка номеров
Вам поможет цикл по номерам со сравнением строк с описанием или метод .FindNext (по ссылке есть пример его использования)

Ваш код с .FindNext может выглядеть примерно так
Скрытый текст
Изменено: Sanja - 18 Июн 2019 08:33:42
Согласие есть продукт при полном непротивлении сторон.
Доработка макроса, работа с большими таблицами
 
Цитата
frowzy написал: проводит ли кто online уроки
Если Ігор Гончаренко, на эту часть топика не отозвался, то готов рассмотреть сотрудничество
На основной заказ не претендую
Изменено: Sanja - 17 Июн 2019 21:45:16
Согласие есть продукт при полном непротивлении сторон.
Перебор книг в папке из отдельной книги с макросом
 
Цитата
Серёжа написал:
Имеется ли возможность оставить макрос только в одной книге
Имеется. Вставьте макрос в личную книгу макросов
Согласие есть продукт при полном непротивлении сторон.
Зависание Excel при копировании умных таблиц
 
Вообще-то картинки уместнее на форуме по фотошоп, здесь редко по ним лечат
The VBA Guide To ListObject Excel Tables
Код
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
Согласие есть продукт при полном непротивлении сторон.
Как извлечь свойство SubAddress из объекта Hyperlink, Гиперссылка и все что с ней связано
 
Число в скобках - это индекс (или номер, если угодно) гиперссылки в коллекции гиперссылок листа или диапазона
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 473 След.
Наверх