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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 229 След.
Заполнение пустых столбцов по-порядку данных
 
bimbombig,
1. выделяете диапазон A5:J18 и запускаете макрос
Код
Sub mrshkei2()
Dim rng As Range
Set rng = Selection
rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
2. или он же но вручную выделяете снова A5:J18 и нажимаете F5-выделить-пустые ячейки-ок-удалить-ячейки со сдвигом влево
3. или формулой см. файл
Код
=ЕСЛИОШИБКА(ИНДЕКС($A5:$J5;АГРЕГАТ(15;6;СТОЛБЕЦ($A$5:$J$5)/($A5:$J5<>"");СТОЛБЕЦ(A$1)));"")
Изменено: Mershik - 3 мар 2021 18:43:24
Не бойтесь совершенства. Вам его не достичь.
Заполнение пустых столбцов по-порядку данных
 
Цитата
bimbombig написал:
есть что еще добавить по существу?  
есть конечно - смотрите выше мое предложение
Изменено: Mershik - 3 мар 2021 17:21:21
Не бойтесь совершенства. Вам его не достичь.
Заполнение пустых столбцов по-порядку данных
 
bimbombig, а Marat Ta, ушел, но обещал вернуться
Не бойтесь совершенства. Вам его не достичь.
Сравнить два столбика с АРТИКУЛАМИ и к совпадающим артикулам подставить свою ЦЕНУ
 
Kar Vor, ВПР  или индекс+поискпоз или ПРОСМОТР  Вам в помощь
Не бойтесь совершенства. Вам его не достичь.
Сумматор двоичных чисел
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Можете в приложенном примере показать на паре строк(вбив руками): вот это исходные данные, а вот это надо получить? Там, думаю, всем будет понятнее.
поддерживаю)  
Не бойтесь совершенства. Вам его не достичь.
Заполнение пустых столбцов по-порядку данных
 
bimbombig, еще советую показать отдельно рядом желаемый результат.
Не бойтесь совершенства. Вам его не достичь.
Построить поверхность функции z(x, y)
 
Иванов Иван, для того что бы вы получили совет или готовое решение Вам необходимо предложить новое название темы (предложить тут в сообщении), а модераторы изменят (вы не сможете) в котором будет понятно что делаете (например Произвести расчет площади круга) и пример приложить с исходными данными и желаемым результатом.
сейчас тема не соответствует правилам и помощь скроют или тему удалят.
Изменено: Mershik - 3 мар 2021 14:24:21
Не бойтесь совершенства. Вам его не достичь.
Двухуровневый список при горизонтальном массиве, Повторяющиеся значения и горизонтальный массив
 
Максим Колесников, сделал с макросом - он отбирает уникальные компании и договоры.
Выводим на вспомогательный лист. ДАлее обычными формулами в проверку данных:
для компании
Код
=СМЕЩ(Списки!$A$1;1;0;СЧЁТЕСЛИ(Списки!$A:$A;"<>"&"");1)
для договора
Код
=СМЕЩ(Списки!$A$1;ПОИСКПОЗ($G$17;Списки!$A:$A;0)-1;1;СЧЁТЕСЛИ(Списки!A:A;$G$17);1)
сделано на основании примера https://www.planetaexcel.ru/techniques/1/38/
Изменено: Mershik - 3 мар 2021 14:14:33
Не бойтесь совершенства. Вам его не достичь.
Двухуровневый список при горизонтальном массиве, Повторяющиеся значения и горизонтальный массив
 
Максим Колесников, а сводная не подойдет?..список не так понял, список у Вас выпадающий
вот тут с доп. столбцом (что бы не сортировать) http://word-office.ru/kak-sdelat-spisok-v-excel-bez-povtoreniy.html
Изменено: Mershik - 3 мар 2021 10:53:29
Не бойтесь совершенства. Вам его не достичь.
Получить список дат и дней недели по названию выбранного месяца
 
Александр П., можно без  ВПР , правда не пойму день недели как-то странно работает
Код
=ЕСЛИОШИБКА(ТЕКСТ(ДЕНЬНЕД(A4;1);"дддд");"")
Изменено: Mershik - 3 мар 2021 09:13:59
Не бойтесь совершенства. Вам его не достичь.
Подсчитать количество повторяющихся значений внутри диапазона дат
 
