Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
12 / 0 / 0
Регистрация: 25.04.2018
Сообщений: 62
1

Перенос значения ячейки не по конкретному адресу, а в конец списка

10.02.2019, 06:00. Показов 1035. Ответов 4
Метки нет (Все метки)

Доброго времени суток.
Помогите решить непростой вопрос.

На листе находится ячейка C27 с неким текстом.
Мне надо перенести содержимое этой ячейки -в конец списка диапазона F6:F18.
Как сделать простой перенос я знаю, например [B3] = [C27].
А вот как перенести это содержимое в конец списка - непонятно.

Как макросом - перенести ее значение - не по конкретному адресу, а в конец списка (в диапазоне F6:F18 ) ?
0
Вложения
Тип файла: xls 1.xls (32.5 Кб, 3 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2019, 06:00
Ответы с готовыми решениями:

Редактирование ячейки и перенос значения ячейки через форму
Доброго времени суток люди) Помогите чем сможете, всю голову уже изломали. Сначала хотели кнопку с...

Перенос элемента в конец списка
Доброго времени суток. Задание: описать процедуру, которая переносит в конец непустого списка L...

Перенос четных элементов в конец списка
Нужно перенести в конец списка все четные элементы. Я разобралась как выводить по отдельности...

Перенос первых элементов списка ListBox в конец
ниже приведена программа переноса в начало списка последних элементов списка, во второй вкладке под...

4
1566 / 642 / 222
Регистрация: 09.06.2011
Сообщений: 1,314
10.02.2019, 10:32 2
Лучший ответ Сообщение было отмечено Snegovik2 как решение

Решение

Visual Basic
1
[f6].End(xlDown).Offset(1).Value=[c27]
1
12 / 0 / 0
Регистрация: 25.04.2018
Сообщений: 62
10.02.2019, 17:57  [ТС] 3
Step_UA, спасибо вам, добрый ежик.

Добавлено через 1 час 31 минуту
Step_UA, а вот подскажите - если список пустой (если в нем ничего нет) - то данный код не добавляет в ячейку F6 текст.
Он почему-то срабатывает только тогда, когда в списке есть хотя бы два наименования.

Как заставить этот код заполнять список даже тогда, когда он - изначально пустой ?
0
1566 / 642 / 222
Регистрация: 09.06.2011
Сообщений: 1,314
10.02.2019, 18:18 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub aaa()
  Dim R As Range
    On Error Resume Next
    Set R = [f6:f18].SpecialCells(xlCellTypeBlanks)
    If Err.Number Then
        MsgBox "Список не имеет пустых ячеек"
    Else
        R.Cells(1).Value = [c27]
    End If
End Sub
0
12 / 0 / 0
Регистрация: 25.04.2018
Сообщений: 62
10.02.2019, 18:59  [ТС] 5
Step_UA, спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2019, 18:59

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Перенос первых элементов списка ListBox в конец
ниже приведена программа переноса в начало списка последних элементов списка, нужно поменять на...

Число по конкретному адресу
Добрый день. Скажите, пожалуйста, как можно вывести на экран 16-ричное число, которое находится по...

Перенос в начало списка его максимального элемента, а в конец минимальный
нужно написать функцию,которая переносит в начало непустого списка L его максимальный элемент а в...

Создание файлов по конкретному адресу
Как сделать так, что-бы програма написаная на PascalABC.NET создавала файлы по конкретному пути а...

Обращение к конкретному адресу в памяти
Первый вопрос: как с помощью указателя увидеть содержимое по конкретному адресу, например, по...

Задать переменную по конкретному адресу памяти
В emu8086 надо написать программу для суммирования элементов двух массивов и записать результат во...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.