VBA copy cells with images, delete images
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1376
Sub Add_pictures()
Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set InputWorksheet = CurrentWorkbook.Sheets("BASE")
Set OutputWorksheet = CurrentWorkbook.Sheets("meBOM - OTH&HH")
Dim sh As Shape
Dim i As Integer
InputWorksheet.Select
Set rng = InputWorksheet.Range(Cells(3, 1), Cells(172, 1))
For Each cell In rng
'Delete
'For Each sh In OutputWorksheet.Shapes
' If sh.TopLeftCell.Address = OutputWorksheet.Cells(cell.Row, 23).Address Then sh.Delete
'Next
For i = 1 To 172
If (cell.Value = OutputWorksheet.Cells(i, 1).Value) Then
InputWorksheet.Cells(cell.Row, 18).Copy Destination:=OutputWorksheet.Cells(i, 23)
End If
Next i
Next cell
End Sub
Excel: копируем значения на другой лист VBA
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1581
Sub Update()
Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set InputWorksheet = CurrentWorkbook.Sheets("meBOM - OTH&HH")
Set OutputWorksheet = CurrentWorkbook.Sheets("1035159-VS")
Dim rng As Range, cell As Range
Dim N As Long
N = 1
Set rng = Range(Cells(3, 7), Cells(168, 7))
For Each cell In rng
If (cell.Value = "Yes") Then
N = N + 1
Range(Cells(N, 1), Cells(N, 6)).Copy
OutputWorksheet.Select
Range(Cells(N, 1), Cells(N, 6)).Select
OutputWorksheet.Paste
InputWorksheet.Select
End If
Next cell
End Sub
GPS треккер сегодня дешевле
- Информация о материале
- Автор: Super User
- Категория: Новости
- Просмотров: 1741
Не забываем, про закон РФ, в который внесли изменения, если вы будете не законно за кем-то вести слежку, будете отвечать по всем пунктам! А если для личных целей или с согласия, то всё законно!
Good torch. Отличный недорогой фонарь на Cree светодиоде
- Информация о материале
- Автор: Super User
- Категория: Новости
- Просмотров: 1684
I2S спецификация протокола
- Информация о материале
- Автор: Super User
- Родительская категория: Заметки
- Категория: Программирование
- Просмотров: 1484
Страница 97 из 197