да нет здесь надо как то вроде задать массив

Без базара сразу бы так.

Да какая разница помогите уж если знаете и отстану.

А поможешь мне в этом я с массивами не разу не сталкивался мне только надо узнать как проверить в массиве есть текущее значение или нет.

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

Вот сделал
Private Sub CommandButton2_Click()
Dim a As Integer
a = 4
j = 1
For i = 2 To 10
If Cells(i, 2) = a Then
       Worksheets("Ëèñò2").Range("A" & j, "M" & j).Value = Worksheets("Ëèñò1").Range("A" & i, "M" & i).Value
       j = j + 1
Else
   Cells(j, 11) = ""
End If
Next i
End Sub

Private Sub CommandButton2_Click()
Dim a As Integer
a = 4
j = 1
For i = 2 To 10
If Cells(i, 2) = a Then
 Worksheets("Ëèñò2" ;) .Range("A" & j, "M" & j).Value = Worksheets("Ëèñò1" ;) .Range("A" & i, "M" & i)
 j = j + 1
Else
   Cells(j, 11) = ""
End If
Next i
End Sub


что то похожее на это только эт тож чет не работает?

А теперь как можно из этого надо просто копировать строку и вставить на другой лист.
If Cells(i, 2) = a Then
   Cells(j, 11) = i

Вот спасибо большое уже 1/3 дела сделано.

А как насчет моей функции что она не работает

Как с помощью вба по условию найти в массиве элементы и вынести в другую строку их номера строк.
вот код только он пишет почему то только № последнего числа. Где ошибка?
Dim a As Integer
a = 4
For j = 1 To 20 Step 1
For i = 2 To 10
If Range("B" & i) = a Then Range("K" & j) = i
Else: Range("K" & j) = ""
Next i
Next j

Легко пример кидай

Я нормальный человек и у каждого человека свои понятия о том что хорошо и плохо и я не вижу в этом необхадимости и неуважения к другому человеку.

И к чему это?

Смотря как посмотреть.

Да ладно здесь работы помоги уж плз

Вообще то я так и задумал только не знаю как реализовать? Не поможешь хотяб началом

Добрый день. Все в таблице. посмотрите плз.

Мне нужно найти значение которое находиться в диапазоне и вывести его № строки и это все в массиве как это можно сделать через VBA

Добрый вечер. Тема у меня много кого тревожит можно ли или перефразирую как в Excel сделать раскрывающий список который из выпадающего списка выводил похожие значения вот
например

не мне именно надо только только одну ячейку

О как раз что то в этом роде разработал. Могу сделать. Обращайтесь пока на майл или мне с этого сайта отправьте сообщение далее договоримся.

Здравствуйте пожалуйста подскажите как закрепить Combobox чтобы при прокрутки колесика двигалась только таблица.

Круто можно попробовать ну тут без vba ни как только за спс

Привет. Короче вот такая проблемка вот есть код s = Range("O2").Value
s = s + 1
Range("O2").Value = s
Worksheets("реестр").Unprotect "1"
Worksheets("реестр").Range("B" & s) = Range("B2")
Worksheets("реестр").Range("C" & s) = Range("C2")
Worksheets("реестр").Range("D" & s) = Range("D2")
Worksheets("реестр").Range("E" & s) = Range("E2")
Worksheets("реестр").Range("F" & s) = Range("F2")
Worksheets("реестр").Range("G" & s) = Range("G2")
Worksheets("реестр").Range("H" & s) = Range("H2")
Worksheets("реестр").Range("I" & s) = Range("I2")
Worksheets("реестр").Range("J" & s) = Range("J2")
Worksheets("реестр").Range("K" & s) = Range("K2")
Worksheets("реестр").Protect "1"

Надо создать условие чтобы если это условие верно то все выполняеться а если не выполняетья

Если честно я читал и читаю про циклы вчера прочитал вот прикол я по образованию техник все раньше норм шарил а потом в армейку сходил и все писец.

Здравствуйте. Подскажите пожалуйта как прописать условие через If если в указаных ячейках есть текст то появляеться кнопка CMD1 а если пока не выполнено условие то она Visible=false

Слушайте а как значение из ComboBox1 вывести в ячейку без VBA с помощью функций Excel

Логично спасибо над было лучше английский учить.)))

А как опять закрыть под пароль