Требуется код для кнопки, копирующий в новую таблицу строки с определенным словом

@Vadim555 · Регистрация: 27.10.2013

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

Здравствуйте. Напишите, пожалуйста, код для кнопки на листе. Должно выполниться: из таблиц со вкладки "Сменное задание" (их будет = числу рабочих дней в году) данные строк с отметкой "Готово"должны скопироваться в таблицу во вкладке "Отгрузка в склад", при этом в таблицах-источниках слово "Готово" должно замениться на слово "Отгружено". Заранее благодарю.

@Vlad999 · 06.08.2015, 09:59

дата отгрузки я так понимаю дата нажатия на кнопку в склад?
Цвет - сюда вписывается основной или дополнительный или?
№склада и №поступления откуда берутся?

@Vadim555 · 06.08.2015, 16:02 **[ТС]**

Здравствуйте. Дату отгрузки можно вписывать вручную или как вы предлагаете дата нажатия на кнопку. № склада и № поступления точно вписываются вручную. Цвет (основной и дополнительный) - это всё цвет изделия. Можно склеить с пробелом или дробью и скопировать в 1 ячейку или добавить вторую ячейку в "перемещении" и копировать каждый цвет в свою (не принципиально). Спасибо, что откликнулись. Я написал код, но для одной строки. Если для каждой строки сделать по кнопке, то я сойду с ума прописывать для каждой код, да и будет ляписто. Иногда нужно будет добавлять строки - опять проблема. А как предлагаю, сделать не могу, вот и обратился за помощью.

@Vlad999 · 06.08.2015, 16:52

проверяйте, на черновике.

Visual Basic

Private Sub CommandButton11_Click()
Dim i#, R#, n#, k#, mas()
R = Cells(Rows.Count, 1).End(xlUp).Row
n = WorksheetFunction.CountIf(Range("J4:J" & R), "Готово")
ReDim mas(1 To n, 1 To 9)
For i = 4 To R
   If Cells(i, 10) = "Готово" Then
     k = k + 1
     mas(k, 1) = Date
     mas(k, 2) = Cells(i, 1).Value
     mas(k, 3) = Cells(i, 2).Value
     mas(k, 4) = Cells(i, 3).Value
     mas(k, 5) = Cells(i, 4).Value
     mas(k, 6) = Cells(i, 5).Value
     mas(k, 7) = Cells(i, 6).Value
     mas(k, 8) = Cells(i, 7).Value & " _ " & Cells(i, 8).Value
     mas(k, 9) = Cells(i, 9).Value
     Cells(i, 10) = "Отгружено"
   End If
Next
With Sheets("Отгрузка в склад")
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(n, 9) = mas()
End With
End Sub

@Vadim555 · 06.08.2015, 18:07 **[ТС]**

Vlad999. Спасибо большое.

@Vlad999 3894 / 2301 / 774 Регистрация: 02.11.2012 Сообщений: 6,114
	06.08.2015, 09:59	2
	дата отгрузки я так понимаю дата нажатия на кнопку в склад? Цвет - сюда вписывается основной или дополнительный или? №склада и №поступления откуда берутся? 0

@Vadim555 0 / 0 / 0 Регистрация: 27.10.2013 Сообщений: 26
	06.08.2015, 16:02 [ТС]	3
	Здравствуйте. Дату отгрузки можно вписывать вручную или как вы предлагаете дата нажатия на кнопку. № склада и № поступления точно вписываются вручную. Цвет (основной и дополнительный) - это всё цвет изделия. Можно склеить с пробелом или дробью и скопировать в 1 ячейку или добавить вторую ячейку в "перемещении" и копировать каждый цвет в свою (не принципиально). Спасибо, что откликнулись. Я написал код, но для одной строки. Если для каждой строки сделать по кнопке, то я сойду с ума прописывать для каждой код, да и будет ляписто. Иногда нужно будет добавлять строки - опять проблема. А как предлагаю, сделать не могу, вот и обратился за помощью. 0

@Vadim555 0 / 0 / 0 Регистрация: 27.10.2013 Сообщений: 26
	06.08.2015, 18:07 [ТС]	5
	Vlad999. Спасибо большое. 0

Опции темы