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

Страницы: 1
Макрос для копирования заданных значений на другой лист
 
#
19.06.2013 17:21:33
Цитата
IGGI пишет:
Вот пример)

Для потомков. Вопрос был решен с помощью такого макроса:
Код
Sub архив()
Application.ScreenUpdating = False
    With Sheets("архив")
        lr = .Cells(Rows.Count, 2).End(xlUp).Row
        If .Cells(lr, 2) = Date Then
            Range("B5").Copy .Cells(lr - 1, 2)
            Range("C5").Copy
            .Cells(lr, 2).PasteSpecial Paste:=xlPasteValues
            .Cells(lr, 2).PasteSpecial Paste:=xlPasteFormats
            Range("J13:N13").Copy .Cells(lr - 1, 3)
            Range("C13:C17").Copy
            .Cells(lr, 3).PasteSpecial Transpose:=True
        Else
            Range("B5").Copy .Cells(lr + 2, 2)
            Range("C5").Copy
            .Cells(lr + 3, 2).PasteSpecial Paste:=xlPasteValues 'специальная вставка значения
            .Cells(lr + 3, 2).PasteSpecial Paste:=xlPasteFormats 'специальная вставка форматы
            Range("J13:N13").Copy .Cells(lr + 2, 3)
            Range("C13:C17").Copy
            .Cells(lr + 3, 3).PasteSpecial Transpose:=True
        End If
    End With
Application.ScreenUpdating = True
End Sub
Спасибо!
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
16.06.2013 16:31:43
Вот пример)
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
16.06.2013 16:30:24
Цитата
KuklP пишет:
Есть чего сказать. Но не для халявщиков. Тем более не для грубиянов-халявщиков. Персонально для Вас, IGGI,  - форум не стол халявных заказов. Для заказов есть ветка "Работа":
)) Экий Вы, ранимый безнесмен.. Покажите мне грубость в моем посте и если она там есть, я извинюсь.
А вот лично Вас, я не прошу не о помощи, не  о разъяснениях о том, что из себя представляет данный форум. Тут присутствуют люди, которые готовы помочь, не потрясая ящиком для благодарностей.  Более пожалуйста не утруждайтесь, я и так потратил на Вас много времени.
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
16.06.2013 15:50:36
Да нет, не показывал. Мне сходу предложили вариант который полностью меня устроил. А дополнительная, второстепенная задача, возникла позже. Тут я извиняюсь, пример сделаю.
Цитата
KuklP пишет:
Вот поэтому Вам и порекомендовали во 2-м посте перенести тему туда, где ей самое место.
Уважаемый, KukIP! Я так понимаю рекомендовали не Вы, Вы не модератор и по существу вопроса Вам сказать нечего. Во втором посте модератором было сказано "или ждите здесь". Так что не стоит засорять ветку, своими умными замечаниями, я разберусь без Вас.
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
16.06.2013 14:52:47
Kolbasiatka, в моем случае все таки не получилось) В смысле у меня данные не в одной строке, а в разных. Как только в этой строке Else: Range("A2, C2, E2" ;) .Copy .Cells(lr + 2, 1) появляются данные из разных строк, выдает ошибку. Например вот так: Else: Range("A2, C2, E3" ;) .Copy .Cells(lr + 2, 1) уже не получается. Нельзя ли написать макрос, в кот. я смогу подставлять данные из множества ячеек на листе из разных строк и столбцов?
Спасибо.
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
16.06.2013 10:09:33
Да, это то, что нужно!) Спасибо Вам большое, все получилось!
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
15.06.2013 14:21:19
kalbasiatka, Вы не могли бы подсказать, что нужно добавить, что бы на другую страницу переносились не только значения исходных ячеек, но и форматирование (фон ячейки, границы, шрифт и т.п)?
А так все получилось, очень рад Вашей помощи  :)
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
15.06.2013 08:44:10
Kalbasiatka, спасибо Вам огромное!!! Так быстро..) Это очень похоже на то что мне нужно. Буду пробовать адаптировать для своих данных)
 
