Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » icemen
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Автоматический перенос строки на другой лист при условии
 
#
20.10.2015 19:03:23
JayBhagavan, огромное спасибо за помощь. Вроде все заработало, делаю анализы по работе. Еще раз большое спасибо!!!! Успехов во всем!
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
16.10.2015 20:55:38
Спасибо большое, все получается, по аналогии с Вашим кодом добавил в копию еще поля Сумма и Сотрудник.
Код
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wbf As Worksheet, wbd As Worksheet, c_row&, l_row&
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("H:H")) Is Nothing Then
    If Target.Value = "ЗАКР" Then
            Application.EnableEvents = False
            c_row = Target.Row
            Set wbf = ThisWorkbook.Worksheets("Заявки")
            Set wbd = ThisWorkbook.Worksheets("Выдачи")
            wbd.ListObjects.Item("Таблица2").ListRows.Add
            l_row = wbd.Range("A1").End(xlDown).Row
            wbd.Range("B" & l_row).Value = wbf.Range("B" & c_row).Value
            wbd.Range("C" & l_row).Value = wbf.Range("D" & c_row).Value
            wbd.Range("I" & l_row).Value = wbf.Range("F" & c_row).Value
            wbd.Range("J" & l_row).Value = wbf.Range("G" & c_row).Value
            wbd.Range("H" & l_row).Value = wbf.Range("I" & c_row).Value
            wbd.Range("M" & l_row).Value = wbf.Range("J" & c_row).Value
            Application.EnableEvents = True
        End If
    End If
End Sub
Но кода я начинаю вводить в строку в листе Выдачи дополнительные данные, например Договор, Дата, Выдача и т.д., то при очередном проставлении статуса ЗАКР на другой заявке, уже отработанная в листе Выдачи затирается новой. Можно ли это исправить.
Еще раз спасибо за помощь, Вы меня очень сильно выручаете...
Изменено: icemen - 16.10.2015 20:57:20
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
15.10.2015 21:00:04
При установке статуса ЗАКР на заявке в листе Заявки она должна копироваться в лист Выдачи, при этом не вся строка, а только поля Канал (D Заявки -> C Выдачи), Программа (F Заявки -> H Выдачи), Страхование (G Заявки -> I Выдачи) ну и соответственно поле ФИО в поле ФИО. Строки в листе Выдачи должны формироваться последовательно, в соответствии с проставленным статусом ЗАКР в листе Заявки.
Помогите, пожалуйста, с реализацией.
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
15.10.2015 14:21:29
Прошу прощения за назойливость.
Задача в том, некоторые Заявки при положительном решении выдаются и при проставлении статуса ЗАКР должны частично (те столбцы строкИ которые я Вам описывал выше) копироваться в лист Выдачи последовательно, в зависимости от проставленного статуса.
Еще раз благодарю за помощь.
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
15.10.2015 12:44:54
Делаю как и описывал уже с новым кодом, но у меня все равно подгружаются не те данные в лист "Выдача". Скрин прикладываю.
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
15.10.2015 07:55:01
Пожалуйста...
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
14.10.2015 19:14:01
Не знаю сейчас правильно Вас понял или нет, но я ПКМ на вкладке "Заявки", Исходный текст в окно вставил код, который вы прислали, сохранил и пру проставлении статуса ЗАКР у меня выдает ошибку. Извините, если я делаю не правильно, в этом у меня мало опыта. Заранее еще раз большое спасибо.

wbd.Range("Таблица2[#Totals]").ListObject.ListRows.Add - в коде выделяется ЖЕЛТЫМ.
Изменено: icemen - 14.10.2015 19:17:59
 
Перейти    
Автоматический перенос строки на другой лист при условии
 
#
13.10.2015 20:46:46
Здравствуйте!
Огромное спасибо за Ваши подсказки, многие мне очень хорошо помогли.
Но у меня так и не получается перенести из одного листа (Заявки) в другой (Выдачи) не всю строку, а только ее часть ( из D (Заявки) - в C (Выдачи), из F (Заявки) - в H (Выдачи), из G (Заявки) - в I (Выдачи)). Все работает при смене статуса (Ячейка H (Заявки)).
Огромная просьба помочь в данной ситуации. Заранее большое спасибо!
 
Перейти    
Страницы: 1
Наверх