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

Страницы: 1
Копирование значений на другие листы по названию, Копирование данных на другие листы по названию листов.
 
#
08.08.2023 22:57:35
Коллеги и гуру, добрый вечер.
Прошу вашей помощи.
Пример:
В Листе "Основная таблица" колонка "B" Имеет произвольные значения.
Значения в колонке "E" совпадают с наименование листов.
Если  значение в колонке "E" = Имя листа, то копируй значение из колонки "B" и вставляй в в листы Карта1, Карта2..начиная с ячейки "С" и ниже)
Пример2 Во вложении.
П.С. Спасибо .Ігор Гончаренко, очень помог ранее,
На основе предыдущего кода, мои попытки что-то подправить под задачу выше не дали результатов((.
Код
s = 8
e = 23
  On Error Resume Next
  With Worksheets("Основная таблица")
    Do While Not IsEmpty(.Cells(s, 15))
    Worksheets(.Cells(s, 15)).Cells(e, 1) = .Cells(s, 2)
    If Err > 0 Then Exit Do Else s = s + 1
    e = e + 1
    Loop
  End With
  Application.ScreenUpdating = True
Изменено: BUVS - 08.08.2023 22:58:16
 
Перейти    
Копирование значений в разные листы по названию, Копирование значений в разные листы по названию из соседней колонки
 
#
05.08.2023 22:16:41
Коллеги, нужен совет по куску VBA кода. "что-то голову ломаю четвертый час, через двойное "For", что-ли это делается?  
Пример:
В Листе "Основная таблица" колонка (А:А) произвольная нумерация.
Если номер в колонке (А:А) совпадает с номером карты в названии листа, то бери значение в колонке (E:E) и копируй в этот лист, в ячейку (F12:H12).
"Пример2" во вложении.
Я уверен, что там что-то простое. Заранее большое спасибо!
 
Перейти    
VBA/копирование колонок в несколько колонок на разных листах, Есть колонка, через VBA её нужно скопировать и вставить в несколько колонок на разных листах
 
#
24.12.2021 16:30:50
Есть кусок кода, в котором из листа lx03 нужно скопировать данные в lx03 и в Additionaltable. Как это сделать? (мне нужен простой синтаксис который это свяжет)

Код
Application.Sheets("lx03").Select 'Выбор листа lx03
For i = 1 To LastColumn 'Перемещение в нужные столбцы
    If Cells(1, i).Value = "Storage Type" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AA") _
       Worksheets("Additionaltable").Range("A")
       Else
    If Cells(1, i).Value = "Storage Bin" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AB") _
       Worksheets("Additionaltable").Range("B")
       Else
    If Cells(1, i).Value = "Material" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AC") _
       Worksheets("Additionaltable").Range("C")
       Else
    If Cells(1, i).Value = "Available stock" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AD") _
       Worksheets("Additionaltable").Range("D")
       End If
       End If
       End If
       End If
Next i
Изменено: BUVS - 24.12.2021 16:32:35
 
Перейти    
Работа с PDF файлами и папками Windows, Извлечь часть строк из PDF (ГТД), перенести в другой PDF (Инвойс)
 
#
13.01.2021 13:40:57

Если данная задача лежит за границами нашего форума, прошу подскажите куда можно обратиться за помощью! Заранее спасибо!

Задача Юзера:

А) В программе выбрать путь к папкам

Б) В программе выбрать путь куда будут сохраняться измененные документы (Инвойсы).

Задача Программы:

1)       В выбранной юзером директории находить папки, в конце имени которых стоят латинские GR.

2)       Внутри такой папки находить PDF файлы с именем GTD(ГТД)

3)       Открыть PDF файлы с именем GTD(ГТД).

4)       Находить и копировать значения:

4.1 Номер ГТД – пример 10013160/150820/0427146

4.2 Курс валюты – пример 86.4092

4.3 Номер PID  - пример 13040012/2594/0000/2/1

5)   Вставлять скопированные значения в PDF c именем Invoice(инвойс) в той же папке, в пустое место сверху, с  последовательностью:

1- номер PID; 2-Курас валюты; 3- Номер ГТД(GTD).

6)   Добавить к имени PDF Invoice файла последний номер из ГТД - 0427146

7)   Сохранять PDF инвойс c новыми данными, в конечную папку выбранную юзером в пункте Б).

В конечном итоге должна появиться папка с кучей инвойсов PDF формата, в конце названия которых будут номера ГТД.

П.С:

- Файлы хранятся на сервере;

- У нас есть лицензия на Акробат для изменения PDF файлов

- Windows 10

                                         

- Я скопировал описание из Word документа, т.к он много весит. там есть описание с картинками

Изменено: BUVS - 13.01.2021 15:27:26
 
Перейти    
Цикл, Сравнить все значения в диапазоне
 
