Как в xl отконсолидировать данные на месте(Ссумировать по столбцу С)

Просто суммируй ячейки что тут думать

да ссуммирую ручками ,потом стираю строку(удалять нельзя )и скрываю.
Хотелось бы - вношу данные и если ониповторяются хотя бы выдавалось сообщение.

Старуха
в смысле повторяются?
имеешь ввиду что если такое число уже есть в колонке С то его не надо вводить или суммировать?

Ну да - например: патинки -5
тругие патинки-10
патинки -7
Так вот что бы опять патинки т.е. 7 приплюсовывылось к пяти

Вот еще
Есть такой код Privet Sub cmdAdd_click()
If Not cboNumbers.MatchFound Then
cboNumbers.AddIthem cboNumbers.Text
End If
End Sub
Добавляет без повторения элеметов в поле со списком.
Нужо что бы он добавлял значения или выдавал Что такая запись есть и фокусировался на этой записи.

без самого xls файла трудно реализовать то что ты хочешь
в общих чертах - надо сделать форму для ввода данных и там обрабатывать все условия, если уже есть данные то + к тем что уже есть, если нет то значит вводим новые данные итд....

Форму я сделаю ,а вот это- если уже есть данные то + к тем что уже есть, если нет то значит вводим новые данные итд.... то что надо - готовый код смогу вставить , а сама написать нет.В xl - черта заломаю ,а VBA - с книжкой.

короче вот:
ПРИМЕР
сделай формочку с 2 кнопками "прибавить" и "убавить" и 2 textbox- ми
в макросе используются столбцы С и D
если чего не ясно - пиши

код такой: (можно улучшить но для примера пойдет)


Dim tovar As String ' наименование
Dim summa As Double ' сумма или количество
Dim teksos As String ' тек состояние ячейки
Dim q As Integer ' счетчик

'---прибавляем сумму---
Private Sub CommandButton1_Click()
tovar = TextBox1.Text
summa = CDbl(Replace(TextBox2.Text, ".", ",")) '-замена точек на запятые, чтоб ошибки не было
q = 1
Do
teksos = Range("C" & CStr(q))
If teksos = tovar Then
Range("D" & CStr(q)) = Range("D" & CStr(q)) + summa
Exit Sub
End If
q = q + 1
Loop Until teksos = ""
Range("C" & CStr(q - 1)) = tovar: Range("D" & CStr(q - 1)) = summa
End Sub


'---вычитаем сумму---
Private Sub CommandButton2_Click()
tovar = TextBox1.Text
summa = CDbl(Replace(TextBox2.Text, ".", ","))
q = 1
Do
teksos = Range("C" & CStr(q))
If teksos = tovar Then
Range("D" & CStr(q)) = Range("D" & CStr(q)) - summa
Exit Sub
End If
q = q + 1
Loop Until teksos = ""
Range("C" & CStr(q - 1)) = tovar: Range("D" & CStr(q - 1)) = summa
End Sub

Код забрала.Все остальное потом

Хорошая кнопочка.Все работает.Создала два столбца tovar , summa.Если нет добавляет ,если есть суммирует.Только не знаю куда Dim вставлять в general чтоли В режиме просмотра и без него все работает.

И еще - можно открыть подобную форму без макроса при старте
Добавлено @ 12:59
это вопрос

все dim вставляй сразу после option explisit т.е. в самый верх кода формы (т.е. перед Sub-ами)

-И еще - можно открыть подобную форму без макроса при старте-

ответ: форма и есть макрос без макроса и форма не появится или ты что то другое имеешь ввиду?

Насчет макроса все понятно.Еще усложняем задачу Имеем 4 столбца
А ,B,С, D A=B&C . И считывание идет уже не по С а по A.Надо что еще 2поля создавать или можно напрямую к столбцу привязаться А=tovar ну и три поля

ну да поменяй С на А в макросе
а что в ячейках В и С тогда будет?
и что такое А=В&С

Например В-Труба, С-200,D-5
A1=Труба 200 -5
A2=Труба 100 -3
A3=Короб 300 -1
Программа выдает расход металла по введенным параметрам.Ятеперь справлюсь.Спасибо.