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

Страницы: 1
копирование данных их одной книги в другую
 
#
12.03.2015 19:49:30
Спасибо, gling!
В моём случае лишь изменил порядок WB. Низкий поклон Вам и Юрию!:) Тема закрыта.
Код
   Wb.Sheets("Лист1").Range("A1:P100").Copy Wb2.Sheets("Лист1").Range("A1:P100")
 
Перейти    
копирование данных их одной книги в другую
 
#
12.03.2015 02:12:49
Уважаемый gling! Всё достигнуто,так и нужно!
Спасибо Казанский и Kuzmich!
Я тоже в копилочку Ваши советы заберу:)
Тема закрыта.

Если позволите Уважаемый gling...последний вопрос...
Если всё-таки нужно скопировать не только значения,но значения и форматы (заливку,выделенный шрифт) ячеек, которые есть в файле образец.xls.
Как изменить строчку в Вашем коде(выше)?
Код
Wb2.Sheets("Лист1").Range("A1:P100").Value = Wb.Sheets("Лист1").Range("A1:P100").Value

Спасибо за ответ.
Удачи всем!
Изменено: suvorovdim - 12.03.2015 03:00:11
 
Перейти    
копирование данных их одной книги в другую
 
#
12.03.2015 00:59:11
В указанной папке может быть несколько файлов. Они там "откладываются" с других разОв:)
Уважаемый gling!
Посмотрел Ваш вариант. Спасибо! Разбираюсь:)
 
Перейти    
копирование данных их одной книги в другую
 
#
12.03.2015 00:39:13
Это я понял, Kuzmich:) А как указать конкретную папку?
 
Перейти    
копирование данных их одной книги в другую
 
#
12.03.2015 00:24:21
Спасибо! Да,всё работает. Виноват, сам не разобрался...

А где нужно изменить,чтобы использовать функцию в моём файле?
И где изменить,чтобы открывался нужный каталог для выбора файла?
Например,как у меня на диске С папка "Отложено".
Спасибо за ответы!

С уважением,
Суворов
 
Перейти    
копирование данных их одной книги в другую
 
#
11.03.2015 23:50:41
Спасибо, Уважаемый Kuzmich!:)
Простите за комментарий.
Выскакивает диалоговое окно с выбором файла,которое уже есть и в моём коде.
В моём файле есть функция (GetFileName). И макрос choise_dir  файл образец.xls открывает.
Дальше в Вашем случае никаких копирований диапазонов не происходит..
Изменено: suvorovdim - 11.03.2015 23:54:10
 
Перейти    
копирование данных их одной книги в другую
 
#
11.03.2015 21:15:55
Здравствуйте, Уважаемые Специалисты!
Поскольку топик уплыл на вторую страничку форума позволил себе напомнить о моём вопросе выше.
Помогите, пожалуйста.

С уважением,
Суворов
 
Перейти    
копирование данных их одной книги в другую
 
#
11.03.2015 02:03:46
Создайте на диске С папку Отложено.
Поместите туда файл образец.xls
Откройте файл рабочая.xls.
Активируйте кнопку OPEN.

В книгу рабочая.xls на Лист1 и Лист2 должны скопироваться данные(только значения!) из Листа1 и Листа2 книги образец.xls
Диапазоны копирования и вставки одинаковы.
После копирования файл образец.xls нужно закрыть.
Код можно вписать в имеющийся макрос open_me.


Небольшая корректировка. Название файла в папке"Отложено" может быть любое.


Спасибо большое за помощь!
Изменено: suvorovdim - 11.03.2015 21:28:29
 
Перейти    
копирование данных их одной книги в другую
 
#
11.03.2015 01:09:58
Спасибо Вам, Уважаемый Казанский!

Простите,что некорректно поставил условие...С каждого листа нужно взять несколько определённых диапазонов
и вставить их в книгу РАБОЧАЯ в теже листы в теже диапазоны только значениями.

Например..с книги образец "Лист1"-например, B1:C46;I50:M150 и так далее
в книгу РАБОЧАЯ "Лист 1" в диапазоны
B1:C46;I50:M150 и так далее

Ещё раз простите за неточность.
 
Перейти    
копирование данных их одной книги в другую
 
#
10.03.2015 22:41:57
Здравствуйте,Уважаемые Специалисты!

Искал по форуму но не нашёл. Возможно,это частый вопрос.
Если есть аналог - отправьте в топик нужный:)
Подскажите,пожалуйста.

Есть книга *например "образец.xls" с данными на разных листах
"Лист1","Лист2",Лист3"
И аналогичная книга РАБОЧАЯ.xls с листами
"Лист1","Лист2",Лист3"

