Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 17.12.2013, 14:03   #1
FiataliS
Пользователь
 
Регистрация: 11.12.2013
Сообщений: 56
Восклицание копирование ячеек на лист 2 и по условию копирование строки в буфер

Здравствуйте.
Есть такая проблема:
Лист1 и Лист2
На первом листе в строках вписываю данные нужно, чтоб данные копировались после завершения записи на лист 2 той же ячейки (Дублировались) И так должно работать со столбца B по столбец G каждой строки.

По завершению запись последней ячейки в G столбце данные также дублируются на лист2, а так же последующие после него ячейки столбцов H и i (Это все должно работать отдельно для каждой строки).
После того как они скопировались нужно чтобы диапазон строки из листа2 от B до М копировался в буфер, и можно было производить с ним дальнейшие манипуляции.
Может можно как то это реализовать не по условию, а по нажатию кнопки?

Это если говорить простым языком, а на самом деле нужно чтобы копирование производило не в аналогичные ячейки а в конкретные, а именно:
лист1 лист2
B на B
D на С
H на D
i на Е
С на F
E на М

И диапазон от B до М копировался в буфер.
В данный момент все работает на формулах =если""""" и макросом копирования значения через кнопку, что не очень подходит для упрощения процедуры.

Спасибо за помощь.
Знаю как, не знаю что и с чем.

Последний раз редактировалось FiataliS; 17.12.2013 в 14:28.
FiataliS вне форума Ответить с цитированием
Старый 17.12.2013, 21:51   #2
kalbasiatka
Форумчанин
 
Регистрация: 21.10.2012
Сообщений: 208
По умолчанию

Цитата:
Сообщение от FiataliS Посмотреть сообщение
Может можно как то это реализовать не по условию, а по нажатию кнопки?
В данный момент все работает на формулах =если""""" и макросом копирования значения через кнопку, что не очень подходит для упрощения процедуры.Спасибо за помощь.
Надо такая кнопка, чтобы не кнопка, а кнопка.
Файлик с примером "если""""""" покажите.
kalbasiatka вне форума Ответить с цитированием
Старый 18.12.2013, 06:36   #3
FiataliS
Пользователь
 
Регистрация: 11.12.2013
Сообщений: 56
Радость

Цитата:
Сообщение от kalbasiatka Посмотреть сообщение
Надо такая кнопка, чтобы не кнопка, а кнопка.
Файлик с примером "если""""""" покажите.

Пжлст фаил на 2 архива поделен.
Вложения
Тип файла: rar разработка.part01.rar (300.0 Кб, 7 просмотров)
Тип файла: rar разработка.part02.rar (230.4 Кб, 5 просмотров)
Знаю как, не знаю что и с чем.
FiataliS вне форума Ответить с цитированием
Старый 18.12.2013, 06:45   #4
FiataliS
Пользователь
 
Регистрация: 11.12.2013
Сообщений: 56
Смущение

Цитата:
Сообщение от FiataliS Посмотреть сообщение
Пжлст фаил на 2 архива поделен.
Простите ошибочка небольшая в документе.

Вот тут все исправил.
Вложения
Тип файла: rar разработка.part01.rar (300.0 Кб, 17 просмотров)
Тип файла: rar разработка.part02.rar (229.2 Кб, 18 просмотров)
Знаю как, не знаю что и с чем.
FiataliS вне форума Ответить с цитированием
Старый 20.12.2013, 10:10   #5
FiataliS
Пользователь
 
Регистрация: 11.12.2013
Сообщений: 56
Хорошо

Цитата:
Сообщение от FiataliS Посмотреть сообщение
Простите ошибочка небольшая в документе.

Вот тут все исправил.
Уже все, сам во всем разобрался и реализовал.
Знаю как, не знаю что и с чем.
FiataliS вне форума Ответить с цитированием
Старый 10.05.2020, 20:51   #6
RoDaMa
Пользователь
 
Регистрация: 16.03.2020
Сообщений: 19
По умолчанию

Цитата:
Сообщение от FiataliS Посмотреть сообщение
ист1 и Лист2
На первом листе в строках вписываю данные нужно, чтоб данные копировались после завершения записи на лист 2 той же ячейки (Дублировались) И так должно работать со столбца B по столбец G каждой строки.
FiataliS день добрый
как решили данную задачу?
у меня примерно так же:
в таблице сначало по колонке D, если значение на ячейках меньше 1 то всю эту строку надо скопировать на новый лист
после скопирование надо на новом листе после написат "теперь F"
потом колонку F по условию - если больше 0,98 то скопировать на ранее созданный лис но после строки "теперь F"
G
H
....
и так далее

пример таблицы во вложении
Спасибо, всего вам наилучшего.
Вложения
Тип файла: xlsx TABLE.copyIfThen.xlsx (15.2 Кб, 2 просмотров)
RoDaMa вне форума Ответить с цитированием
Старый 11.05.2020, 00:08   #7
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,095
По умолчанию

Спрашивать в шестилетней теме, Карл?

Код:
Sub Macro6()
    Dim col_count As Integer
    Dim last_row As Integer
    Dim col_index As Integer
    Dim my_criteria As String
    col_count = 5
    For col_index = 1 To col_count
        last_row = Sheets("Лист3").Range("A35000").End(xlUp).Row + 2
        If ActiveSheet.AutoFilterMode = True Then
            ActiveSheet.AutoFilter.Sort.SortFields.Clear
            If ActiveSheet.FilterMode = True Then
                ActiveSheet.ShowAllData
            End If
        Else
            Range("Таблица1").AutoFilter
        End If
        If col_index = 1 Then my_criteria = "<1" Else my_criteria = ">1"
        Range("Таблица1").AutoFilter Field:=col_index + 3, Criteria1:=my_criteria
        Range("Таблица1").SpecialCells(xlCellTypeVisible).Copy Sheets("Лист3").Range("A1").Offset(last_row)
    Next col_index
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 11.05.2020, 18:19   #8
RoDaMa
Пользователь
 
Регистрация: 16.03.2020
Сообщений: 19
По умолчанию

QUOTE=Aleksandr H.;1814555]Спрашивать в шестилетней теме, Карл?
QUOTE

Спасибо большое
RoDaMa вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 Людвиг Microsoft Office Excel 5 25.10.2014 10:46
Копирование ячеек с листа на лист Sleg777 Microsoft Office Excel 2 21.08.2013 14:42
Копирование из непрерывного диапозона ячеек по условию. Nicolas_46 Microsoft Office Excel 4 08.08.2013 16:23
копирование строк, соответствующих условию фильтра и копирование на новый лист xorek Microsoft Office Excel 0 09.07.2012 17:13
Отбор данных по условию и копирование на новый лист Эдик12 Microsoft Office Excel 4 03.03.2010 23:16


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS