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

Страницы: 1
Макрос сортировки по дате в виде чч:мм:гг
 
#
03.04.2019 16:48:50
Добрый день, подскажите пожалуйста, у меня имеется файл с данными где имеется ID номер, но у одного Ауди номера могут быть несколько строк с записями и мне нужно что бы с помощью макроса он выбирал самую новую запись.  
 
Перейти    
Впр из сводной таблицы
 
#
26.03.2019 13:13:17
Добрый день, подскажите пожалуйста, мне нужно через ВПР подтянуть информацию из сводной таблицы, но формула не работает (пишет Н/Д)
 
Перейти    
Формула впр не работает при изменении источников
 
#
20.03.2019 17:41:34
Доброго времени суток, подскажите пожалуйста, я написал формулу ВПР, но как только я меняю название файла и листа откуда должны подгружаться данные он перестаёт работать. Как можно это исправить или что не так с формулой?
=ВПР(A2;ДВССЫЛ("[vw_profile_ncnf.xlsx]Лист1!"&ПСТР(АДРЕС(1;ПОИСКПОЗ("pernr";[vw_profile_ncnf.xlsx]Лист1!1:1;0);4);1;1)&":W");ПОИСКПОЗ("age_y";[vw_profile_ncnf.xlsx]Лист1!1:1;0)-ПОИСКПОЗ("pernr";[vw_profile_ncnf.xlsx]Лист1!1:1;0)+1;0)
 
Перейти    
Открыть/закрыть файлы в VBA
 
#
19.03.2019 14:37:50
Добрый день, у меня есть макрос который находит полный путь до файла
1msgbox application.activeworkbook.path & application.pathseparator  &"1.xlsm"
Нужно что бы после того как он найдёт полный путь открыл файл и после завершения макроса закрыл их.
 
Перейти    
Изменение формата в текста в msgbox в vba
 
#
19.03.2019 13:41:05
Добрый день, подскажите пожалуйста, у меня тут такая проблема, я вот написал код (msgbox application.activeworkbook.path) он мне выдаёт адрес папки где лежит сам файл, но так как написанный макрос работает с некоторым количеством файлов то мне нужно сделать, так что бы сообщение, которое открывается после запуска этого кода  воспринимался как текст что бы можно было дописать название тех файлов которые нужны для Работы макроса. например ( msgbox &"1.xlsm").
 
Перейти    
Макрос по Открыванию закрытого файла только по имени папки и файла или просто файла
 
#
14.03.2019 13:36:50
Добрый день, скажите пожалуйста, какой код можно написать что бы макрос открывал закрыт файл перед началом процесса, но нужно что бы он открывал только по имени файла или же имени файла и папки где она находится, так как папка будет отправляться из одного компьютера на другой и соответственно полный адрес тут не подходит.
 
Перейти    
Макрос для получения информации из закрытого файла
 
#
13.03.2019 14:46:31
Добрый день, скажите пожалуйста, как сделать так что бы формула работала при закрытом файле?

Sub ИздругогоФайла()

lr = Range("A" & Rows.Count).End(xlUp).Row

   fStr = "=ВПР(A2;ДВССЫЛ(" & Chr(34) & "[vw_profile_ncnf.xlsx]Лист1!" & Chr(34) & Chr(38) & "ПСТР(АДРЕС(1;ПОИСКПОЗ(" & Chr(34) & "pernr" & Chr(34) & ";[vw_profile_ncnf.xlsx]Лист1!$1:$1;0);4);1;1)" & Chr(38) & Chr(34) & Chr(58) & "W" & Chr(34) & ");ПОИСКПОЗ(" & Chr(34) & "age_y" & Chr(34) & ";[vw_profile_ncnf.xlsx]Лист1!$1:$1;0)-ПОИСКПОЗ(" & Chr(34) & "pernr" & Chr(34) & ";[vw_profile_ncnf.xlsx]Лист1!$1:$1;0)+1;0)"

With Range("J2")

       .FormulaLocal = fStr

       .AutoFill Destination:=Range("J2:J" & lr), Type:=xlFillValues

End With

