Редактирование выделенной строки

Дата: Понедельник, 25.07.2016, 10:53 | Сообщение № 1

Группа: Проверенные

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

Сообщений: 1002

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

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

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) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. "

Код

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Код

К сообщению приложен файл: _01.xlsb (51.0 Kb)

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

СообщениеДобрый день, уважаемые форумчане!!!
Признаюсь сразу данная тема имеет КРОСС: My WebPage но результата не достиг (((((.
Прошу вас подсказать что я сделал не так ((((
на листе "Журнал прихода" имеется кнопка "Редактировать запись выделенной строки" (CommandButton2) и когда оператор нажимает на нее то должна открыться "UserForm1"
[vba]

Код

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Код

Автор - lebensvoll
Дата добавления - 25.07.2016 в 10:53

Дата: Понедельник, 25.07.2016, 11:03 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 1002

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

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

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]

Общий файл созданный вот такой
возможно понадобиться общая картина кодов
хотя сам вижу одну ошибку ((((
[vba]

Код

[/vba]lebensvoll

К сообщению приложен файл: 8692299.xlsb (94.4 Kb)

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

Сообщение отредактировал lebensvoll - Понедельник, 25.07.2016, 11:05

СообщениеОбщий файл созданный вот такой
возможно понадобиться общая картина кодов
хотя сам вижу одну ошибку ((((
[vba]

Код

[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 11:03

Дата: Понедельник, 25.07.2016, 11:24 | Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата lebensvoll, 25.07.2016 в 10:53, в сообщении № 1

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

при нажатии CommandButton1 вы показываете форму1, при инициализации которой у вас выполняется код
[vba]

Код

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
  ...
        MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!"
...
        End

[/vba]

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 11:32 | Сообщение № 4

Группа: Проверенные

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

Сообщений: 1002

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

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

Excel 2010

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

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

Дата: Понедельник, 25.07.2016, 11:32 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата lebensvoll, 25.07.2016 в 10:53, в сообщении № 1

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

тут выполняется логическое условие
[vba]

Код

If Edit_Copy = "Edit" Then

[/vba]
я не нашел где вы передаете значение в эту переменную.

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 11:36 | Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

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

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 11:50 | Сообщение № 7

Группа: Проверенные

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

Сообщений: 1002

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

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

Excel 2010

sboy, вы имеете в виду вот это???
Потому как меня лично оно смущает почему она указывает внедрить"Command1"
[img]

[/img]
а также меня смущает именно вот это???
[vba]

Код

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
iRow = ActiveCell.Row
If Cells(iRow, 2) = "" Then

[/vba]
Почему именно Initialize но если я начиная прописывать UserForm1 то вообще бред получается (((( форма тогда получается показывается пустой (((( что жать на Command1 или 2

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

RAN

Дата: Понедельник, 25.07.2016, 12:10 | Сообщение № 8

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

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

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

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

Дата: Понедельник, 25.07.2016, 12:17 | Сообщение № 9

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

я бы предложил убрать [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]

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 12:21 | Сообщение № 10

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

RAN, можно и так) просто я общий файл не смотрел

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 12:27 | Сообщение № 11

Группа: Проверенные

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

Сообщений: 1002

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

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

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]

Код

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

[/vba]
а вот так
[vba]

Код

Private Sub CommandButton2_Click()
UserForm1.Tag = "red"
UserForm1.Show

End Sub

Код

[/vba]
потом по самому коду т.е то что было ранее прописано

Цитата

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки

его можно было бы обозвать как угодно т.е. как и у вас
[vba]

Код

[/vba]lebensvoll

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

СообщениеRAN, спасибо!!!
Вопросы и еще раз вопросы
В первую очередь получается что я должен был на листе прописать код для кнопки не так:
[vba]

Код

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

[/vba]
а вот так
[vba]

Код

Private Sub CommandButton2_Click()
UserForm1.Tag = "red"
UserForm1.Show

End Sub

Код

[/vba]
потом по самому коду т.е то что было ранее прописано

Цитата

Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки

его можно было бы обозвать как угодно т.е. как и у вас
[vba]

Код

[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 12:27

Дата: Понедельник, 25.07.2016, 12:36 | Сообщение № 12

Группа: Проверенные

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

Сообщений: 1002

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

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

Excel 2010

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

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

Сообщение отредактировал lebensvoll - Понедельник, 25.07.2016, 12:40

Дата: Понедельник, 25.07.2016, 12:45 | Сообщение № 13

Группа: Проверенные

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

Сообщений: 1002

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

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

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]

Код

[/vba]lebensvoll

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

Сообщениеsboy, RAN,

Цитата

т.е. вот этим???? так ведь
[vba]

Код

[/vba]

Автор - lebensvoll
Дата добавления - 25.07.2016 в 12:45

Дата: Понедельник, 25.07.2016, 12:51 | Сообщение № 14

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

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

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 12:58 | Сообщение № 15

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата lebensvoll, 25.07.2016 в 12:45, в сообщении № 13

т.е. вот этим???? так ведь

зачем? совсем неправильно делать логику если истина то 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]

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 13:07 | Сообщение № 16

Группа: Проверенные

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

Сообщений: 1002

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

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

Excel 2010

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

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

Дата: Понедельник, 25.07.2016, 13:17 | Сообщение № 17

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

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

Яндекс: 410016850021169

Дата: Понедельник, 25.07.2016, 13:35 | Сообщение № 18

Группа: Проверенные

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

Сообщений: 1002

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

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

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]
я просто решил изменить данные по

Цитата

Вес принятый к БУ по документам поставщика

на другое значение и ((((((

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

[/img]
вот сам код (как я понял):
[vba]

Код

[/vba]
и он ругается почему на
[vba]

Код

Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
'If Edit_Copy = "Edit" Then
Cells(iRow, 1) = Me.TextBox1

[/vba]
я просто решил изменить данные по

Цитата

Вес принятый к БУ по документам поставщика

на другое значение и ((((((lebensvoll

К сообщению приложен файл: 2535311.xlsb (99.5 Kb)

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

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

[/img]
вот сам код (как я понял):
[vba]

Код

[/vba]
и он ругается почему на
[vba]

Код

Private Sub CommandButton7_Click() 'код для "Сохранить отредактированный данные"
'If Edit_Copy = "Edit" Then
Cells(iRow, 1) = Me.TextBox1

[/vba]
я просто решил изменить данные по

Цитата

Вес принятый к БУ по документам поставщика

на другое значение и ((((((

Автор - lebensvoll
Дата добавления - 25.07.2016 в 13:35

Дата: Понедельник, 25.07.2016, 13:58 | Сообщение № 19

Группа: Проверенные

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

Сообщений: 1002

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

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

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]

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

Дата: Понедельник, 25.07.2016, 14:24 | Сообщение № 20

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

lebensvoll, ругается на iRow (там пусто)
добавьте в код[vba]

Код

iRow = ActiveCell.Row

[/vba]

Яндекс: 410016850021169