Нужно данные из книги листов образец.xls (заполненные диапазоны) разнести на листы в книгу РАБОЧАЯ.xls
Если она НЕ открыта,то её нужно открыть. Немножко запутался в присвоении Wb и Wb2 для открытой и текущей книги.
По сути получается так:
1)Зашли в книгу Образец,зашли на "Лист1" скопировали диапазон
открыли книгу(если она открыта просто зашли) РАБОЧАЯ.xls зашли на "Лист1" - вставили данные.
2)Снова зашли в книгу Образец,на "Лист2" скопировали диапазон
зашли в книгу РАБОЧАЯ.xls на "Лист2" - вставили данные.
и так далее.
Надеюсь,что объяснил. Если создавать пример - то их будет два.

Спасибо большое за помощь.
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 23:35:46
Второй вариант тоже работает,Игорь! Низкий поклон всем вам,Уважаемые Специалисты!:)
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 23:11:06
Игорь,спасибо! :)  Вот уж не думал,что так лажанусь :)  Действительно русская буква вкралась.
Всё работает,Игорь и vikttur!
Сейчас второй Ваш попробую.
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 22:02:12
Если выбирается значение "да" - можно вводить дополнительные данные в соседние ячейки.
У меня ошибку выдаёт,на первую строчку ругается...

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("М10:М58")) Is Nothing Then
        If Target.Value = "да" Then
            Columns("N:O").EntireColumn.Hidden = True
        Else
            Columns("N:O").EntireColumn.Hidden = False
        End If
    End If
        If Not Intersect(Target, Range("Q10:Q58")) Is Nothing Then
        If Target.Value = "нет" Then
            Columns("S:S").EntireColumn.Hidden = True '
        Else
            Columns("S:S").EntireColumn.Hidden = False '
        End If
    End If
         If Not Intersect(Target, Range("T10:T58")) Is Nothing Then
        If Target.Value = "да" Then
            Columns("U:U").EntireColumn.Hidden = True 
        Else
            Columns("U:U").EntireColumn.Hidden = False
        End If
    End If
End Sub
Где ошибка,не понять...
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 21:33:26
Вопрос такой,простите..Понимаю,что Вы вправе не отвечать,так как на основной вопрос ответили... Каким образом можно поступить,если диапазонов с комбобоксами "да-нет" несколько, и скрывать-отображать следует несколько разных диапазонов? В моём случае есть макросы,которые отвечают за это.Но макрос должен возвращать в активную ячейку,комбобокс.
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 21:15:16
Огромное спасибо,vikttur!
А я мучался пробовал вычислять адрес активной ячейки,его копировать значением и оттуда искать ячейку через переход Ctrl +G :D  Низкий поклон Вам за помощь!
 
Перейти    
Возвращение в активную ячейку после работы макроса
 
#
31.01.2014 20:55:10
Здравствуйте,Уважаемые Специалисты!  :)  
Прошу Вашей помощи.
На листе в диапазоне работают несколько комбобоксов,созданных при помощи проверки данных.
В списке два значения - да и нет.
По выбору значения "да" - столбцы I и J скрываются. По выбору "нет" - отображаются.
Сейчас после выбора в комбобоксе значения "Да" или нет" макрос делает активной ячейку G3.

Вопрос. Очень важно,чтобы после отработки макроса активной бы оставалась ячейка именно там где происходит выбор значений "да" или "нет". То есть ячейка с  комбобоксом.

Пример прилагаю.
Спасибо заранее за помощь.

С уважением,
Дима
Изменено: suvorovdim - 31.01.2014 21:05:55
 
Перейти    
скрыть столбцы без значений в выделенных строках
 
#
09.12.2013 14:53:28
Дмитрий - у меня нет экзеля 2007,к сожалению.
Нужен именно вариант с выделением ячеек.
Код Игоря работает:
Код
Sub tt()
 Dim kol As Range
 For Each kol In Intersect(ActiveSheet.UsedRange, Selection).Columns
 If Application.CountA(kol) = 0 Then kol.EntireColumn.Hidden = True
 Next
End Sub
Спасибо! Вопрос решён.
Изменено: suvorovdim - 16.12.2013 01:59:53
 
Перейти    
скрыть столбцы без значений в выделенных строках
 
#
09.12.2013 13:37:43
Дмитрий,спасибо за вариант!Здравствуйте!
В моём случае возможны как и единичные товары,так и группы товаров.
И они могут быть как от одного поставщика,так и от нескольких.
Именно вариант с выделением строк важен.
 
Перейти    
скрыть столбцы без значений в выделенных строках
 
#
09.12.2013 13:28:45
Здравствуйте,Игорь! Спасибо за ответ.
Имеется в виду,что данных в моём случае не дальше столбца J.
Нет,думаю, смысла перебирать все 256 столбцов.
 
