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

Страницы: 1 2 3 След.
Left Find в Power Query
 
#
08.07.2020 11:13:20
Цитата
buchlotnik написал:
Код ? 1Text.BeforeDelimiter(text, delimiter)


Каждому For свой Next
Thank you very much … it works  :*  
 
Перейти    
Left Find в Power Query
 
#
08.07.2020 10:51:14
Добрый день профи,
нужна Ваша помощь:

В одной таблице находиться артикль *к примеру 10100001-001... в другой 10100001
создаю отчет по артиклям +/- и конечно же приход с расходом не совпадает... отчет создала полностью в power query.

как удалить значение в артикле после "-" или другого символа в экселе понятно (iferror(left(A1;find("-";A1)-1);A1), а в power query не знаю ...

Заранее спасибо за Вашу помощь!
 
Перейти    
Удаление дублированных данных
 
#
05.02.2019 16:24:10
Nordheim, Anchoret, спасибо огромное.. работает идеально,

но видимо это не очень мне поможет, тк изменения подкачиваются заново..и каждый раз надо удалять *хотя новые данные могут быть правельнее..
есть ли возможность, чтобы при изменении (скажем в дной из колонок) данных, данные не дублировались, а изменяли старое значение.

на данный момент, если в ячейке что-то изменить, она заново добавляет данные.

Заранее спасибо!
Изменено: Leborham - 05.02.2019 16:25:00
 
Перейти    
Удаление дублированных данных
 
#
21.01.2019 16:03:22
Данные подкачиваюся по условию из макросов, но когда кто-то меняется статус с уникальным номером, то данные заного вносятся в лист, от этого и дубляж...

Прилагаю один из макросов, который подтянивает данные...
Код
Sub Demande()
    Dim arr(2), i&, itxt$, j&
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    arr(0) = Tabelle3.[B2].CurrentRegion.Value
    arr(1) = Tabelle4.[B3].CurrentRegion.Value
    For i = 2 To UBound(arr(1))
            itxt = arr(1)(i, 10) & arr(1)(i, 6) & arr(1)(i, 16) & arr(1)(i, 3) & arr(1)(i, 1)
            dic.Item(itxt) = 0
            ltxt = ""
    Next i
    j = 0
    ReDim iarr(1 To UBound(arr(0)), 1 To UBound(arr(1), 2))
    For i = 2 To UBound(arr(0))
        If arr(0)(i, 5) = "Approved" Then
            itxt = arr(0)(i, 24) & arr(0)(i, 3) & arr(0)(i, 9) & arr(0)(i, 34) & arr(0)(i, 10)
            If Not dic.Exists(itxt) Then
                j = j + 1
                iarr(j, 10) = arr(0)(i, 24)
                iarr(j, 6) = arr(0)(i, 3)
                iarr(j, 16) = arr(0)(i, 9)
                iarr(j, 3) = arr(0)(i, 34)
                iarr(j, 1) = arr(0)(i, 10)
            End If
        End If
    Next i
    If j = 0 Then Exit Sub
    i = Tabelle4.Range("b" & Rows.Count).End(xlUp).Row + 1
    Tabelle4.Range("b" & i).Resize(j, UBound(iarr, 2)) = iarr
End Sub
 
Перейти    
Удаление дублированных данных
 
#
21.01.2019 15:56:21
Удаление должно быть макросом, оставаться дожно только изначально созданная строка...
И для информации надо видеть что удаляется, тк может быть изменение в другой колонке...
Изменено: Leborham - 21.01.2019 15:58:05
 
Перейти    
Удаление дублированных данных
 
#
21.01.2019 15:50:14
Добрый день.

есть возможность удалять строку, в случае дублирования номера в колонке B?
например новое значение?
но чтобы включалось окно-предупреждение, что новое значение будет удалено с указанием уникального номера

Заранее спасибо!
Леборхам
 
Перейти    
[ Закрыто] Программа для запоминания англ. слов
 
#
10.01.2019 17:34:49
Цитата
БМВ написал:
похоже это первые последствия изучения. ENG еще не выучен, а RUS уже забывается :-)
Русский начинаю забывать - это верно,
но в связи с тем, что по-русский почти не говорю уже, тк живу в другой стране и клавиатура не русскоязычная...