#
30.01.2017 12:19:55
Господа,  прошу помощи ( заранее прошу прощения за простой вопрос, который, возможно, повторялся ни один раз)
Есть код:
Код
Worksheets("Sheet1").Select
lLastRow = Cells.SpecialCells(xlLastCell).Row
For i = 1 To 50
    If Cells(1, i).Value = "Dest. Storage Type" Then
    Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("sheet1").Range("V1")
        Exit For
      End If
    Next
Как туда вкрутить второй "if" c условием : если ни одна из ячеек в диапазоне <>  "Dest. Storage Type", then  msgbox "нет данных".

P.S.  Просто, у меня все время получается зацикливать msgbox на каждый из 50 ячеек,но это уже лирика).
 
Перейти    
Копирование диапазона до последней заполненной строки учитывая пустоты
 
#
27.01.2017 12:37:18
Коллеги, прошу извинить за возможный повтор.

В данный момент макрос учитывает пустоты и стопориться на них(копирует данные до пустот), что логично)).
Что нужно вписать, чтобы диапазон копировался до конца вместе с пустотами?
Код
For i = 1 To 50
If Cells(1, i).Value = "Dest. Storage Type" Then
Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Worksheets("LT23").Range("V1")
Exit For
End If
Next i
Или не замарачиваться и вписать?
Код
Range(Cells(1, i), Cells(100000, i)).Copy
 
Перейти    
СЧЕТЕСЛИМН с несколькими параметрами
 
#
23.01.2017 16:29:16
Уважаемые товарищи, есть пример.

СЧЕТЕСЛИМН с несколькими условиями в двух диапазонах, но результат не выдает.
В чем ошибка?
 
Перейти    
СУММЕСЛИМН (SUMIFS) с двумя параметрами внутри одного критерия (criterial)
 
#
20.01.2017 16:57:56
Уважаемы господа, прошу помощи.
Формула выделенная в примере зеленым цветом работает.
А при добавлении в формулу условия, подтягивает только часть.
В чем ошибка?
Пример во вложении.
 
Перейти    
Совпадение с разницей в один/два/три символ(а) формулой
 
#
22.11.2016 09:51:57
Коллеги, доброе утро.
Как найти совпадение с разницей в один/два/три символ(а)  используя формулу?

Условия:
1)Количество символов может быть разным по отношению к значению, по которому мы ищем.
2) Точность вовпадения можно регулировать в формуле
3)Порядок символов может быть разным о отношению к значению, по которому мы ищем.
Можно и без третьего условия, если это сложно).

Если есть такая тема, просто киньте ссылку, очень буду признателен и заранее  извиняюсь за возможный  дубликат.
 
Перейти    
VBA изменение в закрашенных ячейках
 
#
24.05.2016 16:51:35
Коллеги, добрый день.
Столкнулся с проблемой
В залитых  красным ячейках  не обрабатывается код
Возможно, проблема возникла, так как закрашивались ячейки по усл.формат.
Пример во вложении.  
 
Перейти    
Макрос пишет ошибку при умножении компонентов
 
#
03.05.2016 23:26:53
Коллеги, добрый вечер.
Вопрос очень простой, даже не вижу необходимости скидывать пример.
VBA ругается на мой кривой макрос, не знаю как записать.
Суть: Нужно, чтобы результат в колонке 11 = произведению колонки 9 8 и 7 деленный на 1млн, короче считаем объем построчно.
Вопрос элементарный.На форуме признаюсь долго не искал
Код
Dim ans As String
Dim ans1 As String
Dim str As Long   
   ans = MsgBox("ммм", vbYesNo)

   If ans = vbYes Then
       For str = 1 To 30000
          Cells(str, 11).Value = Cells(str, 9).Value * Cells(str, 8).Value * Cells(str, 7).Value
       Next str
   Else
       ans1 = MsgBox("ммм", vbOKOnly)
   End If 
End Sub
 
Перейти    
Условное форматирование с заливкой по формуле, Построчная заливка
 
#
17.11.2015 00:42:52
Коллеги, доброй ночи.
Покопавшись в предыдущих похожих темах, ответа не нашел, так что не судите строго.
Просьба помочь.
Есть диапазон ячеек, нужно, чтобы построчно закрашивались первое и второе наименьшее значение с условием, что они меньше, либо равны  максимальному значению в строке.
 
Перейти    
Просьба помочь в поиске макс и мин значения в части столбца
 
#
05.03.2015 21:51:32
Добрый вечер.
Для оптимизации кинули задачку в EXCEL.  1)  Из диапазона найти самый повторяющийся материал, 2) если повторений материала больше 4х -  оставить, меньше убрать.
3) Найти в оставшихся 4х повторениях самое большое и самое маленькое значение. 4) Если максимальное значение материал > минимального  в два раза, то этот материал остается.

Запарка вышла на моменте 3) Есть один столбец, но минимумы и максимумы нужны для каждого материала отдельно. Вообщем поиск мин. и макс. должен быть связан с ячейкой наименования материала.

Заранее спасибо!!
 
Перейти    
Страницы: 1
Наверх