Micro-Solution

2.9 • 2 отзыва

Расположение

Москва, Старокалужское шоссе, 62 ст1

Компании

Управленческий консалтинг Автоматизация бизнес-процессов

Услуги

Аудиторские компании

Телефон
+7 (495) 131-40 ...- показать

Адрес
Москва, Старокалужское шоссе, 62 ст1

Метро
Воронцовская Калужская

Время работы
Пн-пт: 09:00—19:00

Компания в сети
http://micro-solution.ru

ВКонтакте
https://vk.com/vbaexcel

Вы владелец?

Отзывы о Micro-Solution

2.9 • 2 отзыва

Екатерина Сергеева 2020-06-13

Всем добрый вечер.
Необходимо автоматически переводить текст в экселе, но надстройка отказывается переводить. Там же указано, что нужно получить апи ключ яндекса, но яндекс, в свою очередь, перестал раздавать бесплатные ключи для своего переводчика:(
Подскажите пожалуйста, есть ли какое-нибудь решение на сегодняшний день в сложившейся ситуации?
Заранее благодарю.

Оксана Смирнова 2020-06-01

Добрый день! В интернете нашла макрос по сбору всех листов в одну книгу. Он работает, меня всё устраивает. Но есть одно но, если на листе в ячейке А1 нет данных, но данные есть в других ячейках строки 1 и ниже в ячейках по столбцу А тоже есть данные, макрос почему-то этот лист не копирует, пропускает… Подскажите, в какой из команд надо изменить условие:
Sub sborka()
s_ = Sheets.Count
Workbooks.Add
ThisWorkbook.Sheets(1).Range(«1:1»).Copy ActiveWorkbook.Sheets(1).Range(«a1»)
For i = 1 To s_
r_= ActiveWorkbook.Sheets(1).Range(«a» & Rows.Count).End(xlUp).Row + 1
ThisWorkbook.Sheets(i).Range(«a1»).CurrentRegion.Offset(2).Copy ActiveWorkbook.Sheets(1).Range(«a» & r_)
Next
End Sub