Ошибка в коде для Excel. Копирование строк на лист по критериям

@olga_eg · Регистрация: 15.06.2020

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

Уважаемые, форумчане! Помогите, пожалуйста, совершенно не знающему человеку. Нашла на форуме примерно то что нужно, но довести до ума не получается...
У меня задача такая: из листа "2020" перенести строки на лист "Май", если в столбце Е (гип) = Барашков и если в столбце AD (чистое май) <>0;
остальные строки никуда копировать не нужно, только те, что подпадают под критерии;
и если возможно, то копировать строку не целиком, а только столбцы A,b,c,E и AD

@olga_eg · 15.06.2020, 23:15 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit         
Option Compare Text     
 
Sub Июнь()
     Const FirstRow& = 3 ' 
    Dim i&, j&, LastRow&, LastRowTarget&, ShName, Sh_Target As Worksheet, Prefix$, FormulaRC$, A
    Application.ScreenUpdating = False ' 
    For Each ShName In Array(Лист10) ' 
        With Sheets(ShName) 
            LastRowTarget = .Cells(.Rows.Count, "BN").End(xlUp).Row 
            If LastRowTarget < FirstRow Then LastRowTarget = FirstRow  
            .Rows(FirstRow & ":" & LastRowTarget).Clear   
        End With
    Next ShName
    With Лист4 ' 
        LastRow = .Cells(.Rows.Count, "BN").End(xlUp).Row  
        Prefix = "=" & Лист4.Name & "!R" 
        A = .Range(.Cells(1, 1), .Cells(LastRow, 30)).Value 
        For i = FirstRow To LastRow 
            A(i, 5) = Trim(A(i, 5)) 
                        If A(i, 5) = "Барашков" And A(i, 30) <> 0 Then  
                Set Sh_Target = Лист10
                       Else 
                Next i
            End If
            .Range(.Cells(i, 1), .Cells(i, "BR")).Copy  
            FormulaRC = Prefix & Format(i) & "C" 
            With Sh_Target 
                 LastRowTarget = .Cells(.Rows.Count, "W").End(xlUp).Row + 1 
                 If LastRowTarget < FirstRow Then LastRowTarget = FirstRow
                .Cells(LastRowTarget, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
                .Rows(LastRowTarget).RowHeight = Ëèñò4.Rows(i).RowHeight 
                .Range(.Cells(LastRowTarget, 1), .Cells(LastRowTarget, "BR")).FormulaR1C1 = FormulaRC  
            End With
        Next i
    End With
    Set Sh_Target = Nothing 
End Sub

@vedunasv · 16.06.2020, 06:02

olga_eg, сроки есть? Ночью плохо думалось ((((

@olga_eg · 16.06.2020, 16:31 **[ТС]**

Ну несколько дней точно есть. Спасибо, что откликнулись...

@vedunasv · 16.06.2020, 19:21

Теперь осталось за малым-помочь.... А Вы не пропали на неделю-это хорошо.

@vedunasv · 16.06.2020, 22:13

Ответ на вопрос olga_eg от 15.06.2020

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Option Compare Text
Sub olgaVibor()
   Dim fio$                             'объявление ФИО - фамилия имя отчество
   Dim mes$                             'объявление месяц-куда копировать
   Dim s%, stroka%, strokaMes%, stolb%        'объявление счётчик, строка и столбец
   
   mes$ = InputBox("Ввести месяц, куда копировать данные:")
   fio$ = InputBox("Ввести ФИО:")
 
   'mes$ = "Май"
   'fio$ = "барашков"  
 
s% = 1: stroka% = 3: stolb% = 5      'стартовые значения
   strokaMes% = 3
   
   Do
        If Cells(stroka%, stolb%) = fio$ And Cells(stroka%, 30) <> 0 Then
           Sheets(mes$).Cells(strokaMes%, 1) = Cells(stroka%, 1)        'запись в лист <mes$>
           Sheets(mes$).Cells(strokaMes%, 2) = Cells(stroka%, 2)
           Sheets(mes$).Cells(strokaMes%, 3) = Cells(stroka%, 3)
           Sheets(mes$).Cells(strokaMes%, 4) = Cells(stroka%, 4)
           Sheets(mes$).Cells(strokaMes%, 5) = Cells(stroka%, 30)
           strokaMes% = strokaMes% + 1                  'увеличение строки в листе <mes$>
                'Stop
        End If
        
        stroka% = stroka% + 1           'увеличиваем номер строки в листе <2020>
        If Cells(stroka%, 2) = "" Then Exit Do   'если конец БД (пустая ячейка в столбе "В"
   Loop
End Sub

это простенькая программка для пробы.

ПОЯСНЕНИЕ:

1. Проект протестирован.
2. МИНУСЫ - куча.
3. На листе <2020> - добавлена кнопа в виде автофигуры (множество листов в пакете) в ячейке В1-2 для лёгкого старта макроса - нажать на неё, и он выполнится.
4. Функцианально в программе добавлено два вопроса задания месяца (название листа МАЙ, куда копировать) и задания фамилии для поиска (барашков или любой другой)
Думаю, что такой функцианал проги Вам понравится/
Если же нет, то надо сделать следующее: строки 8 и 9
8. mes$ = InputBox("Ввести месяц, куда копировать данные:")
9. fio$ = InputBox("Ввести ФИО:")
поставить апострофы,
а строки 11 и 12
11. 'mes$ = "Май"
12. 'fio$ = "барашков"
убрать апострофы, и тогда будет всегда по умолчанию.

5. Всякое форматирования листа МАЙ, "шапка", всякие другие сервисы - делайте сами или спрашивайте - потому что в задании ничего не сказано про это.
6. код написан максимально коротко, с пояснениями некоторыми, надеюсь, разберётесь...если что, спрашивайте.

ИНСТРУКЦИЯ:

макрос запускается с текущего активного листа <2020>, нажав на кнопку СТАРТ сиренового цвета,
или вызвав на выполнение макрос под названием olgaVibor.
Он находится в MODULES.

прилагается таблица.
план 2019_makros.rar

Пока всё.

Учтите, что у вас в колонке АD всё по нулям задано. Мне пришлось искуственно изменить две ячейки ноль на значения для проверки макроса.

@vedunasv · 16.06.2020, 22:20

Ошибка в коде для Excel. Копирование строк на лист по критериям

@olga_eg · 16.06.2020, 23:10 **[ТС]**

ОГРОМНОЕ спасибо! Да, по форматированию и шапке упустила. вижу теперь... Помогите, пожалуйста, завершить.

форматирование и шапка как в исходном файле

@olga_eg · 18.06.2020, 01:17 **[ТС]**

А как здесь прописать, чтобы данные при повторном выборе этого месяца и этого гипа (на листе куда копируется) сначала чистились, а потом копировались новые? на случай редактирования исходного файла

@vedunasv · 18.06.2020, 06:06

olga_eg, ясно. Добавлю. Сегодня вечером скину и форматирование, и чистку.

@vedunasv · 18.06.2020, 20:46

olga_eg, всё получилось, только флешка осталась на работе ((((

Но если для ускорения, и вы сможете разобраться, то примените три строки

Sheets(mes$).Delete 'удалить лист
Sheets.Add 'добавить лист
Sheets("Лист2").Name = mes$ 'переименовать лист2 на имя из переменной, но здесь может быть 'не лист2, а лист5 - и будет ошибка

после вопросов о названии месяца и ФИО

Но здесь могут возникнуть ошибки, если например, изначально нет листа, и другие подобные нюансы.
А можно очистить через диапазон, но это на флешке.

@olga_eg · 18.06.2020, 23:54 **[ТС]**

Спасибо. Я все-таки подожду Вашу флэшку)
Все-таки нужен диапозон, нужна же шапка таблицы.
У меня в принципе очищать его получается, но видимо я не туда это прописываю, потому что перестает все остальное работать, видимо рабочий лист сбивается, или еще что-то. Я вообще VBA всего несколько дней изучаю для этой цели. Поэтому для меня это почти как темный лес.
Подскажите, пожалуйста, еще такой нюанс: если я файл сохраняю не на исходном листе, почему-то перестает работать, в противном случае - все ок. Может нужно как-то прописать, чтобы при сохранении переход был на этот лист, или при выполнении макроса сначала был этот переход?

Добавлено через 5 минут
Пока я подредактировала так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Option Compare Text
Sub olgaVibor()
   Dim fio$                             'объявление ФИО - фамилия имя отчество
   Dim mes$                             'объявление месяц-куда копировать
   Dim s%, stroka%, strokaMes%, stolb%, stolbMes%        'объявление счётчик, строка и столбец
   
   mes$ = InputBox("Ввести месяц, куда копировать данные:")
   fio$ = InputBox("Ввести ФИО:")
   s% = 1: stroka% = 3: stolb% = 5      'стартовые значения
   strokaMes% = 3
   If mes$ = "май" Then
   stolbMes% = 10
   ElseIf mes$ = "июнь" Then
   stolbMes% = 15
   ElseIf mes$ = "июль" Then
   stolbMes% = 20
   End If
   
   Do
        If Cells(stroka%, stolb%) = fio$ And Cells(stroka%, stolbMes%) <> 0 Then
           Sheets(mes$).Cells(strokaMes%, 1) = Cells(stroka%, 1)        'запись в лист <mes$>
           Sheets(mes$).Cells(strokaMes%, 2) = Cells(stroka%, 2)
           Sheets(mes$).Cells(strokaMes%, 3) = Cells(stroka%, 3)
           Sheets(mes$).Cells(strokaMes%, 4) = Cells(stroka%, 5)
           Sheets(mes$).Cells(strokaMes%, 5) = Cells(stroka%, stolbMes%)
           strokaMes% = strokaMes% + 1                  'увеличение строки в листе <mes$>
                'Stop
        End If
        
        stroka% = stroka% + 1           'увеличиваем номер строки в листе <2020>
        If Cells(stroka%, 2) = "" Then Exit Do   'если конец БД (пустая ячейка в столбе "В"
   Loop
End Sub

@vedunasv · 19.06.2020, 02:32

Я так понимаю, что вы в зависимости от месяца ищите своё "ЧИСТОЕ" = stolbMes%.

Предлагаю сделать предварительную настройку экселя, и Вам станет легче считать колонки - они сами покажут свой номер колонки: в самой таблице (можно на любом листе, но лучше на "2020", чтоб вы привыкли к мысли -лист "2020" - ваш главный лист) выполнить:

1. Сервис
2. Параметры
3. Общие
4. Стиль ссылок R1C1 поставить в квадратике "галку" - то есть включить её.
5. После этого все настройки закрыть.

В результате этого у вас изменится внешний вид таблицы:
вместо подписей колонок A B C D E .... AA AB ....
появятся числа 1 2 3 4 5 6 ..... 121 ...

то есть теперь вместо "А5" (к примеру) будет называться "15"
И запомните! такой вид будет и во всех остальных книгах - предыдущих и будущих.
Но это НЕ ВЛИЯЕТ на расчёты! - просто другой внешний вид, который легко изменить на старый через параметры - выключить стиль R1C1 - убрать "галку". Хочу заметить, что у меня эксель 2003 (и более в старых). В более современных может настройка быть чуть другая (не помню) - но смысл тот же.
Тогда у вас получится (если я правильно понимаю вашу мысль)

Visual Basic
1
2
3
4
5
6
7
If mes$ = "май" Then
  stolbMes% = 10
ElseIf mes$ = "июнь" Then
  stolbMes% = 15
ElseIf mes$ = "июль" Then
  stolbMes% = 20
End If

то есть у вас здесь всё правильно...
По очистке: жалко, что вы не показали код по очистке (((((
По сохранению файла и действия при его открытии:
вы правильно предположили. если вы сохранили на другом листе, потом заходите - у вас показывается другой лист. А макрос работает в привязке с листом "2020". Поэтому вам просто надо после открытия переходить на лист "2020".
Но это легко настраивается автоматически.
в программе в модуле "Эта книга" в разделе объявления модулей вместо "General поставить WorkBook
и вас появится две строки
Private Sub Workbook_Open()

End Sub

а теперь добавьте

Visual Basic
1
2
3
Private Sub Workbook_Open()
  Sheets("2020").Activate
End Sub

И теперь при запуске файла у вас автоматически всегда будет переходить на этот лист "2020"
И для полного счастья (на этот момент) добавим эту же строчку Sheets("2020").Activate в нашу исходную программу в самое начало:

Visual Basic
1
2
3
4
5
6
7
8
Sub olgaVibor()
   Dim fio$                             'объявление ФИО - фамилия имя отчество
   Dim mes$                             'объявление месяц-куда копировать
   Dim s%, stroka%, strokaMes%, stolb%        'объявление счётчик, строка и столбец
   Sheets("2020").Activate   
 
   mes$ = InputBox("Ввести месяц, куда копировать данные:")
   fio$ = InputBox("Ввести ФИО:")

чтбы избежать описанной ошибки - если будете запускать программу из самого кода по кнопе F5.
Похоже - вы еще так не делали )))))
В этом случае сначала идет активация листа "2020", то есть переход на него , а потом уже выполнение всего остального кода.

Вот теперь Вы всегда "привязаны" к листу "2020".
Эхххххх

@vedunasv · 20.06.2020, 12:48

olga_eg, принимайте вариант 2 (с вашими доработками):

план 2019_makros2.rar

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Option Explicit
Option Compare Text
Sub olgaVibor()
   Dim fio$                             'объявление ФИО - фамилия имя отчество
   Dim mes$                             'объявление месяц-куда копировать
   Dim s%, stroka%, strokaMes%, stolb%        'объявление счётчик, строка и столбец
   Dim stolbMes%                        'столбец "ЧИСТОЕ"
   Dim list%                             'присуствие листа:  =0-лист отсуствует, =1-лист есть
   
   list% = 1            'допускаем, что лист существует
   On Error GoTo Erro           'включение обработки ошибок
  
   mes$ = InputBox("Ввести месяц, куда копировать данные:")
   fio$ = InputBox("Ввести ФИО:")
   'mes$ = "май"
   'fio$ = "барашков"
   
    Application.ScreenUpdating = False ' временное отключение обновления экрана в Excel
 
Rem ВАРИАНТ 1 по очистке листа месяц
   Rem проверка на наличие листа, и удаляем если он есть, и вставка нового листа
   If list% = 1 Then
      Sheets(mes$).Delete
      Sheets.Add
      's% = Sheets.Count
      ActiveSheet.Name = mes$
      Sheets(mes$).Move After:=Sheets(Sheets.Count)
   Else
      Sheets.Add
      s% = Sheets.Count
      ActiveSheet.Name = mes$
      Sheets(mes$).Move After:=Sheets(Sheets.Count)
    End If
   Rem конец проверка на наличие листа, и удаляем если он есть, и вставка нового листа
Rem конец ВАРИАНТ 1 по очистке листа месяц
 
Rem ВАРИАНТ 2 по очистке листа месяц - через диапазон
'   Sheets(mes$).Activate
'   stroka% = 3
'   Do
'        If Cells(stroka%, 2) = "" Then Exit Do   'если конец БД (пустая ячейка в столбе "В"
'        stroka% = stroka% + 1
'  Loop
'   Range(Cells(1, 1), Cells(stroka%, 5)).Clear
'    Range(Selection, Selection.End(xlToRight)).Select
'    Selection.ColumnWidth = 8.38
'    Range("a1").Activate
 
Rem конец ВАРИАНТ 2 по очистке листа месяц - через диапиазон
   
   Sheets("2020").Activate              'автоматический переход на главный лист "2020"
   s% = 1: stroka% = 3: stolb% = 5      'стартовые значения
   strokaMes% = 3
   Range("A1:E2").Copy
   Sheets(mes$).Rows(1).PasteSpecial
   
   If mes$ = "май" Then
     stolbMes% = 10
   ElseIf mes$ = "июнь" Then
     stolbMes% = 15
   ElseIf mes$ = "июль" Then
     stolbMes% = 20
   End If
   
   Do
        If Cells(stroka%, stolb%) = fio$ And Cells(stroka%, stolbMes%) <> 0 Then
           Sheets(mes$).Cells(strokaMes%, 1) = Cells(stroka%, 1)        'запись в лист <mes$>
           Sheets(mes$).Cells(strokaMes%, 2) = Cells(stroka%, 2)
           Sheets(mes$).Cells(strokaMes%, 3) = Cells(stroka%, 3)
           Sheets(mes$).Cells(strokaMes%, 4) = Cells(stroka%, 5)
           Sheets(mes$).Cells(strokaMes%, 5) = Cells(stroka%, stolbMes%)
'           Sheets(mes$).Cells(strokaMes%, 1).Font.Bold = True   'шрифт жирный
           
           Sheets(mes$).Activate              'временно переход на месяц "mes$" для лёгкого форматирования
           
              Range("A3").Activate
 
           Range(Cells(strokaMes%, 1), Cells(strokaMes%, 5)).Font.Bold = True   'формат жирный в диапазоне
           
           With Range(Cells(strokaMes%, 1), Cells(strokaMes%, 5))       'указываем диапазон
              .Borders(xlEdgeLeft).LineStyle = xlContinuous          'рисуем левую границу
              .Borders(xlEdgeTop).LineStyle = xlContinuous           'рисуем верхнюю границу
              .Borders(xlEdgeBottom).LineStyle = xlContinuous
              .Borders(xlEdgeRight).LineStyle = xlContinuous         'рисуем правую границу
              .Borders(xlInsideVertical).LineStyle = xlContinuous     'рисуем вертикальную границу
'              .Borders(xlInsideHorizontal).LineStyle = xlContinuous рисуем горизонтальную границу
              
           End With
 
         strokaMes% = strokaMes% + 1                  'увеличение строки в листе <mes$>
 
        End If
           Sheets("2020").Activate               'переход на главный лист "2020" после форматирования
        
        stroka% = stroka% + 1           'увеличиваем номер строки в листе <2020>
        If Cells(stroka%, 2) = "" Then Exit Do   'если конец БД (пустая ячейка в столбе "В"
   Loop
           Sheets(mes$).Columns("a:e").EntireColumn.AutoFit           'выравнивание ширины колонок автоматически
    Application.ScreenUpdating = True ' включение обновления экрана в Excel
 
   Exit Sub
Erro: Select Case Err
             Case 9
                list% = 0
            Case 1004
               MsgBox ("Был отказ от удаления листа <" & mes$ & ">")
               End
            Case Else
               Stop
        End Select
        Resume Next
 
End Sub

По вопросу предварительной очистки данных на листе "Месяц":

предложено два варианта:
1. Через удаление всего листа (с проверкой на наличие - добавлен обработчик ошибок), и вставка нового листа с нужным названием.
Такой вариант позволяет не задумываться о всяких диапазонах.

2. очистка через диапазон.
Но здесь возможна ситуация, если внутри БД будет пустая строка - то будет НЕКАЧЕСТВЕННАЯ очистка диапазона.
Конечно, можно и это предусмотреть.Но будет увеличение кода.

Сейчас включен ВАРИАНТ 1.
Если выберите ВАРИАНТ 2 - то ВАРИАНТ 1 удалите или закомментируйте (поставить кавычку), а ВАРИАНТ 2 - раскомментируйте(убрать кавычку)

Хотелось бы узнать ваше решение по очистке - чтоб знать веяние моды.

Прилагаю результат в виде конечной таблицы (с другой фамилией для чистоты эксперимента).

Всё.

@vedunasv · 20.06.2020, 18:10

vedunasv - (идёт тест)

,

не зачтено...

Добавлено через 16 минут

Сообщение от vedunasv

vedunasv - (идёт тест)

обратить внимание на тему "Форум программистов и сисадминов Киберфорум > Форум программистов > Теория и практика программирования>Алгоритмы"-элементы ГОСТ

@olga_eg · 21.06.2020, 14:59 **[ТС]**

Здравствуйте. Просмотрела все. ОГРОМНОЕ ВАМ СПАСИБО. Немного отредактировала под себя. Пыталась пойти дальше по своим запросам. Но опять в ступоре))) Помогите, пожалуйста, понять: что не так. Файл приложила. Суть там такая: чтобы из тех данных, которые выбираются на отдельный лист, формировались таблицы. Под каждую строчку - новая таблица. Крутила и так и этак - никак, то таблица одна, а объекты все, то наоборот....

@vedunasv · 21.06.2020, 16:08

olga_eg, у меня проблема с винраром.
Упакуйте, пожалуста, в формате *.zip

Добавлено через 14 минут
olga_eg, пришлось переустанавливать винрар. Файл скачан. Буду думать.

@olga_eg · 21.06.2020, 16:18 **[ТС]**

В формате .zip

@vedunasv · 21.06.2020, 16:26

olga_eg, а можете показать - КАК ДОЛЖНа выглядеть таблица отчёт? Почти вижу картинку - но неясно.
Я так понимаю, форма "ФормаЗП" у вас в порядке?
Или эта форма должна появиться на листах "майшиман" и остальных? Сейчас она где-то сбоку справа внизу...

Надо просто мне ручной образец. Или хорошо опишите. И всё разрешится...

@olga_eg · 21.06.2020, 17:42 **[ТС]**

Подробнее:

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

Ошибка в коде для Excel. Копирование строк на лист по критериям

Решение

Решение

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.06.2020, 06:02
	olga_eg, сроки есть? Ночью плохо думалось (((( 0

@olga_eg 0 / 0 / 0 Регистрация: 15.06.2020 Сообщений: 17
	16.06.2020, 16:31 [ТС]
	Ну несколько дней точно есть. Спасибо, что откликнулись... 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.06.2020, 19:21
	Теперь осталось за малым-помочь.... А Вы не пропали на неделю-это хорошо. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.06.2020, 22:20
	Сообщение было отмечено olga_eg как решение Решение 1

@olga_eg 0 / 0 / 0 Регистрация: 15.06.2020 Сообщений: 17
	16.06.2020, 23:10 [ТС]
	ОГРОМНОЕ спасибо! Да, по форматированию и шапке упустила. вижу теперь... Помогите, пожалуйста, завершить. форматирование и шапка как в исходном файле 0

@olga_eg 0 / 0 / 0 Регистрация: 15.06.2020 Сообщений: 17
	18.06.2020, 01:17 [ТС]
	А как здесь прописать, чтобы данные при повторном выборе этого месяца и этого гипа (на листе куда копируется) сначала чистились, а потом копировались новые? на случай редактирования исходного файла 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	18.06.2020, 06:06
	olga_eg, ясно. Добавлю. Сегодня вечером скину и форматирование, и чистку. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	18.06.2020, 20:46
	olga_eg, всё получилось, только флешка осталась на работе (((( Но если для ускорения, и вы сможете разобраться, то примените три строки Sheets(mes$).Delete 'удалить лист Sheets.Add 'добавить лист Sheets("Лист2").Name = mes$ 'переименовать лист2 на имя из переменной, но здесь может быть 'не лист2, а лист5 - и будет ошибка после вопросов о названии месяца и ФИО Но здесь могут возникнуть ошибки, если например, изначально нет листа, и другие подобные нюансы. А можно очистить через диапазон, но это на флешке. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	21.06.2020, 16:08
	olga_eg, у меня проблема с винраром. Упакуйте, пожалуста, в формате .zip Добавлено через 14 минут* olga_eg, пришлось переустанавливать винрар. Файл скачан. Буду думать. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	21.06.2020, 16:26
	olga_eg, а можете показать - КАК ДОЛЖНа выглядеть таблица отчёт? Почти вижу картинку - но неясно. Я так понимаю, форма "ФормаЗП" у вас в порядке? Или эта форма должна появиться на листах "майшиман" и остальных? Сейчас она где-то сбоку справа внизу... Надо просто мне ручной образец. Или хорошо опишите. И всё разрешится... 0