Доброго времени суток, имеется следующая задача: найти в файле А пользовательское значение и перенести в файл Б всю строчку, содержащее данное значение, причем предварительно вставив туда пустую строчку.
Скорее всего, я тут наваял кучу лишнего, просто с вба еще в процессе знакомства(если будут советы, с чем можно ознакомиться на данную тематику - было бы круто)
На данный момент работает все, кроме непосредственной вставки значений, но что с ними делать - понятия не имею.
Скорее всего, я тут наваял кучу лишнего, просто с вба еще в процессе знакомства(если будут советы, с чем можно ознакомиться на данную тематику - было бы круто)
На данный момент работает все, кроме непосредственной вставки значений, но что с ними делать - понятия не имею.
| Код |
|---|
Sub smth()
Dim ItemName$
Dim n%
Dim i&
Dim m&
Dim ins&
Dim A As Workbook
Dim z As Range
Dim k As Range
Dim x As Variant
Dim y As Variant
Dim q As Variant
Dim w As Variant
Set k = Range("D:D")
ItemName = InputBox("Введите название статьи")
x = InputBox("Введите начало диапазона для вставки", , "A")
y = InputBox("Введите начало диапазона для вставки", , "15")
q = InputBox("Введите конец диапазона для вставки", , "H")
w = InputBox("Введите конец диапазона для вставки", , "15")
For Each z In k
If z.Value = ItemName Then
m = 0
Workbooks("2.").Activate
Sheets(1).Cells(ActiveCell.Row + 1, 1).Resize(1).EntireRow.Insert
Workbooks("A2019").Activate
Range(Cells(m, 4), Cells(m, 12)).Copy _
Destination:=Workbooks("2.").Sheets(1).Range(Workbooks("2.").Sheets(1).Cells(x, y + m), Workbooks("2.").Sheets(1).Cells(q, w + m))
Workbooks("A2019").Activate
m = m + 1
End If
Next
countvalues = m
i = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox ("Всего" & " " & i & " " & "Количество по заданной статье" & " " & m)
End Sub
|