Range("J2:J" & lr).Copy

Range("J2:J" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

End Sub
 
Перейти    
Формула ВПР в VBA - где ошибка в коде?
 
#
06.03.2019 13:10:27

Подскажите пожалуйста почему не работает код?

Исходная формула

=ВПР(A2;ДВССЫЛ("Табель!"&ПСТР(АДРЕС(1;ПОИСКПОЗ("pernr";Табель!1:1;0);4);1;1)&":W");ПОИСКПОЗ("age_y";Табель!1:1;0)-ПОИСКПОЗ("pernr";Табель!1:1;0)+1;0)

Sub ККК()

lr = Range("A" & Rows.Count).End(xlUp).Row

  fStr = "=ВПР(A2;ДВССЫЛ( Chr(34) & "Табель!" & Chr(34)   & ПСТР(АДРЕС(1;ПОИСКПОЗ( Chr(34) & "pernr" & Chr(34)  ;Табель!1:1;0);4);1;1) &" & chr(34) :W  " & chr(34)  );ПОИСКПОЗ( chr(34) & "age_y" & chr(34)  ;Табель!1:1;0)-ПОИСКПОЗ(chr(34) & "pernr" & chr(34) " ;Табель!1:1;0)+1;0)"

With Range("I2")

      .FormulaLocal = fStr

      .AutoFill Destination:=Range("I2:I" & lr), Type:=xlFillValues

End With

Range("i2:i" & lr).Copy

Range("i2:i" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

End Sub
 
Перейти    
[ Закрыто] Формула в VBA
 
#
06.03.2019 13:01:57

Подскажите пожалуйста почему не работает код?

Исходная формула

=ВПР(A2;ДВССЫЛ("Табель!"&ПСТР(АДРЕС(1;ПОИСКПОЗ("pernr";Табель!1:1;0);4);1;1)&":W");ПОИСКПОЗ("age_y";Табель!1:1;0)-ПОИСКПОЗ("pernr";Табель!1:1;0)+1;0)

Sub ККК()

lr = Range("A" & Rows.Count).End(xlUp).Row

   fStr = "=ВПР(A2;ДВССЫЛ( Chr(34) & "Табель!" & Chr(34)   & ПСТР(АДРЕС(1;ПОИСКПОЗ( Chr(34) & "pernr" & Chr(34)  ;Табель!1:1;0);4);1;1) &" & chr(34) :W  " & chr(34)  );ПОИСКПОЗ( chr(34) & "age_y" & chr(34)  ;Табель!1:1;0)-ПОИСКПОЗ(chr(34) & "pernr" & chr(34) " ;Табель!1:1;0)+1;0)"

With Range("I2")

       .FormulaLocal = fStr

       .AutoFill Destination:=Range("I2:I" & lr), Type:=xlFillValues

End With

Range("i2:i" & lr).Copy

Range("i2:i" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

End Sub
 
Перейти    
Преобразования строки в столбец
 
#
01.03.2019 15:12:15
добрый день, подскажите пожалуйста, у меня тут. Такая ситуация что после написания формулы АДРЕС у меня конечный ответ получается как D4, но та как мне нужно вставить эту формулы в другую то такое значение не подходит и мне нужно через какую-то ещё формулу сделать так что бы ответ получился просто D.
Оч срочно подскажите пожалуйста!
 
Перейти    
Перевести число на букву в алфавите
 
#
28.02.2019 12:43:12
Добрый день, подскажите пожалуйста, как можно перевести цифру на алфавитную букву.
например 5 это Е и так далее.
 
Перейти    
Создание макроса по поочерёдному копированию данных по табельному номеру
 
#
25.02.2019 17:07:16
Доброго времени суток, подскажите пожалуйста, мне нужно написать макрос, который должен из одного листа брать табельный номер, переместиться на другой лист и в столбце F найти этот самый табельный номер, потом сместиться на 2 ячейки вправо скопировать значение обратно вернуться на исходный лист и вставить его в ячейку E и так до самого конца пока в столбце не закончатся табельные номера.
заранее спасибо!
 
Перейти    
Страницы: 1
Наверх