Подредоктировать код на кнопке "Добавить"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подредоктировать код на кнопке "Добавить" (Макросы Sub)

mironi

Дата: Суббота, 12.10.2013, 11:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Уважаемые знатоки! Я начинающий новичок,сам формулы не умею писать ,если можете помогите.Вопросы в примере.Заранее благодарен!

К сообщению приложен файл: 9017861.xlsm (36.7 Kb)

Ответить

_Boroda_

Дата: Суббота, 12.10.2013, 12:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16743

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Перепишите окончание кода так
[vba]

Код

    'Range("C" & LR + 0).Select ' переходим в первую свободную ячейку' До кучи - и эту строку можно удалить
        Range("C" & LR & ":AG" & LR) = 8' Новая строка
'    ActiveCell.FormulaR1C1 = "8" ' Эту строку можно удалить
'Selection.AutoFill Destination:=Range("C3:AG3"), Type:=xlFillDefault' И эту строку можно удалить
TextBox1.Text = ""
ComboBox1.Text = ""
End Sub

[/vba]
Про "несдвигаемый" подвал - вариант в файлею
И еще убрал переход на вспомогательный лист при выборе профессии.
Судя по куску кода, приложенного выше, там еще кучу всего поубивать можно. А может, даже и нужно.

К сообщению приложен файл: 9017861_2.xlsm (40.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

mironi

Дата: Суббота, 12.10.2013, 14:21 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Уважаемый Boroda очень благодарен за первый вопрос.Сам бы никогда не догадался.А по второму вопросу если можно уточните "вариант в файлею"
это что такое,я первый раз такое словосочетание слышу?

Ответить

AndreTM

Дата: Суббота, 12.10.2013, 15:09 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

mironi, "ю" - это точка по-аглицки....

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

mironi

Дата: Суббота, 12.10.2013, 15:39 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Извините за глупые вопросы, насчет точки понял.А про "вариант в файле"- он что изменен или что?В приложенном Вами файле строка как поднималась и опускалась так и продолжается?

Ответить

mironi

Дата: Суббота, 12.10.2013, 15:59 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Все понял и разобрался.Не заметил внизу строчку.Еще раз большое спасибо!

Ответить

mironi

Дата: Воскресенье, 13.10.2013, 02:32 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Уважаемый Boroda я поспешил отчитаться что все понял.Не получается второй вопрос.Я Ваш рисунок на листе табель удалил, создал новый на листе табель и скопировал текст со второго листа на лист табель в рисунок.Вроде внешне все совпадает но строка опять при удалении фамилии скачет вверх.Целый день просидел так и не смог догадаться.Если не трудно то раскажите что я делаю неправильно?Пример с моим файлом прикрепляю.

К сообщению приложен файл: 0129094.xlsm (40.2 Kb)

Ответить

Подредоктировать код на кнопке "Добавить" (Макросы Sub)

Страница 1 из 1
1