Андрей Кутенких, откуда за 20.08.2020 - Реклама на ТВ 3, Посоветовали 5? Инстаграмм- 6, докупают вообще нет у Вас 9 вы отпонта поставили значения?
Код
=СЧЁТЕСЛИМН($A:$A;F$1;$B:$B;"*"&$E2&"*")
Изменено: Mershik - 3 мар 2021 09:02:52
Не бойтесь совершенства. Вам его не достичь.
Преобразование таблицы. Данные одинаковых периодов разместить в одну строку.
 
mokrzhevsky, изменил посмотрите
Изменено: Mershik - 2 мар 2021 22:39:36
Не бойтесь совершенства. Вам его не достичь.
Преобразование таблицы. Данные одинаковых периодов разместить в одну строку.
 
Код
Sub mrshkei()
Dim arr, i As Long, arr2, arr3, n As Long, col As New Collection, col2 As New Collection
LR = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A3:D" & LR)
For i = LBound(arr) + 1 To UBound(arr)
    On Error Resume Next
    col.Add arr(i, 1) & ":" & arr(i, 2), CStr(arr(i, 1) & ":" & arr(i, 2))
Next i

ReDim arr2(1 To col.Count, 1 To LR)
For i = 1 To col.Count
arr3 = Split(col(i), ":")
    arr2(i, 1) = arr3(0)
    arr2(i, 2) = arr3(1)
    k = 3
    For n = LBound(arr) + 1 To UBound(arr)
        If CStr(arr(n, 1)) = arr3(0) And arr(n, 2) = CDate(arr3(1)) Then
            arr2(i, k) = arr(n, 3)
            arr2(i, k + 1) = arr(n, 4)
            k = k + 2
        End If
    Next n
Next i
Range("F4").Resize(UBound(arr2), UBound(arr2, 2) - LBound(arr) + 1) = arr2
End Sub

Изменено: Mershik - 2 мар 2021 22:39:16
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
БМВ,  ну так раздел "Место нахождения и адрес юридического лица" и там 7 и 8 пункты) типа как на картинике
Изменено: Mershik - 2 мар 2021 20:25:35
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
БМВ, это часть данных из файла ЕГРЮЛ
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
Jake, чет состряпал, но поря уходить
Код
Function myaddress(rng As Range) As String
Dim cell As Range
For Each cell In rng
    If cell = "Адрес организации" Then
        x1 = 1: GoTo XXX
    End If
    If x1 = 1 And cell <> 8 Then
        myaddress = myaddress & cell & vbLf
    ElseIf x1 = 1 And cell = 8 Then
         myaddress = Left(myaddress, Len(myaddress) - 1)
        Exit For
    End If
XXX:
Next cell
End Function
Изменено: Mershik - 2 мар 2021 18:00:29
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
Цитата
Jake написал:
Пока не понял как убрать пустой CR/LF после последней строки, и начинать именно с "Адрес организации"
Код
замените 
Worksheets("Лист1").Range("B2") = x
на
Worksheets("Лист1").Range("B2") = Left(x, Len(x) - 1)
Цитата
Jake написал:
а не между 7 и 8, т.к. по тексту большая вероятность ошибок.
а на чем заканчивать ?
Цитата
Jake написал:
И самое главное, не знаю как вызвать из строки формулой не запуская из меню Модулей    Это наверное функция нужна?
тогда нужно в UDF переделывать, но вопросы остаются
Не бойтесь совершенства. Вам его не достичь.
Проверка данных Excel
 
groulls, файл-пример покажите ?  
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
Jake, почему сразу не  писать что нужно из выписки сделать то и то ..и сразу понятнее становится всем
Код
Sub mrshkei()
Dim arr, i As Long, n as long lr As Long
With Worksheets("База")
lr = .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Range("A1:A" & lr)
For i = LBound(arr) To UBound(arr)
    If arr(i, 1) = 7 Then
        For n = 1 To lr
            If arr(i + n, 1) <> 8 Then
            If arr(i + n, 1) <> "" Then
                x = x & arr(i + n, 1) & vbLf
            End If
            Else
                Worksheets("Лист1").Range("B2") = x
                Exit Sub
            End If
        Next n
    End If
Next i
End With
End Sub



Изменено: Mershik - 2 мар 2021 16:55:59 (lдобавил проверку на пустую строку)
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
Jake, рекомендую файл-пример показать несколько вариантов и ЖЕЛАЕМЫЙ результат так же показать, я же не думаю что у вас одна организация, хотя судя по этому это выписка из ЕГРЮЛ
Изменено: Mershik - 2 мар 2021 16:44:19
Не бойтесь совершенства. Вам его не достичь.
Найти неопределенное множество строк между определенными значениями
 