Перейти    
Макрос для копирования заданных значений на другой лист
 
#
14.06.2013 22:35:02
Добрый день!
У меня такая задача. На листе А есть таблица с данными. Мне нужно данные из заранее известных ячеек таблицы, по нажатию кнопки, скопировать на лист В, при этом, при нажатии на кнопку еще раз в этот же день, данные должны переноситься в тоже самое место (или больше не переноситься), а в другой день, через строку от нижней заполненной ячейки. Т.е. данные на листе В не должны затираться, а каждое последующее копирование должно располагаться на две строчки ниже.
Простыми словами, есть дневная статистика на листе А, ее нужно архивировать по нажатию кнопки, на лист В, с текущей датой. От одной и той же даты, данные на листе А, не могут быть разные, поэтому переносить их можно или один раз в день или просто записывать их в те же самые  ячейки на листе В. В след. день, данные будут другие, их нужно расположить на листе В через строчку ниже, от предыдущих.
Буду очень рад Вашей помощи. Оговорюсь, в VBA знаний почти нет.
Спасибо.
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 20:48:14
Спасибо, мысль понял, но в vba не силен. Вы не могли бы дать полностью код, который поможет решить мою задачу, с пометкой где нужно указать диапазон строк, где меняются данные.  
Буду оч. признателен.    
В любом случае, спасибо!
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 20:21:39
Так, я попробую подробнее. Есть шапка, состоящая из 10 строк. Там вводятся данные. Есть еще 20 строк с формулами, которые опираются на значения первых 10 строк. Есть другой лист, который через формулу равно ячейка отображает у себя те вторые 20 строк, где формулы.    
Нужно что бы если результат вычисления формул на первом листе, равен " " или 0, на втором листе, эти данные не отображались, а пропускались до первой строки с не нулевым значением. Т.е. столбец на первом листе со значениями 1;2;0;" ";1;3 Выглядел на втором листе как 1;2;1;3 Вот, надеюсь теперь полностью и понятно) Спасибо, что пытаетесь мне помочь.
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 20:04:18
Изменения могут быть только результатом вычисления формул, которые ссылаются на определенные значения. Ничего руками не меняется. Значения поменялись, формулы пересчитали, результат в ячейках изменился. И соотв. нужно что бы автоматически были скрыты ячейки, где нулевые значения. Или я Вас не верно понял?
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 19:42:31
Я где-то нарыл формулу вот такого вида: ИНДЕКС($B$1:$B$1000;НАИМЕНЬШИЙ(ЕСЛИ($B$1:$B$1000="";6600;СТРОКА($B$1:$B$1000));СТРОКА());1) но не могу понять, почему она на одном листе отлично работает, на другом выдает ошибку #ЧИСЛО! Вернее, я не понимаю, почему она вообще работает, если функция НАИМЕНЬШИЙ работает только с массивами. В общем запутался. Мне подойдет и vba, но тут был предложен вариант с Worksheet_Calculate()    
, а хотелось бы действительно только при изменениях, а не при каждом пересчете.
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 19:32:49
Попробую объяснить задачу. Мне нужно отображать информацию с другого листа, на котором много формул. Но отображать только те ячейки, где есть визуальные значения (хотя внутри ячейки могут быть формулы). Визуальные значения, это те, где результатом вычисления формулы является не пробел и не ноль.
 
Перейти    
Скрыть/Отобразить "пустые" строки. VBA
 
#
06.09.2012 19:10:53
{quote}{login=Serge 007}{date=17.08.2010 12:03}{thema=}{post}А без Worksheet_Calculate() нельзя обойтись?  
Чтоб только при изменениях, а не при каждом пересчёте?{/post}{/quote}  
 
Скажите пожалуйста, удалось решить проблему с отображением только тех строк, в которых выводится визуальная информация, с учетом вышеозвученного Serge 007?
 
Перейти    
Страницы: 1
Наверх