{quote}{login=Caste}{date=05.08.2009 02:16}{thema=}{post}а нет вот верный вариант, придыдущи считать не верным заранее спасибо за помощь!{/post}{/quote}
вот я примерно сделал.. а как сделать так чтоб после нажатия "ОК" форма ввода закрылась? Private Sub cmndbOK_Click() Dim lLastRow As Long lLastRow = Cells(Rows.Count, 2).End(xlUp).Row Cells(lLastRow + 1, 2) = Cells(lLastRow, 2) + 1 '№п/п Cells(lLastRow + 1, 3) = Date + Time 'Дата/время Cells(lLastRow + 1, 4) = Me.txtbPhoneNumber 'Номер тел. Cells(lLastRow + 1, 5) = Me.cmbxFIOWorker 'ФИО работника Cells(lLastRow + 1, 6) = Me.txtbFIOClient 'ФИО клиента Cells(lLastRow + 1, 7) = Me.txtbCallTarget 'Цель звонка Cells(lLastRow + 1, 8) = Me.txtbDuration 'Длительность End Sub
Private Sub UserForm_Initialize() Dim NoDupes As New Collection, Item Dim lLastRow As Long, li As Long lLastRow = Cells(Rows.Count, 5).End(xlUp).Row For li = 6 To lLastRow If Cells(li, 5) <> "" Then On Error GoTo NEXT_ NoDupes.Add Cells(li, 5), CStr(Cells(li, 5)) cmbxFIOWorker.AddItem Cells(li, 5) End If NEXT_: Next li On Error GoTo 0 End Sub
вот примерно накидал посмотрите пжста. ФИО работника нужно выбрать из списка. можноли сделать так чтоб при вводе номера телефона остально выходила автоматом если до этого был введен этот клиент?!
{quote}{login=Микки}{date=05.08.2009 09:19}{thema=Re: }{post}{quote}{login=Caste}{date=05.08.2009 09:03}{thema=}{post}Добрый день! Нужна ваша помощь! Подскажите пжста как это делается т.е. в прикрепленном файле есть кнопочка «отобразить форму ввода» кнопку на подобие этого.{/post}{/quote} Рисуете свою форму111, пишите макрос с Form111.Show , и цепляете его на кнопочку, Вы об этом?{/post}{/quote}
да, вы можете мне по почте написать? muhashov@bc.kz заранее благодарен!
Добрый день! Нужна ваша помощь! Подскажите пжста как это делается т.е. в прикрепленном файле есть кнопочка «отобразить форму ввода» кнопку на подобие этого.