Перенос значения с листа на лист.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос значения с листа на лист. (Макросы/Sub)

sanhasan

Дата: Пятница, 19.06.2015, 01:22 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер!
Есть код, переносит значение с листа1 на лист2 , в данном примере со строки 12 на строку 12, возможно ли на листе 2 ориентироваться по значениям в столбце "L"?
Чтобы в ставка происходила не на строку 12 а на строки, где в столбце "L" определенные значения, на пример test2 как в примере.
[vba]

Код

Sub test1()
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
If ActiveWorkbook.Sheets("Лист1").Cells(i, 1) = 12 Then _
ActiveWorkbook.Sheets("Лист2").Cells(i, 8) = _
ActiveWorkbook.Sheets("Лист1").Cells(i, 8) * 3.5
Next
End Sub

[/vba]

К сообщению приложен файл: 0141779.xlsm (18.7 Kb)

Ответить

ShAM

Дата: Пятница, 19.06.2015, 05:24 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Если правильно понял:
[vba]

Код

Sub test1()
Dim i As Long, j As Long
With ActiveWorkbook
For i = 1 To .Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
If .Sheets("Лист1").Cells(i, 1) = 12 Then
For j = 2 To .Sheets("Лист2").Cells(Rows.Count, 12).End(xlUp).Row
If .Sheets("Лист2").Cells(j, 12) = "test2" Then _
.Sheets("Лист2").Cells(j, 8) = _
.Sheets("Лист1").Cells(i, 8) * 3.5
Next j
End If
Next i
End With
End Sub

[/vba]

К сообщению приложен файл: sanhasan.xlsm (19.0 Kb)

Ответить

sanhasan

Дата: Пятница, 19.06.2015, 11:48 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

ShAM, Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос значения с листа на лист. (Макросы/Sub)

Страница 1 из 1
1