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

Если честно, то вообще не понятно, но работает
В любом случае огромное спасибо  

Спасибо большое, формула работает, не не понятно что означает запись G2&"*"?

Друзья, прошу помощи с формулой СУММЕСЛИМН()!
Запись такая F2=СУММЕСЛИМН(C:C;ЛЕВСИМВ(B:B;1);G2)
Условие таково, что если G2=ЛЕВСИВ(B:B;1), то выполняется выборочное суммирование в столбце C:C

И снова всех приветствую. Поэкспериментировал с формулами, но почему-то ничего не получается.
Может кто-нибудь подсказать, что я делаю не так?

Без VBA никак?

И снова всем доброго времени суток!
Друзья, подскажите пожалуйста, как обернуть выплывающий список, чтобы чтобы когда начинаешь вводить в него значения в нем появлялось подходящее значение?

Согласен, может не по теме.

Подскажите пожалуйста, как можно обернуть всплывающий список, чтобы при записи в него автоматически высвечивались подходящие значения?

Спасибо за совет, попробую  

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

Доброго времени суток, дорогие друзья, подскажите пожалуйста как подставить значения из одной таблицы в другую без макросов, чтобы проводились вычисления?

В любом случае спасибо)

Спасибо большое!
Почему yf = yf+1?
Мы же не задавали для этой переменной числового значения

А Фильтр() тоже можно в VBA() написать?

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

Здравствуйте, уважаемые форумчане. Заранее извиняюсь, если подобная тема уже есть.
Исходные значения - общая таблица наименований по категориям
Цель - перенести наименование соответствующее одной категории в отдельную таблицу.
Проблема - значения переносятся, но заполняется таблица не с первой строки

Sub Продукты()
Dim tbSum, tb1 as ListObject
Dim Sheet1 as WorkSheet
Dim i as Long

Set Sheet1 = ThisWorkBook.Worksheets("Продукты")
Set tbSum = Sheet1.ListObjects("СписокПродукты")
Set tb1 = Sheet1.ListObjects("СписокФрукты")

For i = 1 to tbSum.DataBodyRange.Cells.Count

If tbSum.Range(i, 6) = "фрукты"  Then
tb1.Range(i, 2) = tbSum.Range(i, 4)
End If
Next
End Sub()

Подскажите пожалуйста как сделать так, чтобы значения заполнялись в tb1 с первой строки.

Смысл в том, что ячейки удаляются при выделении хотя бы одной в умной таблице.
Но удаляется строка, в которой выбрана ячейка со всего листа

И снова здравствуйте)
Снова возник вопрос. Если на лист добавляем другую умную таблицу, то макрос перестает работать(

Спасибо большое)

Для чего этот кусок нужен был с переменной iTbl?

With ActiveSheet
 Set iTbl = .Range(.Cells(2, 3), .Cells(.Cells(.Rows.Count, "C").End(xlUp).Row, 4))
End With

Блииин....
If Not Intersect(ActiveCell, Worksheets("Лист1").ListObjects("ЕвгенМагадан").DataBodyRange) Is Nothing Then
 ActiveCell.EntireRow.Delete
Так не догадался(((
Все гениальное просто)

Dim iTbl is Range
sh as worksheet
table as listobject

set sh = ThisWorkBook.Worksheets("Лист1")
set table = sh.ListObjects("Таблица1")

On Error Resume Next
Application.ScreenUpdating = False
With sh.DataBodyRange
 Set iTbl = table.DataBodyRange.Range(.Cells, .Cells(.Cells(.Rows.Count).End(xlUp).Row))
End With
If Not Intersect(ActiveCell, iTbl) Is Nothing Then
 ActiveCell.EntireRow.Delete
End If
Application.ScreenUpdating = True
End Sub

Я вручную его набирал)

Всё-таки без помощи гуру мне не обойтись...
Надеюсь, что правильно сформулирую.
Не получается данные условия привязать к умной таблице,
чтобы строки удалялись внутри умной таблице, а не со всего листа

Думаю, что этого достаточно)
Я просто стараюсь сам разобраться, на форум уже в крайних случаях обращаюсь
Спасибо, Sanja!!!!
Крепкого здоровья и рабочих кодов)))

В принципе разобрался.
Нужно просто не указывать номера столбцов в шестой строке кода

Спасибо.
Единственное, только я не понял как это работает)
Здесь макрос работает если выбрать 3 или 4 столбец на любом листе.
А возможно ли сделать так, чтобы макрос работал, когда ячейка выбирается в любом столбце?

Просто нужно удалять строку, когда в ней выбирают любую ячейку

Это любая таблица, с любыми значениями