Перейти    
скрыть столбцы без значений в выделенных строках
 
#
09.12.2013 13:10:58
Здравствуйте, Уважаемые Специалисты!
На листе много данных: в столбцах - их более 50 и строчках(их более 500).
Иногда возникает необходимость выборочно проверить данные в одной (или нескольких) строках.
Поискал по форуму,ответов не нашёл.

Вопрос: подскажите,пожалуйста код, чтобы в выделенных строках автоматически скрывал столбцы без значений.
Или как вариант - отображал бы столбцы содержащие(например) цифру "1".

*добавил: скрывать столбцы нужно не все листе ,а в выборочном диапазоне.
В моём случае - B:J.

Огромное спасибо Вам за решение.

С уважением,
Дмитрий
Изменено: suvorovdim - 09.12.2013 13:14:01
 
Перейти    
из зависимого списка в userform отобразить значение в textbox
 
#
05.12.2013 19:50:53
Огромное спасибо Вам  Sanja! Вопрос решён.
 
Перейти    
из зависимого списка в userform отобразить значение в textbox
 
#
05.12.2013 19:29:52
Здравствуйте,Александр! Спасибо!
Что-то не так. Путаются артикулы.

Из комбобокс в активную ячейку вставляются только названия.
Артикулы - для информации выдаются в textbox.
Работаем с UserForm1. Но за вариант с формулами на листе - спасибо!
Изменено: suvorovdim - 05.12.2013 20:00:31
 
Перейти    
из зависимого списка в userform отобразить значение в textbox
 
#
05.12.2013 19:14:01
Здравствуйте,Sanja! Спасибо за вариант!
А если список добавляется и в нём около полусотни значений?
 
Перейти    
из зависимого списка в userform отобразить значение в textbox
 
#
05.12.2013 19:00:38
Здравствуйте, Уважаемые Специалисты!
Лазаю по поиску и ничего не нахожу.
Вопрос для "первого класса",конечно.
Имеется список, каждому значению которому соответствует значение рядом в столбце.- см.Лист2
Задача - отобразить в textbox зависимое от списка значение.

Пример прилагаю.
Огромное Вам спасибо за помощь!
 
Перейти    
скрытие столбцов по значению 0 в ячейке
 
#
25.11.2013 01:06:18
Спасибо Вам  Ronin751!  :)   Низкий поклон!
Отключил обновление экрана и всё как часики.
Для меня в итоге стало удобным всё-таки сделать отдельный Sub.
Повесил на кнопочку. И ещё одну кнопочку(на всякий) на "отобразить".

В моём случае у меня 100 строк и 53 столбца.
Результат каждой ячейки в этом диапазоне получается путём умножения параметра на выборку ВПР.
Итоговая сумма каждого столбца и является показателем наличия во всём столбце данных.

Конечно,удобнее было вынести всё на отдельный лист и применить пример от Сергея(см.post ниже).
Но у меня на листе данные не статичные и мне удобнее видеть их изменения сразу.
Ещё раз огромное спасибо всем и Вам, Ronin751 лично.  :)
Вопрос закрыт.
 
Перейти    
скрытие столбцов по значению 0 в ячейке
 
#
24.11.2013 19:31:39
Здравствуйте,Ronin751! :)

Суть кода в том,чтобы при наличии нуля в строке 3 скрывать столбцы,а при наличии значения(не нуля) - отображать.
Вот файл Юрия,который подчёркивает,что нужно сделать с одной ячейкой.
Изменено: suvorovdim - 24.11.2013 19:32:19
 
Перейти    
скрытие столбцов по значению 0 в ячейке
 
#
24.11.2013 19:09:10
Здравствуйте,Всё просто! Спасибо Вам за ответ!

пишет ошибку...
 
Перейти    
скрытие столбцов по значению 0 в ячейке
 
#
24.11.2013 18:48:37
Здравствуйте,Уважаемые Специалисты!
В этой теме Юрий подсказал как можно скрыть один столбец по условию нахождения в ячейке значения 0.
в исходном коде листа это так:
Код
Private Sub Worksheet_Calculate()
 If [A1] = 0 Then
 Columns(1).EntireColumn.Hidden = True
 Else
 Columns(1).EntireColumn.Hidden = False
 End If
End Sub
У меня иная задача.
В моём примере важно скрыть несколько столбцов, если в определённой строке (3)находятся итоговые суммы со значением 0.
Задание - в файле.
Читал многие ветки форумов, но не нашёл оптимального решения.
Огромное Вам спасибо за помощь!
Изменено: suvorovdim - 24.11.2013 19:03:19
 
Перейти    
Страницы: 1
Наверх