кажется лучше уже макрос)
Не бойтесь совершенства. Вам его не достичь.
Определить и открыть последний файл по дате создания (по времени) из папки
 
Цитата
Марто написал:
Не знаю как зацепиться за новый выгруженный файл
выше предложил, что не вышло?
да и тема странная (название ее)
Тема: Определить и открыть последний файл по дате создания (по времени) из папки
Изменено: Mershik - 2 мар 2021 15:27:59
Не бойтесь совершенства. Вам его не достичь.
Определить и открыть последний файл по дате создания (по времени) из папки
 
Марто,  Спасибо изменил

пы.сы. вы бы обращение ставили понятнее становится кому Вы пишите.
Не бойтесь совершенства. Вам его не достичь.
Определить и открыть последний файл по дате создания (по времени) из папки
 
Марто, вот ЗДЕСЬ есть макрос в #7, его чуть исправить и добавить открытие файла, копирование новых данных в ваш отчет и все.
Код
Sub get_first_created()
Dim myPath$, mask$, f$, i%, t As Date
Dim myFolder As Object, myFile As Object
myPath = "C:\Users\123\Desktop\123\" ' директория для поиска
mask = "*.xlsx" ' маска поиска с * и ?
With CreateObject("Scripting.FileSystemObject")
    Set myFolder = .GetFolder(myPath)
    t = DateAdd("h", 9, Date) ' если ищем самый поздний - убрать эту строку
    For Each myFile In myFolder.Files
        If myFile.Name Like mask Then
            If CDate(myFile.DateCreated) > t Then  ' если ищем самый ранний, то  <, самый поздний  - >
                t = CDate(myFile.DateCreated)
                f = myFile.Name
            End If
        End If
    Next
End With
Workbooks.Open myPath & f
With ActiveWorkbook
    'часть кода которая берет нужные данные для отчета или что-то делает
    .Close SaveChanges:=False 'закрываем открытую книгу
End With
End Sub
т.е. в том коде заменить путь на свой и строку
Код
t = Now ' если ищем самый поздний - убрать эту строку
заменить на
Код
t = DateAdd("h", 9, Date)
Изменено: Mershik - 2 мар 2021 15:19:56
Не бойтесь совершенства. Вам его не достичь.
Выборочное суммирование ячеек
 
alex_kireev, "" = текст, вот и ошибка, замените "" на 0
или использовать простую формулу  =СЧЁТЕСЛИ(C1:C6;">0")
Изменено: Mershik - 2 мар 2021 14:43:45
Не бойтесь совершенства. Вам его не достичь.
Сортировка по числам, которые в конце строки после текста, Возможна ли сортировка по числам, которые идут в конце строки после текста?
 
Андрей Егоров, ну я не знаю другого, макросом еще, но по той же логике
Код
=--ПСТР(A6;ПОИСК(" - ";A6;1)+3;ПОИСК(" кг.";A6;1)-ПОИСК(" - ";A6;1)+3-6)
Не бойтесь совершенства. Вам его не достичь.
Сортировка по числам, которые в конце строки после текста, Возможна ли сортировка по числам, которые идут в конце строки после текста?
 
Андрей Егоров, только с доп столбцом
Не бойтесь совершенства. Вам его не достичь.
Поиск необходимого значение (города) по 2 и более условиям
 
OlegO, а точно - мой косяк) проще сделать загнать в массив и сделать цикл и все
так например
Код
Sub mrshkei()
Dim arr, i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A1:C" & lr)
x1 = Range("F1"): x2 = Range("F2")
For i = LBound(arr) To UBound(arr)
    If arr(i, 1) = x1 And arr(i, 2) = x2 Then Range("H1") = arr(i, 3): Exit Sub
Next i
End Sub
Изменено: Mershik - 2 мар 2021 11:53:42
Не бойтесь совершенства. Вам его не достичь.
Поиск необходимого значение (города) по 2 и более условиям
 
Цитата
OlegO написал:
Lookup
Кажется это ВПР имею ввиду в VBA
Изменено: Mershik - 2 мар 2021 11:32:39
Не бойтесь совершенства. Вам его не достичь.
Поиск необходимого значение (города) по 2 и более условиям
 
OlegO,
Цитата
Mershik написал:
ну формулы помогли
?
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 229 След.
Наверх