Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Редактирование выделенной строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 212»
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование выделенной строки (Макросы/Sub)
Редактирование выделенной строки
lebensvoll Дата: Понедельник, 25.07.2016, 10:53 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
Добрый день, уважаемые форумчане!!!
Признаюсь сразу данная тема имеет КРОСС: My WebPage но результата не достиг (((((.
Прошу вас подсказать что я сделал не так ((((
на листе "Журнал прихода" имеется кнопка "Редактировать запись выделенной строки" (CommandButton2) и когда оператор нажимает на нее то должна открыться "UserForm1"
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub
[/vba]
Это срабатывает и форма отображается заполненной (и если встать на пустую строку или ячейку то информирует что: "Вы выбрали пустую строку. Повторите попытку")
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки
    If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        'Это у нас загрузка данных выделеной строки согласно формы
                End If
End Sub

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
    Else
        Me.Caption = "База"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]
На форме есть кнопка "Сохранить редактирование выбранной строки" (CommandButton7) и если оператор ее нажимает то (после отредактированных данных по поставщику) данные должны будут сохраниться... И тут (в виду того что я удалил все коды на выпадающие списки на данной форме, выпадающих списков нет (((( я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((.
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.
Я правда не могу сообразить ПОЧЕМУ ТАК!?
Прошу вас подскажите что я делаю не так (((( не нужно прописывать код. Подскажите мои ошибки, пожалуйста.
[p.s.] То что не сохраняется после редактирования я так понимаю в моем коде нет кода сохранить (((( возможно я не прав... Но почему же "Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. "
К сообщению приложен файл: _01.xlsb(51Kb)


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеДобрый день, уважаемые форумчане!!!
Признаюсь сразу данная тема имеет КРОСС: My WebPage но результата не достиг (((((.
Прошу вас подсказать что я сделал не так ((((
на листе "Журнал прихода" имеется кнопка "Редактировать запись выделенной строки" (CommandButton2) и когда оператор нажимает на нее то должна открыться "UserForm1"
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub
[/vba]
Это срабатывает и форма отображается заполненной (и если встать на пустую строку или ячейку то информирует что: "Вы выбрали пустую строку. Повторите попытку")
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки
    If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        'Это у нас загрузка данных выделеной строки согласно формы
                End If
End Sub

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
    Else
        Me.Caption = "База"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]
На форме есть кнопка "Сохранить редактирование выбранной строки" (CommandButton7) и если оператор ее нажимает то (после отредактированных данных по поставщику) данные должны будут сохраниться... И тут (в виду того что я удалил все коды на выпадающие списки на данной форме, выпадающих списков нет (((( я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((.
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.
Я правда не могу сообразить ПОЧЕМУ ТАК!?
Прошу вас подскажите что я делаю не так (((( не нужно прописывать код. Подскажите мои ошибки, пожалуйста.
[p.s.] То что не сохраняется после редактирования я так понимаю в моем коде нет кода сохранить (((( возможно я не прав... Но почему же "Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. "

Автор - lebensvoll
Дата добавления - 25.07.2016 в 10:53
lebensvoll Дата: Понедельник, 25.07.2016, 11:03 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
Общий файл созданный вот такой
возможно понадобиться общая картина кодов
хотя сам вижу одну ошибку ((((
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
    Else
        Me.Caption = "База" 'вот тут должно быть так "Редактировать запись выделенной строки" ПРАВИЛЬНО или нет
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]
К сообщению приложен файл: 8692299.xlsb(94Kb)


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Понедельник, 25.07.2016, 11:05
 
Ответить
СообщениеОбщий файл созданный вот такой
возможно понадобиться общая картина кодов
хотя сам вижу одну ошибку ((((
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
    Else
        Me.Caption = "База" 'вот тут должно быть так "Редактировать запись выделенной строки" ПРАВИЛЬНО или нет
        Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 11:03
sboy Дата: Понедельник, 25.07.2016, 11:24 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.

при нажатии CommandButton1 вы показываете форму1, при инициализации которой у вас выполняется код
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
  ...
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
...
        End
[/vba]
 
Ответить
Сообщение
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.

при нажатии CommandButton1 вы показываете форму1, при инициализации которой у вас выполняется код
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
  ...
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
...
        End
[/vba]

Автор - sboy
Дата добавления - 25.07.2016 в 11:24
lebensvoll Дата: Понедельник, 25.07.2016, 11:32 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, я вас не понял (((
Когда я нажимаю кнопку CommandButton1 (все правильно должна открыться форма, но она должна была открыться пустой....и не выводить ошибку "Вы выбрали пустую строку. Повторите попытку".) а вот когда я нажимаю кнопку CommandButton2 то тогда должна была выводить ошибку если я стою на пустой строке или же открывать форму но заполненной данной согласно данными в строке...
А также при нажатии кнопки CommandButton7 сохранить отредактированные данные в данной строке (((((


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy, я вас не понял (((
Когда я нажимаю кнопку CommandButton1 (все правильно должна открыться форма, но она должна была открыться пустой....и не выводить ошибку "Вы выбрали пустую строку. Повторите попытку".) а вот когда я нажимаю кнопку CommandButton2 то тогда должна была выводить ошибку если я стою на пустой строке или же открывать форму но заполненной данной согласно данными в строке...
А также при нажатии кнопки CommandButton7 сохранить отредактированные данные в данной строке (((((

Автор - lebensvoll
Дата добавления - 25.07.2016 в 11:32
sboy Дата: Понедельник, 25.07.2016, 11:32 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((.

тут выполняется логическое условие
[vba]
Код
If Edit_Copy = "Edit" Then
[/vba]
я не нашел где вы передаете значение в эту переменную.
 
Ответить
Сообщение
я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((.

тут выполняется логическое условие
[vba]
Код
If Edit_Copy = "Edit" Then
[/vba]
я не нашел где вы передаете значение в эту переменную.

Автор - sboy
Дата добавления - 25.07.2016 в 11:32
sboy Дата: Понедельник, 25.07.2016, 11:36 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
lebensvoll, так у вас на Command1 и 2 один и тот же код выполняется) его надо править в зависимости от кнопки, например передать логическую переменную при нажатии. а от значения этой переменной, делать логику в форме.
 
Ответить
Сообщениеlebensvoll, так у вас на Command1 и 2 один и тот же код выполняется) его надо править в зависимости от кнопки, например передать логическую переменную при нажатии. а от значения этой переменной, делать логику в форме.

Автор - sboy
Дата добавления - 25.07.2016 в 11:36
lebensvoll Дата: Понедельник, 25.07.2016, 11:50 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, вы имеете в виду вот это???
Потому как меня лично оно смущает почему она указывает внедрить"Command1"
[img][/img]
а также меня смущает именно вот это???
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
[/vba]
Почему именно Initialize но если я начиная прописывать UserForm1 то вообще бред получается (((( форма тогда получается показывается пустой (((( что жать на Command1 или 2


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy, вы имеете в виду вот это???
Потому как меня лично оно смущает почему она указывает внедрить"Command1"
[img][/img]
а также меня смущает именно вот это???
[vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
[/vba]
Почему именно Initialize но если я начиная прописывать UserForm1 то вообще бред получается (((( форма тогда получается показывается пустой (((( что жать на Command1 или 2

Автор - lebensvoll
Дата добавления - 25.07.2016 в 11:50
RAN Дата: Понедельник, 25.07.2016, 12:10 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4277
Репутация: 829 ±
Замечаний: 0% ±

2010
:p
К сообщению приложен файл: 3886886.xlsb(73Kb)


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 25.07.2016, 12:11
 
Ответить
Сообщение:p

Автор - RAN
Дата добавления - 25.07.2016 в 12:10
sboy Дата: Понедельник, 25.07.2016, 12:17 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
я бы предложил убрать [vba]
Код
Private Sub UserForm_Initialize()
[/vba]
создать модуль и в нем макрос по редактированию, который у вас сейчас в UserForm_Initialize(), назовите его как-нибудь типа FormRedactor() и поменяйте Me на UserForm1
Изменить код нажатия Command2
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
Call Form_Redactor
End Sub
[/vba]
 
Ответить
Сообщениея бы предложил убрать [vba]
Код
Private Sub UserForm_Initialize()
[/vba]
создать модуль и в нем макрос по редактированию, который у вас сейчас в UserForm_Initialize(), назовите его как-нибудь типа FormRedactor() и поменяйте Me на UserForm1
Изменить код нажатия Command2
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
Call Form_Redactor
End Sub
[/vba]

Автор - sboy
Дата добавления - 25.07.2016 в 12:17
sboy Дата: Понедельник, 25.07.2016, 12:21 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
RAN, можно и так) просто я общий файл не смотрел
 
Ответить
СообщениеRAN, можно и так) просто я общий файл не смотрел

Автор - sboy
Дата добавления - 25.07.2016 в 12:21
lebensvoll Дата: Понедельник, 25.07.2016, 12:27 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
RAN, спасибо!!!
Вопросы и еще раз вопросы
В первую очередь получается что я должен был на листе прописать код для кнопки не так:
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub
[/vba]
а вот так
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Tag = "red"
UserForm1.Show

End Sub
[/vba]
Не могу понять причем тут красный???
Далее я должен был прописать также активацию кода на форме для кода (как то звучит бредово но я так понял)
[vba]
Код
Private Sub UserForm_Activate()
   Me.ComboBox1.RowSource = "Завод"
   Me.ComboBox2.RowSource = "Поставщик"
   Me.ComboBox3.RowSource = "Грузоперевозчик"
   Me.ComboBox4.RowSource = "ВидМатериала"
   Me.ComboBox5.RowSource = "Тара"
   Me.ComboBox6.RowSource = "Номенклатура"
   Me.ComboBox7.RowSource = "ВидЦемента"
   Me.ComboBox8.RowSource = "МашиныПривоза"
   Me.ComboBox9.RowSource = "МестоПриемки"
   Me.MonthView1.Visible = False
   If Me.Tag = "red" Then Call UserForm_Ini 'вот ваша активация вашего кода
End Sub
[/vba]
потом по самому коду т.е то что было ранее прописано
Цитата
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
его можно было бы обозвать как угодно т.е. как и у вас
[vba]
Код
Private Sub UserForm_Ini() 'код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки"
    Else
        Me.Caption = "Редактировать запись выделенной строки" 'правильно ли я указал загаловок
        Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеRAN, спасибо!!!
Вопросы и еще раз вопросы
В первую очередь получается что я должен был на листе прописать код для кнопки не так:
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub
[/vba]
а вот так
[vba]
Код
Private Sub CommandButton2_Click()
UserForm1.Tag = "red"
UserForm1.Show

End Sub
[/vba]
Не могу понять причем тут красный???
Далее я должен был прописать также активацию кода на форме для кода (как то звучит бредово но я так понял)
[vba]
Код
Private Sub UserForm_Activate()
   Me.ComboBox1.RowSource = "Завод"
   Me.ComboBox2.RowSource = "Поставщик"
   Me.ComboBox3.RowSource = "Грузоперевозчик"
   Me.ComboBox4.RowSource = "ВидМатериала"
   Me.ComboBox5.RowSource = "Тара"
   Me.ComboBox6.RowSource = "Номенклатура"
   Me.ComboBox7.RowSource = "ВидЦемента"
   Me.ComboBox8.RowSource = "МашиныПривоза"
   Me.ComboBox9.RowSource = "МестоПриемки"
   Me.MonthView1.Visible = False
   If Me.Tag = "red" Then Call UserForm_Ini 'вот ваша активация вашего кода
End Sub
[/vba]
потом по самому коду т.е то что было ранее прописано
Цитата
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
его можно было бы обозвать как угодно т.е. как и у вас
[vba]
Код
Private Sub UserForm_Ini() 'код для редактирования выделенной строки
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактировать запись выделенной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки"
    Else
        Me.Caption = "Редактировать запись выделенной строки" 'правильно ли я указал загаловок
        Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
    Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 12:27
lebensvoll Дата: Понедельник, 25.07.2016, 12:36 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, просто сама суть как раз таки в общем файле не так ли (((( просто многим не нравится что слишком много кодов и не любят разбираться (понять что куда и что от куда) и просят саму суть ((((( вопроса. А тут все завязано ведь на одной теме и на общих кодах (((( но на вопросы я так и жду ответа чтоб понять
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Понедельник, 25.07.2016, 12:40
 
Ответить
Сообщениеsboy, просто сама суть как раз таки в общем файле не так ли (((( просто многим не нравится что слишком много кодов и не любят разбираться (понять что куда и что от куда) и просят саму суть ((((( вопроса. А тут все завязано ведь на одной теме и на общих кодах (((( но на вопросы я так и жду ответа чтоб понять
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????

Автор - lebensvoll
Дата добавления - 25.07.2016 в 12:36
lebensvoll Дата: Понедельник, 25.07.2016, 12:45 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, RAN,
Цитата
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????

т.е. вот этим???? так ведь
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для сохранения отредактированных данных
    If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        Else
        With Sheets("Журнал прихода")
            Cells(iRow, 1) = Me.TextBox1
        .Cells(iRow, 23) = Me.TextBox2
        .Cells(iRow, 21) = Me.TextBox3
        .Cells(iRow, 5) = Me.ComboBox1
        .Cells(iRow, 2) = Me.ComboBox2
        .Cells(iRow, 24) = Me.ComboBox3
        .Cells(iRow, 6) = Me.ComboBox5
        .Cells(iRow, 4) = Me.ComboBox4
        .Cells(iRow, 3) = Me.ComboBox6
        .Cells(iRow, 25) = Me.ComboBox7
        .Cells(iRow, 26) = Me.ComboBox8
        .Cells(iRow, 22) = Me.TextBox4
        .Cells(iRow, 10) = Me.TextBox5
        .Cells(iRow, 27) = Me.ComboBox9
        .Cells(iRow, 7) = Me.TextBox6
        .Cells(iRow, 8) = Me.TextBox7
        .Cells(iRow, 13) = Me.TextBox8
            
        End With
    End If
End Sub
[/vba]


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy, RAN,
Цитата
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????

т.е. вот этим???? так ведь
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для сохранения отредактированных данных
    If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        Else
        With Sheets("Журнал прихода")
            Cells(iRow, 1) = Me.TextBox1
        .Cells(iRow, 23) = Me.TextBox2
        .Cells(iRow, 21) = Me.TextBox3
        .Cells(iRow, 5) = Me.ComboBox1
        .Cells(iRow, 2) = Me.ComboBox2
        .Cells(iRow, 24) = Me.ComboBox3
        .Cells(iRow, 6) = Me.ComboBox5
        .Cells(iRow, 4) = Me.ComboBox4
        .Cells(iRow, 3) = Me.ComboBox6
        .Cells(iRow, 25) = Me.ComboBox7
        .Cells(iRow, 26) = Me.ComboBox8
        .Cells(iRow, 22) = Me.TextBox4
        .Cells(iRow, 10) = Me.TextBox5
        .Cells(iRow, 27) = Me.ComboBox9
        .Cells(iRow, 7) = Me.TextBox6
        .Cells(iRow, 8) = Me.TextBox7
        .Cells(iRow, 13) = Me.TextBox8
            
        End With
    End If
End Sub
[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 12:45
sboy Дата: Понедельник, 25.07.2016, 12:51 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
Попытаюсь объяснить)
у вас автомат по приготовлению напитков. Вы создали на нем 2 кнопки "кипяток" и "кофе". При нажатии на любую из них выполнялась одна и та же программа Private Sub UserForm_Initialize() и соответственно варилось кофе).
Убрав слово Initialize() исключаем программу из событийных, т.е. автоматических при обращении к форме. Теперь у вас всегда "Кипяток", чтоб получилось "кофе" надо его добавить дополнительно.
Уважаемый RAN добавил вам тэг для "варки кофе" на кнопку. При открытии формы (наливаем кипяток), проверяется тэг на кофе (нет, останется кипяток, да - выполняем программу добавления кофе)
Я предлагал похожее, но менее изящное решение с отдельным макросом)
Надеюсь понятно объяснил
 
Ответить
СообщениеПопытаюсь объяснить)
у вас автомат по приготовлению напитков. Вы создали на нем 2 кнопки "кипяток" и "кофе". При нажатии на любую из них выполнялась одна и та же программа Private Sub UserForm_Initialize() и соответственно варилось кофе).
Убрав слово Initialize() исключаем программу из событийных, т.е. автоматических при обращении к форме. Теперь у вас всегда "Кипяток", чтоб получилось "кофе" надо его добавить дополнительно.
Уважаемый RAN добавил вам тэг для "варки кофе" на кнопку. При открытии формы (наливаем кипяток), проверяется тэг на кофе (нет, останется кипяток, да - выполняем программу добавления кофе)
Я предлагал похожее, но менее изящное решение с отдельным макросом)
Надеюсь понятно объяснил

Автор - sboy
Дата добавления - 25.07.2016 в 12:51
sboy Дата: Понедельник, 25.07.2016, 12:58 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
т.е. вот этим???? так ведь
зачем? совсем неправильно делать логику если истина то 1, если нет то тоже 1. просто уберите логическую конструкцию
У Вас там переменная Edit_Copy, видимо не используется (предположу, что осталась от исходного кода)
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        'Это у нас загрузка данных выделеной строки согласно формы
               ' End If
End Sub
[/vba]
 
Ответить
Сообщение
т.е. вот этим???? так ведь
зачем? совсем неправильно делать логику если истина то 1, если нет то тоже 1. просто уберите логическую конструкцию
У Вас там переменная Edit_Copy, видимо не используется (предположу, что осталась от исходного кода)
[vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
        'Это у нас загрузка данных выделеной строки согласно формы
               ' End If
End Sub
[/vba]

Автор - sboy
Дата добавления - 25.07.2016 в 12:58
lebensvoll Дата: Понедельник, 25.07.2016, 13:07 | Сообщение № 16
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, честно сказать я понял но сомневаюсь что верно (((((
Правильней было бы тогда сделать так:
Создать форму 2 по аналогии формы1 но с кнопками изменить и закрыть и если бы я на листе журнала нажимал кнопку редактировать выделенную строку то открывалась форма2 а не форма1 так было бы правильнее наверное...
и при нажатии на форме2 кнопки изменить то данные бы сохранялись...


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy, честно сказать я понял но сомневаюсь что верно (((((
Правильней было бы тогда сделать так:
Создать форму 2 по аналогии формы1 но с кнопками изменить и закрыть и если бы я на листе журнала нажимал кнопку редактировать выделенную строку то открывалась форма2 а не форма1 так было бы правильнее наверное...
и при нажатии на форме2 кнопки изменить то данные бы сохранялись...

Автор - lebensvoll
Дата добавления - 25.07.2016 в 13:07
sboy Дата: Понедельник, 25.07.2016, 13:17 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
lebensvoll, рисовать много одинаковых форм тоже не совсем правильно... можно сделать 1 форму со всеми нужными кнопками, но в зависимости от кнопки ее вызова, на самой форме включать/отключать видимость/активность необходимых
 
Ответить
Сообщениеlebensvoll, рисовать много одинаковых форм тоже не совсем правильно... можно сделать 1 форму со всеми нужными кнопками, но в зависимости от кнопки ее вызова, на самой форме включать/отключать видимость/активность необходимых

Автор - sboy
Дата добавления - 25.07.2016 в 13:17
lebensvoll Дата: Понедельник, 25.07.2016, 13:35 | Сообщение № 18
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy, RAN,
прошу меня простить ((((( но у меня что снова не получилось РУГАЕТСЯ КОД ((((
[img][/img]
вот сам код (как я понял):
[vba]
Код

Private Sub UserForm_Ini() 'код для "редактирования выбранной строки" загрузка данных на "UserForm1"
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактирование выбранной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированный данные"
    Else
        Me.Caption = "Редактирование выбранной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированный данные"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
        Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
    Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
End Sub
[/vba]
и он ругается почему на
[vba]
Код
Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
[/vba]
я просто решил изменить данные по
Цитата
Вес принятый к БУ по документам поставщика
на другое значение и ((((((
К сообщению приложен файл: 2535311.xlsb(99Kb)


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy, RAN,
прошу меня простить ((((( но у меня что снова не получилось РУГАЕТСЯ КОД ((((
[img][/img]
вот сам код (как я понял):
[vba]
Код

Private Sub UserForm_Ini() 'код для "редактирования выбранной строки" загрузка данных на "UserForm1"
    iRow = ActiveCell.Row
    If Cells(iRow, 2) = "" Then
        MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!"
        End
    End If
    If Edit_Copy = "Edit" Then
        Me.Caption = "Редактирование выбранной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированный данные"
    Else
        Me.Caption = "Редактирование выбранной строки"
        Me.CommandButton7.Caption = "Сохранить отредактированный данные"
        FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1
    End If
        Me.TextBox1 = Cells(iRow, 1)
        Me.TextBox2 = Cells(iRow, 23)
        Me.TextBox3 = Cells(iRow, 21)
        Me.ComboBox1 = Cells(iRow, 5)
        Me.ComboBox2 = Cells(iRow, 2)
        Me.ComboBox3 = Cells(iRow, 24)
        Me.ComboBox5 = Cells(iRow, 6)
        Me.ComboBox4 = Cells(iRow, 4)
        Me.ComboBox6 = Cells(iRow, 3)
        Me.ComboBox7 = Cells(iRow, 25)
        Me.ComboBox8 = Cells(iRow, 26)
        Me.TextBox4 = Cells(iRow, 22)
        Me.TextBox5 = Cells(iRow, 10)
        Me.ComboBox9 = Cells(iRow, 27)
        Me.TextBox6 = Cells(iRow, 7)
        Me.TextBox7 = Cells(iRow, 8)
        Me.TextBox8 = Cells(iRow, 13)
    End Sub
    Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
        Cells(iRow, 23) = Me.TextBox2
        Cells(iRow, 21) = Me.TextBox3
        Cells(iRow, 5) = Me.ComboBox1
        Cells(iRow, 2) = Me.ComboBox2
        Cells(iRow, 24) = Me.ComboBox3
        Cells(iRow, 6) = Me.ComboBox5
        Cells(iRow, 4) = Me.ComboBox4
        Cells(iRow, 3) = Me.ComboBox6
        Cells(iRow, 25) = Me.ComboBox7
        Cells(iRow, 26) = Me.ComboBox8
        Cells(iRow, 22) = Me.TextBox4
        Cells(iRow, 10) = Me.TextBox5
        Cells(iRow, 27) = Me.ComboBox9
        Cells(iRow, 7) = Me.TextBox6
        Cells(iRow, 8) = Me.TextBox7
        Cells(iRow, 13) = Me.TextBox8
End Sub
[/vba]
и он ругается почему на
[vba]
Код
Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
    'If Edit_Copy = "Edit" Then
        Cells(iRow, 1) = Me.TextBox1
[/vba]
я просто решил изменить данные по
Цитата
Вес принятый к БУ по документам поставщика
на другое значение и ((((((

Автор - lebensvoll
Дата добавления - 25.07.2016 в 13:35
lebensvoll Дата: Понедельник, 25.07.2016, 13:58 | Сообщение № 19
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
sboy,
или же я должен написать так вот
[vba]
Код
Option Explicit
Private Sub UserForm_Ini()
        Me.TextBox1 = [A1]
        Me.TextBox2 = [W23]
        Me.TextBox3 = [U21]
        Me.ComboBox1 = [A5]
        Me.ComboBox2 = [A2]
        Me.ComboBox3 = [A24]
        Me.ComboBox5 = [A6]
        Me.ComboBox4 = [A4]
        Me.ComboBox6 = [A3]
        Me.ComboBox7 = [A25]
        Me.ComboBox8 = [A26]
        Me.TextBox4 = [A22]
        Me.TextBox5 = [A10]
        Me.ComboBox9 = [A27]
        Me.TextBox6 = [A7]
        Me.TextBox7 = [A8]
        Me.TextBox8 = [A13]
End Sub
[/vba]


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеsboy,
или же я должен написать так вот
[vba]
Код
Option Explicit
Private Sub UserForm_Ini()
        Me.TextBox1 = [A1]
        Me.TextBox2 = [W23]
        Me.TextBox3 = [U21]
        Me.ComboBox1 = [A5]
        Me.ComboBox2 = [A2]
        Me.ComboBox3 = [A24]
        Me.ComboBox5 = [A6]
        Me.ComboBox4 = [A4]
        Me.ComboBox6 = [A3]
        Me.ComboBox7 = [A25]
        Me.ComboBox8 = [A26]
        Me.TextBox4 = [A22]
        Me.TextBox5 = [A10]
        Me.ComboBox9 = [A27]
        Me.TextBox6 = [A7]
        Me.TextBox7 = [A8]
        Me.TextBox8 = [A13]
End Sub
[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 13:58
sboy Дата: Понедельник, 25.07.2016, 14:24 | Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
lebensvoll, ругается на iRow (там пусто)
добавьте в код[vba]
Код
iRow = ActiveCell.Row
[/vba]
 
Ответить
Сообщениеlebensvoll, ругается на iRow (там пусто)
добавьте в код[vba]
Код
iRow = ActiveCell.Row
[/vba]

Автор - sboy
Дата добавления - 25.07.2016 в 14:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование выделенной строки (Макросы/Sub)
Страница 1 из 212»
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!