ЗЫ: есть ли возможность эту программу настроить на перевод 3/4 языков, тк у нас 3 официальных языка и диалекты?

Спасибо заранее
 
Перейти    
[ Закрыто] Программа для запоминания англ. слов
 
#
10.01.2019 17:17:36
Привет всем,

щаметила, что если переводить трудные слова, то транскрипция неправильная.
Как и где это поправить?

Заранее спасибо!
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 18:13:51
Спасибо за Вашу помощь!

Конечный результат:

Sub Wenn_Ja()
Dim i As Long
For i = 1 To 100000
 If Cells(i, 4) = "Ja" Then
   Cells(i, 3) = Cells(i, 4)
 Else
     If Cells(i, 2) <> "" Then
        Cells(i, 3) = Cells(i, 2)
 End If
 End If
 
 
Next i
End Sub
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
02.08.2018 16:31:35
как я поняла это происходит после обновления и чаще последнюю строку дублирует (((
проект в понедельник закрываю и не щнаю что с этим багом делать((
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 16:29:43
Цитата
DopplerEffect написал:
n
Сорри, не поняла, что ставить для For to n?

ругается на все значения..
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
02.08.2018 16:17:31
Каждый номер уникальный черещ фильтр проверила...
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 15:18:17
Цитата
DopplerEffect написал:
ничего не стоит" и "вообще ничего
иногда ячейки 1 и 3 пустые.. в этом случае средняя ячейка остается пустой (у меня был 0).


Ячейки 1 и 3 с выпадающим списком, в котором прописываюся условия:
Да (Ja)
Нет (Nein)
Не в данный момент (Noch nicht)
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 15:00:53
Если в последннй колонки стоит Да (JA), то данные подставляются ищ последней колонки. Если там ничего не стоит, то данные подставляются из первой колонки в среднюю.
Если вообще ничего то пустая колонка или ноль.. у меня был 0
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 14:45:22
Там нет чисел, только условия..

Да (Ja)
Нет (Nein)
Не в данный момент (Noch nicht)
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
02.08.2018 14:43:05
По какой причине, после обновления основной таблица, код дублирует во вторую некоторые данные?

Использую этот код в другиз таблицах и никаких проблем

Заранее спасибо!
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 14:33:42
Цитата
Юрий М написал:
А лучше всего небольшой файл-пример набросать.
Файл
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 14:05:48
Цитата
Юрий М написал:
И зачем макросом помещать в ячейку формулу?
Изначально была эта формула.. скопировала всю
Изменено: Leborham - 02.08.2018 14:06:19
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 13:56:57
Цитата
DopplerEffect написал:
А дальше Цикл  FOR + Условие IF

вот загвоздка с IF... как прописать формулу
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 13:54:13
Цитата
Ігор Гончаренко написал:
заключите ваши данные в умную таблицу, при добалении строк в нужных колонках будут автоматически добавляться нужные формулы
В этом случае не будут работать некоторые макросы.
 
Перейти    
Если В>А то В в противном случае А, Макрос Если
 
#
02.08.2018 13:18:45
Добрый день форумчане!

Нужна Ваша помощь!!!!!

Надо заменить формулу =еслиошибка(если(BI4>0;BI4;AH4);"") на макрос и чтобы он протянивался до последней заполненной строки (колонка с B4 как индикатор).
Строки всегда прибавляются и нет конечной строки.

Искала подобное, но не нашла ((

Заранее спасибо!
Изменено: Leborham - 02.08.2018 13:19:03
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
22.06.2018 15:03:07
Цитата
Nordheim написал:
Сложно помочь по коду не имея примерного представления о структуре таблицы и конкретики по тому что должно быть в итоге
Высылаю
Изменено: Leborham - 22.06.2018 16:11:15
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
20.06.2018 15:59:02
И
Причину описала, почему не могу.. таблица точно такая же как и в примере, только больше стобцов..
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
20.06.2018 10:19:45
Цитата
Nordheim написал:
Или у вас в файле примере таблица не соответствует тому что в реальном файле, и в реальном файле таблица имеет 45 или более столбцов?
Добрый день!

эта таблица была как пример, на работе у меня огромная таблица со множеством столбцов, которую я не могу выслать по причине приватности.
Не могли бы Вы мне помочь с кодом? Что мне надо добавить к этому коду, если кол-во столбцов увеличивается??

Заранее благодарна за Вашу помощь!
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 17:08:22
skais675, к сожалению выслать не могу, но в теме этого сайта есть пример, того что мне необходимо... если есть возможность с этими данными показать?

Заранее спасибо!
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 15:31:23
не могли бы пример показать?
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 15:18:32
Цитата
skais675 написал:
Leborham  А зачем Вам макрос, используйте сводную, и дубликатов не будет.
потому что таблица будет дорабатываться
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 15:16:28
Цитата
Nordheim написал:
Leborham  написал:увеличила кол-во iarr(j, ..)  и  arr(0)(i, ..)Каким образом?
Код
Sub test2()
    Dim arr(2), i&, itxt$, j&
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    arr(0) = Tabelle3.[B2].CurrentRegion.Value
    arr(1) = Tabelle4.[B3].CurrentRegion.Value
    For i = 2 To UBound(arr(1))
            itxt = arr(1)(i, 1) & arr(1)(i, 2) & arr(1)(i, 3) & arr(1)(i, 4) & arr(1)(i, 5) & arr(1)(i, 6) & arr(1)(i, 7) & arr(1)(i, 8) & arr(1)(i, 9) & arr(1)(i, 10) & arr(1)(i, 11) & arr(1)(i, 12) & arr(1)(i, 13) & arr(1)(i, 14)
            dic.Item(itxt) = 0
            ltxt = ""
    Next i
    j = 0
    ReDim iarr(1 To UBound(arr(0)), 1 To UBound(arr(1), 2))
    For i = 2 To UBound(arr(0))
        If arr(0)(i, 5) = "Approved" Then
            itxt = arr(0)(i, 3) & arr(0)(i, 5) & arr(0)(i, 7) & arr(0)(i, 8) & arr(0)(i, 9) & arr(0)(i, 10) & arr(0)(i, 14) & arr(0)(i, 29) & arr(0)(i, 30) & arr(0)(i, 31) & arr(0)(i, 34) & arr(0)(i, 43) & arr(0)(i, 45) & arr(0)(i, 46)
            If Not dic.Exists(itxt) Then
                j = j + 1
                iarr(j, 1) = arr(0)(i, 5)
                iarr(j, 2) = arr(0)(i, 34)
                iarr(j, 3) = arr(0)(i, 8)
                iarr(j, 4) = arr(0)(i, 14)
                iarr(j, 5) = arr(0)(i, 3)
                iarr(j, 6) = arr(0)(i, 29)
                iarr(j, 7) = arr(0)(i, 46)
                iarr(j, 8) = arr(0)(i, 10)
                iarr(j, 9) = arr(0)(i, 7)
                iarr(j, 10) = arr(0)(i, 30)
                iarr(j, 11) = arr(0)(i, 31)
                iarr(j, 12) = arr(0)(i, 43)
                iarr(j, 13) = arr(0)(i, 45)
                iarr(j, 14) = arr(0)(i, 9)
                
            End If
        End If
    Next i
    If j = 0 Then Exit Sub
    i = Tabelle4.Range("b" & Rows.Count).End(xlUp).Row + 1
    Tabelle4.Range("b" & i).Resize(j, UBound(iarr, 2)) = iarr
End Sub
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 14:35:08
нашла проблему, но не знаю как ее решить..

увеличила кол-во iarr(j, ..)  и arr(0)(i, ..)

после чего появился этот баг(((
 
Перейти    
Дублировние значений при вставке данных макросом. Как устранить?
 
#
19.06.2018 13:26:55
использую...
использую код от m.Roman
 
Перейти    
Страницы: 1 2 3 След.
Наверх