приказ командира не обсуждается!

[mariavkin]

http://zalil.ru/32832776

[mariavkin]

гавно интернет и гавно заливка вышла, вечером нормально залью

[tae1980]

Сообщение от mariavkin

открываем 1 лист и видим что дело Сидорова прекращено (красным выделено), то есть нужно чтобы как только слово "прекращено" вбито, вся строка копировалась в лист "прекращение". Тоже самое со словом "возвращение",только в свой лист.
И самый смак, чтобы ВСЕ эти дела (исключая 3 последних листа: "возвращение","прекращение","ог л") копировались в "единый список" с нумерацией.
То есть например я вбил какое нидь дело в "петрозаводск" которое прекращено, а оно уже и в "прекращенных" и в "едином списке" стоит.
Там этих листов с делами много, я для примера только два оставил.
Это и есть мечта прокурора ^^

1. ИМХО нужно вести единый список (БД) по всем делам. При этом расширить строки на колонки "возвращение", "прекращение" куда вносить профильные отметки.
2. Добавлять и изменять дела только на этом листе.
3. Создать один рабочий лист, в которые по команде делать выборку дел по колонкам "возвращение", "прекращение".

Уточняю: как я понял дела могут быть многократно "возвращены", "прекращение". И информацию обо всех действиях нужно учитывать или можно запоминать только последнее действие?

[mariavkin]

К сожалению ничего нельзя изменять, мне дали задачу, я сразу к вам побежал=)
Ладно чтобы они просто копировались, так еще и нумеровались, и к тому же шли в "общий список" исключая 3 последних листа

С уважением замученный рядовой

[IgorGO]

см.вложение.
двойной клик по первой ячейке дела (в колонке А) скопирует ее в общий список и на соотв.лист (если делу положено туда). номера присваиваются по порядку.

[mariavkin]

Блин спасибо мужик большое))) всё работаеееет!!!! Армия тебя не забудет!
Пойду сдаваться командиру!

[IgorGO]

это работает пока только на листе "6. 301 ВП"
этот

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim c As Integer, r As Long, sh As String
  If Target.Column > 1 Then Exit Sub
  Cancel = True: On Error Resume Next: sh = "Единый список"
  r = WorksheetFunction.Match(Cells(Target.Row, 2), Sheets(sh).[B:B], 0)
  If Err.Number = 0 Then
    s = "Да - перезаписать," & Chr(10) & "Нет - ничего не делать"
    c = MsgBox(s, vbYesNo, "Дело  № " & Cells(Target.Row, 2) & "  (" & Cells(Target.Row, 3) & ")  есть в едином списке!")
  Else
    c = vbYes: Err.Clear: r = Sheets(sh).Cells(Rows.Count, 2).End(xlUp).Row + 1
  End If
  If c = vbYes Then
    Rows(Target.Row).Copy Destination:=Sheets(sh).Cells(r, 1)
    Sheets(sh).Cells(r, 1) = Sheets(sh).Cells(r - 1, 1) + 1
    sh = ""
    If Cells(Target.Row, 11) Like "Прекраще*" Then sh = "Прекращение"
    If Cells(Target.Row, 11) Like "Возвраще*" Then sh = "Возвращение"
    If sh <> "" Then
      r = WorksheetFunction.Match(Cells(Target.Row, 2), Sheets(sh).[B:B], 0)
      If Err.Number > 0 Then Err.Clear: r = Sheets(sh).Cells(Rows.Count, 2).End(xlUp).Row + 1
      Rows(Target.Row).Copy Destination:=Sheets(sh).Cells(r, 1)
      Sheets(sh).Cells(r, 1) = Sheets(sh).Cells(r - 1, 1) + 1
    End If
  End If
  On Error GoTo 0
End Sub

необходимо скопировать в модули остальных листов, с которых необходимо автоматом перекидывать данные.

[mariavkin]

да ну нафиг,лень) я просто накопирую этот лист, переименую и забъю туда все дела... их пока мало, начало года же

[Hugo121]

Странно лень выражается

[mariavkin]

полковник похвалил ^^