Уважаемые!! Очень надо. подскажите, плииз..

есть название модели (текст) - в первой ячейке.
есть количество этой модели (число) - во второй ячейке.
можно ли построить список этой модели в столбце из такого же количества строк,что задано во второй ячейке?

пример:
/Классика/4/

надо, чтоб получилось:
/Классика/
/Классика/
/Классика/
/Классика/
============================
мои мысли - ПОВТОР. в ячейке появляется
/КлассикаКлассикаКлассикаКлассика/ без пробелов
а дальше как?
мысли раползаются в разные стороны. помогите!!!

спасибо))

для F - файл с примером.
m - спасибо огромное,буду пробовать. хотя я такой чайник))

Гость&Гость, неее.. надо по строкам! а не в одну ячейку
причем число (количество) изменяется. а формула должна работать.

у меня в примере там все есть. вроде понятно

уважаемый F , где же Вы?

мне говорили,что это сделать невозможно. так ли это?

m - ничего у меня не получилось. я не поняла, как Ваш макрос заставить работать.

всем спасибо.
задача решена!

m!
решена без макроса. =ВЫБОР. номер_индекса - СУММ диапазонов +1. а значения - по адресам ячеек с наименованиями моделей.

сложность-то во мне - я не умею макросами пользоваться. мне надо на пальцах)). с формулами мне проще.

Вам - отдельное спасибо. за Ваш труд.

vikttur - вы меня опередили))

Deggasad - как красиво!!! Вы - умница!

только задача моя усложнилась несвязанными диапазонами.
попробую сама разобраться

vikttur - вы меня опередили))

Deggasad - как красиво!!! Вы - умница!

только задача моя усложнилась несвязанными диапазонами.
попробую сама разобраться

Deggasad , не посмотрите файл?
помогите, пожалуйста. тот же список, но с несколькими критериями.

vikttur , чую, что Вы меня не взлюбили))
помогите формулами. а?

Спасибо всем!

Гость&ГостьБзз,
Зачем такая сложная форма заказа?

нужна именно такая. это одновременно и БланкЗаказа и Бланк Отгрузки. человеку на отгрузке так удобно.
ой, спасибо Вам за решение!
А у Вас "ДГ" и "ДО" никак по разным столбцам не разнести? это важно, т.к если будет 400 позиций, и они будут перемежаться ДГ/ДО - высока вероятность ошибки. жалко ж, себестоимость изделий не маленькая...

Спасибо всем Большущее!!!
у меня теперь столько вариантов)) вы не думайте, я не нагло списываю, я Учусь!! каждую-каждую формулу подробненько разбираю..да..

vikttur Откуда такие выводы?....
Рада, что ошиблась :)

vikttur ..........Можно поиздеваться и формулами, но стоит ли?
уже даже мне понятно,что издеваться формулами не стоит ни над Deggasad ом, ни над столбцами... (простите меня, упёртую... вот идея была, именно формулами!!)

Кстати, видели, какой на "планете" макрос написал Игорь67 ?
вот время ужо 3:15, а я с ним (с макросом:)) разбираюсь...
только он не использовал ВидПокрытия и Нестандарт.. что и пытаюсь сделать я))
но я боюсь макросов

Народ!! Хелп!!

что за ерунда...не пойму.
разобралась с макросом под свою задачу. на черновике пробовала- все работает.

копирую макрос в чистовую( там все-все-все столбцы и строки совпадают) - не работает!

чтобы вы посмотрели, надо сам макрос прикрепить или нужна вся работа с листами?
пока вот он:

Бзз
Sub myDataCopy()

Dim iCol As Integer, i As Integer, iLastRow As Long
Dim k As Integer
Dim shTrgt As Worksheet
Dim view As String
Dim model As String
Dim razmer As String, strDo As String, strDg As String
Dim m As Integer

Application.ScreenUpdating = False

Set shTrgt = Sheets("РАБОЧИЙ лист")
strDo = "ДО"
strDg = "ДГ"

'начинаем обработку столбцов
For iCol = 2 To 9
'вычисляем четный столбец или нечётный
k = Evaluate("=mod(" & iCol & ", 2)")
If k = 0 Then 'если столбец четный
Range(Cells(5, iCol), Cells(5, iCol + 1)).UnMerge
model = Cells(5, iCol).Text 'запоминаем модель
Range(Cells(5, iCol), Cells(5, iCol + 1)).Merge

Range(Cells(7, iCol), Cells(7, iCol + 1)).UnMerge
view = Cells(7, iCol).Text 'запоминаем ВидПокрытия
Range(Cells(7, iCol), Cells(7, iCol + 1)).Merge
End If

'начали просматривать строки
For i = 8 To 12
If Cells(i, iCol) > 0 Then 'если есть значение
iLastRow = shTrgt.Cells(Rows.Count, 2).End(xlUp).Row + 1
If iLastRow = 6 Then iLastRow = 7
m = Cells(i, iCol).Value 'передаем переменной значение ячейки

shTrgt.Cells(iLastRow, 2).Resize(m) = model
shTrgt.Cells(iLastRow, 3).Resize(m) = view
shTrgt.Cells(iLastRow, 4).Resize(m) = Cells(i, 1).Value
If k = 0 Then
shTrgt.Cells(iLastRow, 5).Resize(m) = strDg
Else: shTrgt.Cells(iLastRow, 6).Resize(m) = strDo
End If

End If

Next i

Next iCol

End Sub



выделяет желтым цветом выделенную жирным строку..
а в черновике - работает

вот черновик:

Всё перепроверила. Deggasad, Minamoto, Hugo121 - спасибо!
помогло вот это:
Hugo121Про Val забыл... сразу и без пробелов, и в число:


но до следующей строки помогло...

теперь желтая -

..........
m = Cells(i, iCol).Value 'передаем переменной значение ячейки

shTrgt.Cells(iLastRow, 2).Resize(m) = model
shTrgt.Cells(iLastRow, 3).Resize(m) = view
shTrgt.Cells(iLastRow, 4).Resize(m) = Cells(i, 1).Value
If k = 0 Then
shTrgt.Cells(iLastRow, 5).Resize(m) = strDg
Else: shTrgt.Cells(iLastRow, 6).Resize(m) = strDo
..........

========================
я уже пошла на то, что перенесла весь чистовик в рабочий черновик!
хорошо работало! до создания последнего(!) макроса.
Опять та же ошибка!!! причем макрос тупо копировался с предыдущего, меняла только номера рассматриваемых строк!!

ой. конечно же m - заменила на предложенный Hugo121 !

а кто-нибудь может написать, как запретить выполнение команды, если не все требуемые поля заполнены.? ну там с MsgBox (так вроде?)) ..типа " не все поля заполнены".
и если да)), то куда его в приведенный мной выше пример вставить?
пожалуйста-пожалуйста-пожалуйста!!!

DeggasadУ вас в предыдущих примерах во многих ячейках стояли пробелы. Проверте.
ну конечно!!! пробелы!!
столько времени потеряла.

я сначала Вас не поняла)
стыдно спросить было, а как увидеть где пробелы и как их удалить.. позже дошло.
уффф...
спасибо всем. Мы справились!))