Перенос данных с одного листа на другой в Excel

@vla-dos · Регистрация: 22.10.2010

Author24 — интернет-сервис помощи студентам

На первом листе есть данные. При активации следующих листов проверить наличие данных в этих листах. Если данных на листе нет, то скопировать их с предыдущего листа. Притом, при выполнении макроса, данные должны копироваться с одного листа на другой не автоматически, а при ручном выборе листов.
Помогите пожалуйста.

@Catstail · 04.01.2013, 18:29

Покажи, как выглядят данные на листах

@vla-dos · 04.01.2013, 19:04 **[ТС]**

вот так например

@Watcher_1 · 04.01.2013, 19:20

Держите

Visual Basic

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Cells.Text = "" And Sh.Index > 1 Then
        If MsgBox("Скопировать данные из предыдущего листа?", vbYesNo) = vbYes Then
            Sheets(Sh.Index - 1).Cells.Copy Destination:=Sh.[A1]
        End If
    End If
End Sub

@vla-dos · 04.01.2013, 21:23 **[ТС]**

Макрос копирует с 1 листа на 2, со 2 на 3 и так далее. Но после того, как он скопировал с 1 листа на 2, чтобы он скопировал со 2 на 3, передаваемый в макрос параметр нужно менять. Как можно сделать так, чтобы этого делать не нужно было? И еще один момент: как сделать так, чтобы при нажатии вкладки вставить лист, в этот созданный лист данные тоже передавались?

@Watcher_1 · 04.01.2013, 23:16

Сообщение от vla-dos

Но после того, как он скопировал с 1 листа на 2, чтобы он скопировал со 2 на 3, передаваемый в макрос параметр нужно менять.

Сейчас он так и делает

Сообщение от vla-dos

Как можно сделать так, чтобы этого делать не нужно было?

Т.е. чтобы он брал данные только с первого листа? Тогда так...

Visual Basic

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Cells.Text = "" And Sh.Index > 1 Then
        If MsgBox("Скопировать данные из предыдущего листа?", vbYesNo) = vbYes Then
            Sheets(1).Cells.Copy Destination:=Sh.[A1]
        End If
    End If
End Sub

Сообщение от vla-dos

И еще один момент: как сделать так, чтобы при нажатии вкладки вставить лист, в этот созданный лист данные тоже передавались?

Visual Basic

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    If MsgBox("Скопировать данные из предыдущего листа?", vbYesNo) = vbYes Then
           Sheets(Sh.Index - 1).Cells.Copy Destination:=Sh.[A1]
    End If
End Sub

@vla-dos · 04.01.2013, 23:39 **[ТС]**

Нет, сделать так, чтобы менять параметр в коде не нужно было, то есть макрос во время выполнения может переносить с 1 на 2, со 2 на 3, с 3 на 4 и так далее.

@Watcher_1 · 05.01.2013, 00:35

Чот я вас не понял!
Ну так в первом моем примере он так и делает.
Т.е. при активации листа (при ручном выборе) он проверяет есть ли на нем данные, если их нет, то он копирует их из предыдущего

@vla-dos · 05.01.2013, 16:26 **[ТС]**

Как сделать так, чтобы он за одно выполнение мог сделать больше одного переноса (то есть он мог перенести с Лист1 на Лист2, с Лист2 на Лист3, с Лист3 на Лист4 и т.д.)

@Watcher_1 · 05.01.2013, 17:34

Visual Basic

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Cells.Text = "" And Sh.Index > 1 Then
        If MsgBox("Скопировать данные из предыдущего листа?", vbYesNo) = vbYes Then
            Application.EnableEvents = False
            For i = Sh.Index To Sheets.Count
                Sheets(i - 1).Cells.Copy Destination:=Sheets(i).[A1]
            Next
            Application.EnableEvents = True
        End If
    End If
End Sub

@vadi61 · 25.05.2013, 13:58

ув. Watcher_1

Ваш первый макрос подходит так же и для моей задачи. Но мне нужны 2 дополнения (сам я пробовал - не получилось)
1. Нужно, что бы копировалась не ячейка целиком, а только текст из соответствующей ячейки предыдущего листа, так как форматирование у каждого листа своё (цвет фона, ширина столбца и т. д.).
2. В Destination-листе (в листе на который копируются данные) кое-какие ячейки уже заполнены (содержат либо текст, либо формулу). Нужно эти ячейки пропускать (их содержимое не должно затереться).

Такое осуществимо?

Добавлено через 1 час 27 минут
Вот что-то написал:

Visual Basic

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim c As Integer, r As Integer
    If Sh.Index > 1 Then
        If MsgBox("Скопировать?", vbYesNo) = vbYes Then
            For c = 1 To 11
                For r = 1 To 20
                    If Cells(r, c).Value = "" Then
                        Sheets(Sh.Index).Cells(r, c).Value = Sheets(Sh.Index - 1).Cells(r, c).Value
                    End If
                Next
             Next
        End If
    End If
End Sub

Вроде работает

@vla-dos 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 10
		1
	Перенос данных с одного листа на другой в Excel 04.01.2013, 15:26. Показов 20607. Ответов 10 Метки нет (Все метки) На первом листе есть данные. При активации следующих листов проверить наличие данных в этих листах. Если данных на листе нет, то скопировать их с предыдущего листа. Притом, при выполнении макроса, данные должны копироваться с одного листа на другой не автоматически, а при ручном выборе листов. Помогите пожалуйста. 0

@Catstail Модератор 36578 / 20308 / 4218 Регистрация: 12.02.2012 Сообщений: 33,607 Записей в блоге: 13
	04.01.2013, 18:29	2
	Покажи, как выглядят данные на листах 0

@vla-dos 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 10
	04.01.2013, 21:23 [ТС]	5
	Макрос копирует с 1 листа на 2, со 2 на 3 и так далее. Но после того, как он скопировал с 1 листа на 2, чтобы он скопировал со 2 на 3, передаваемый в макрос параметр нужно менять. Как можно сделать так, чтобы этого делать не нужно было? И еще один момент: как сделать так, чтобы при нажатии вкладки вставить лист, в этот созданный лист данные тоже передавались? 0

@vla-dos 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 10
	04.01.2013, 23:39 [ТС]	7
	Нет, сделать так, чтобы менять параметр в коде не нужно было, то есть макрос во время выполнения может переносить с 1 на 2, со 2 на 3, с 3 на 4 и так далее. 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	05.01.2013, 00:35	8
	Чот я вас не понял! Ну так в первом моем примере он так и делает. Т.е. при активации листа (при ручном выборе) он проверяет есть ли на нем данные, если их нет, то он копирует их из предыдущего 0

@vla-dos 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 10
	05.01.2013, 16:26 [ТС]	9
	Как сделать так, чтобы он за одно выполнение мог сделать больше одного переноса (то есть он мог перенести с Лист1 на Лист2, с Лист2 на Лист3, с Лист3 на Лист4 и т.д.) 0

	25.05.2013, 13:58

Опции темы