Расчётные листки (квиток заработной платы)

[gling]

Не разбираясь в макросах на чужих примерах собрал Вам такую штуку. Попробуйте на своих данных. Только приходится в строку 5000 программно вставлять значения, иначе этот "зверь" нормально работать отказывается. Может спецы подскажут почему. На данных в 250 строк не пробовал, не знаю как будет работать.

[godkiller07]

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

Не разбираясь в макросах на чужих примерах собрал Вам такую штуку. Попробуйте на своих данных. Только приходится в строку 5000 программно вставлять значения, иначе этот "зверь" нормально работать отказывается. Может спецы подскажут почему. На данных в 250 строк не пробовал, не знаю как будет работать.

Спасибо, попробовал, почти получилось, попробую на 100% подогнать к своим данным!

[maksim_serg]

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

Только приходится в строку 5000 программно вставлять значения, иначе этот "зверь" нормально работать отказывается. Может спецы подскажут почему.

Разберите эту строку:

a = Sheets("Лист1").Range("D7:AF" & Cells(Rows.Count, 1).End(xlUp).Row).Value

переменной "а" пристваиваем значение массива ячеек на Листе1 по адрессу D7:AF & последняя заполненная ячейка на листе, откуда вызывался макрос. Так как макрос вызывается с третьего листа, то последняя заполненная ячейка на Листе3 = 1. Значит адресс ячеек D7:AF1, и соответственно Ubound(a)=7.

For i = 1 To UBound(a)
.......
i=i+1
....

в массиве "a" нет элемента с индексом а(8, что-то). По просту говоря, "зверь" не понимает где ему взять восьмую лапу, когда ему дали всего семь.
Как вариант:

a = Sheets("Лист1").Range("D7:AF" & Sheets("Лист1").Cells(Rows.Count, 29).End(xlUp).Row).Value

где 29, номер столбца с фамилиями.


Если мы вставляем на третий лист данные в строку 5000, то
"переменной "а" пристваиваем значение массива ячеек на Листе1 по адрессу D7:AF & последняя заполненная ячейка на листе, откуда вызывался макрос. Так как макрос вызывается с третьего листа, то последняя заполненная ячейка на Листе3 = 5000. Значит адресс ячеек D7:AF5000, и соответственно Ubound(a)=5000. ". Зверь работает долго, перебирая не нужные "ноги". Ошибки не получается, так при i=5000 , If... i=i+1... end if, не выполняется.

[maksim_serg]

во вторых все вышесказанное работает, только если число человеков (ну или "да") четное (при условии что под таблицей нет ни каких записей)

как вариант:

Dim index as boolean
Sheets("Лист3").Select
    For i = 1 To UBound(a)
        If a(i, 1) = "да" Then
                If index = 0 Then
                    index = 1
                    
                    Cells(rw1, 1) = a(i, 26)
                   ................................................
                    Cells(rw1 + 21, 2) = "âûïëàòû"
                    
                    rw1 = rw1 + 24
                Else
                    index = 0
                    
                    Cells(rw2, 3) = a(i, 26)
                    .................................................
                    Cells(rw2 + 21, 4) = "âûïëàòû"
                    
                    rw2 = rw2 + 24
                End If
        End If
    Next

Или так:

a = Sheets("Лист1").Range("D7:AF" & Sheets("Лист1").Cells(Rows.Count, 29).End(xlUp).Row+1).Value

[gling]

maksim_serg спасибо за разъяснение и работает с исправлением очень быстро. Еще раз спасибо.

[IgorGO]

в А1 с какой 1-й строки взять данные.

[godkiller07]

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

maksim_serg спасибо за разъяснение и работает с исправлением очень быстро. Еще раз спасибо.

А можно всё выше сказанное в программе увидеть?)

[IgorGO]

не смотрел решения на макросах и сколько там пришлось написать...
в предложенном выше варианте во всех! ячейках ОДНА ФОРМУЛА:

=ИНДЕКС(Лист1!R1:R9999;R1C+2*(СТРОКА()>24);RC1+СТРОКА()-24*(СТРОКА()>24))

ее длина 73 символа.

в первоначальном варианте формула была вообще длиной в 40 символов

=ИНДЕКС(Лист1!R1:R9999;R1C;RC1+СТРОКА())

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

=ИНДЕКС(Лист1!R1:R9999;R25C;RC1+СТРОКА())

скопировать строку 1 в строку 25, вписать 1-ю ячейку формулу =R1C+2
и угадать числа в 1-й колонке)) (4-е первых я тогда написал)

итак, в левую верхнюю ячейку вместо 6, пишите 10 - увидите заполненными след.4 листка.

[gling]

godkiller07 А почему нет?
IgorGO Интересное решение, попробую разобраться. Первая попытка вчера, закончилась неудачей.

[maksim_serg]

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

godkiller07 А почему нет?

godkiller07, добавьте в таблицу пятого Пупкина и посмотрите, что получилось. Как я писал, Ваш макрос красиво работает только если число Пупкиных четное.