Скопировать ячейки A2:B5 в свободное место области печати столько раз сколько указано в другой ячейке

@latrodectus · Регистрация: 21.11.2019

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

Скопировать ячейки A2:B5 в свободное место области печати столько раз сколько указано в другой ячейке. В Примере вроде постарался все объяснить.
Печатать нужно много и в ручную получается много ошибок.
Постараюсь объяснить что должно быть на выходе. Есть клеевая бумага на подложке, бумага надрезана на 40 частей, 4 столбца и 10 строк.
Размер ячеек строго установлен и выверялся очень долго опытным путем и нужно чтобы скопированные ячейки вставлялись по четыре в стоку и переходили на следующую.
Как то так, пожалуйста помогите, а то уволят

@pashulka · 21.11.2019, 10:51

latrodectus, Можно попробовать что-то вроде этого :

Visual Basic

Private Sub Test2()
    Dim r As Range, i1&, i2&, rw&, cl&: rw = 20: cl = 1
    Set r = Range("E1").CurrentRegion
    
    Application.ScreenUpdating = False
    Cells(rw, "A").CurrentRegion.Clear
    For i1 = 2 To r.Rows.Count
        Range("C4") = r(i1, 1)
        For i2 = 1 To r(i1, 2)
            Range("B2:C5").Copy Cells(rw, cl)
            If cl = 7 Then
               cl = 1: rw = rw + 4
            Else: cl = cl + 2: End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

@latrodectus · 21.11.2019, 11:03 **[ТС]**

Спасибо огромное золотой вы человек!!!

Добавлено через 4 минуты
Всё работает отлично, если можно сделайте так чтобы при изменении артикула С2 и повторном нажатии кнопки список продолжался, а не заменялся.

@pashulka · 21.11.2019, 11:30

Вариант для второй кнопки. Или ищите артикул в этикетках или запоминайте артикул при нажатии кнопки и сравнивайте с предыдущим.

Visual Basic

Private Sub Test3()
    Dim r As Range, c As Range, i1&, i2&, rw&, cl&: rw = 20
    Set r = Range("E1").CurrentRegion
    Set c = Range(Cells(rw, "A"), Cells(Rows.Count, "H")).Find("", , xlValues)
    rw = c.Row: cl = c.Column
    
    Application.ScreenUpdating = False
    For i1 = 2 To r.Rows.Count
        Range("C4") = r(i1, 1)
        For i2 = 1 To r(i1, 2)
            Range("B2:C5").Copy Cells(rw, cl)
            If cl = 7 Then
               cl = 1: rw = rw + 4
            Else: cl = cl + 2: End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

@latrodectus · 21.11.2019, 11:43 **[ТС]**

То, что нужно!!!

@latrodectus · 22.11.2019, 06:32 **[ТС]**

Спасибо огромное ещё раз и форуму в том числе. Если кому интересно - вот что получилось, даже лучше чем я ожидал!!!

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

@latrodectus 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 4
	21.11.2019, 11:03 [ТС]	3
	Спасибо огромное золотой вы человек!!! Добавлено через 4 минуты Всё работает отлично, если можно сделайте так чтобы при изменении артикула С2 и повторном нажатии кнопки список продолжался, а не заменялся. 0

@latrodectus 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 4
	21.11.2019, 11:43 [ТС]	5
	То, что нужно!!! 0

	22.11.2019, 06:32

Скопировать ячейки A2:B5 в свободное место области печати столько раз сколько указано в другой ячейке

Решение