Добрый день. Такая ситуация.
Есть две таблицы.
В одной категория и цена
В другой категории и диапазон цен с маржой.
Надо по категории и по вхождению цены в диапазон подтянуть маржу.
ЗЫ файл для опытов прилагается.


Картинку вставить не дает

Добрый день всем.
Ситуация такая, в папке есть куча файлов в CSV формате
Нужно в каждом файле в столбце F - цена, сделать к цене + 17%, т.е. цена * 1.17
При этом в столбце F могут быть как текстовые, так и числовые значения, так же попадаются ошибки.
До этого делала с обычным excel файлом (макрос писал GPT с моими корректировками), все работает, а тут ерунда получается.
Код макроса и образец файла прикладываю ниже.
Заранее спасибо.

Sub Bez_scidki()
  Dim folderPath As String
  Dim fileName As String
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim lastRow As Long
  Dim i As Long
  Dim cellValue As Double
 
  ' Укажите путь к папке с файлами
  folderPath = "C:\Users\123\Desktop\Площадки\123\2024.07.16\New\"
 
  ' Перебираем все файлы в папке
  fileName = Dir(folderPath & "\*.csv")
  While fileName <> ""
      ' Открываем файл
      Set wb = Workbooks.Open(folderPath & "\" & fileName)
     
      ' Получаем первый лист
      Set ws = wb.Sheets(1)
     
      ' Проверяем, можно ли преобразовать столбец H в числовой формат
      For i = 2 To ws.Range("F" & ws.Rows.Count).End(xlUp).Row
          If IsNumeric(ws.Cells(i, "F").Value) Then
              cellValue = CDbl(ws.Cells(i, "F").Value) * 1.17
              ws.Cells(i, "F").Value = Format(cellValue, "0.00")
          Else
              ws.Cells(i, "F").Value = "0"
          End If
      Next i
     
      ' Сохраняем файл
      wb.Save
     
      ' Закрываем файл
      wb.Close
     
      ' Переходим к следующему файлу
      fileName = Dir()
  Wend
 
  MsgBox "Обработка файлов завершена.", vbInformation
End Sub

Добрый день всем.
Ситуация такая, в папке есть куча файлов в CSV формате
Нужно в каждом файле в столбце F - цена, сделать к цене + 17%, т.е. цена * 1.17
При этом в столбце F могут быть как текстовые, так и числовые значения, так же попадаются ошибки.
До этого делала с обычным excel файлом, все работает, а тут ерунда получается.
Код макроса и образец файла прикладываю ниже.
Заранее спасибо.

Sub Bez_scidki()
   Dim folderPath As String
   Dim fileName As String
   Dim wb As Workbook
   Dim ws As Worksheet
   Dim lastRow As Long
   Dim i As Long
   Dim cellValue As Double
   
   ' Укажите путь к папке с файлами
   folderPath = "C:\Users\123\Desktop\Площадки\123\2024.07.16\New\"
   
   ' Перебираем все файлы в папке
   fileName = Dir(folderPath & "\*.csv")
   While fileName <> ""
       ' Открываем файл
       Set wb = Workbooks.Open(folderPath & "\" & fileName)
       
       ' Получаем первый лист
       Set ws = wb.Sheets(1)
       
       ' Проверяем, можно ли преобразовать столбец H в числовой формат
       For i = 2 To ws.Range("F" & ws.Rows.Count).End(xlUp).Row
           If IsNumeric(ws.Cells(i, "F").Value) Then
               cellValue = CDbl(ws.Cells(i, "F").Value) * 1.17
               ws.Cells(i, "F").Value = Format(cellValue, "0.00")
           Else
               ws.Cells(i, "F").Value = "0"
           End If
       Next i
       
       ' Сохраняем файл
       wb.Save
       
       ' Закрываем файл
       wb.Close
       
       ' Переходим к следующему файлу
       fileName = Dir()
   Wend
   
   MsgBox "Обработка файлов завершена.", vbInformation
End Sub

Добрый день.
Такая ситуация - есть список с перечнем марок машин и номеров с ними связанных
Нужно из этого перечня с помощью формул вытащить марку машины

Особенности:
- марка машины всегда вначале списка
- может состоять из двух и более слов разделенных пробелом
- после марки машины так же идет пробел (а может быть несколько)

Файл может содержать 1000 строк и более, плюс регулярно будет меняться. Поэтому нужна именно формула.
Пример в файле ниже.

Заранее спасибо

Добрый день.
Ситуация такая, достаточно часто через PQ собираю данные из кучи разных источников, а потом через формулу "ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ" вытаскиваю информацию из сводов в таблицы, удобные для дальнейшей работы.
Но для рассылки конечному потребителю необходимо удалять лисы со сводами, а ячейки с формулами "ПОЛУЧИТЬ ДАННЫЕ" переводить в обычные значения. При этом другие формулы должны оставаться неизменными.

Думаю, что нужен макрос с заменой ячеек по ключу на активном листе, но моих знаний для реализации не хватает.  

Добрый день. Ситуация такая.
Периодически мне приходят планы продаж от менеджеров по почте.
Форма стандартизированная, поэтому возникла мысль преобразовать файл через PQ для облегчения дальнейшей работы с ним.
Для этого файлы были сохранены в папке с подобным именем файла: 2022_"номер месяца" "Организация".
При заборе файлов из папки возникла следующая проблема:
В ячейке А1 в каждом файле присутствует заголовок отчета - "План продаж на: Месяц год"
При заборе данных из папки этот заголовок из первого файла берется в заголовок столбца PQ.
В будущем, если этот файл по тем или иным причинам будет удален из папки, или выбрана другая папка для работы (к примеру смена года или организации), запрос выдает ошибку.

Как сделать так, чтобы этого не происходило?

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

Добрый день, такая ситуация:
Необходимо в диапазоне 60 ячеек рандомное срабатывание счетчика 0 - 1
1 должна выпасть не более 10 раз.

Добрый день, появилась необходимость сделать универсальный макрос для удаления всех запросов в книге (независимо от имени запроса), для дальнейшей рассылки файлов конечным пользователям.
На форуме, да и в интернете, смогла нарыть только удаление запроса с привязкой к конкретному имени.



Как изменить код, чтобы работало так как мне нужно?

Добрый день всем.
Регулярно работаю в Excel, потихоньку собирала свою книгу макросов, возникла необходимость создать свою надстройку.
Надстройку создавала по видео https://www.youtube.com/watch?v=ofmXa0-hu3k&ab_channel=NikolayPavlov "Как создать свою надстройку".
Но на этапе работы с Риббон возникла проблема.
Базовое - через Tabs вставляем элементы. Прописываем имя и идентификатор Таб и Групп и при проверке вылазит следующая ошибка:
Я так понимаю проблема какая-то в адресе ссылки на Майкрософт, но в чем именно и как должно быть правильно разобраться не могу.
Понимаю, что тема не совсем связана напрямую с Excel, но вдруг сможете помочь.

Заранее спасибо.