Сложение данных в разных ячейках

[IgorGO]

результат операции сравнения ячейки с датой и пустой строки

загадочная фраза. Я могу подсказать, что я ячейка с датой всегда больше пустой строки, зачем сравнивать, если результат очевиден?

Чего-то я не пойму как работает эта формула

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

[viter.alex]

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

загадочная фраза. Я могу подсказать, что я ячейка с датой всегда больше пустой строки, зачем сравнивать, если результат очевиден?…

Нужно определить есть в ячейке дата или нет, т.е. если результат False, то при умножении на массу в той же строке получим ноль.

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

…А серьезно, готов обьяснить логику любой из тех, что написал... только дайте ее в контексте (на листе с данными).

Давай с утра, я уже не соображаю.

[viter.alex]

Получилось!!!!!
Сделал, так как и думал. IgorGO, огромное спасибо. Дякую, дядьку!

[viter.alex]

EducatedFool, при выполнении макроса из 8 поста происходит ошибка. Дело в том, что мы копируем лист вместе с процедурой, которая реагирует на изменение листа. Соответственно, когда делаем .UsedRange.Offset(2).Clear, то вызывается эта процедура Worksheet_Change(ByVal Target As Range) и дает ошибку.
Выхода 3:

1. Удалить процедуру из листа сразу после копирования
2. Копировать без процедуры
3. Копировать только нужный диапазон ячеек

[EducatedFool]

вызывается эта процедура Worksheet_Change(ByVal Target As Range) и дает ошибку

Так, может, подправить код как раз в этой процедуре?

Выхода 3:
Удалить процедуру из листа сразу после копирования
Копировать без процедуры
Копировать только нужный диапазон ячеек

Удалить процедуру из листа - не проблема.

Но зачем, если можно просто на время выполнения макроса отключить обработку событий...
Например, так:

Sub test2()
    On Error Resume Next    ' пригодится :)
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    Application.EnableEvents = False    ' отключаем обработку событий
    
    For Each oWorksheet In ThisWorkbook.Worksheets
        oWorksheet.Copy ThisWorkbook.Worksheets(1)    ' копируем лист (новый лист становится активным)
        With ActiveSheet
            .UsedRange.Offset(2).Clear    ' стираем всё, начиная с 3-й строки
            .Name = "Изменения в «" & oWorksheet.Name & "»"
        End With
    Next oWorksheet
    
    Application.EnableEvents = True    ' включаем снова обработку событий
End Sub

[viter.alex]

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

Так, может, подправить код как раз в этой процедуре? …

Вот именно!

Public Sub fWriteChanges(ByVal Target As Range)
  On Error GoTo ErrorHandler
  Dim oEditedRow As Object
  Set oEditedRow = Worksheets("Изменения в «" & Target.Worksheet.Name & "»").Rows(Target.Row) ' строка для вставки на листе ИЗМЕНЕНИЯ
  Target.EntireRow.Copy oEditedRow    ' копируем строку
  oEditedRow.Cells(Target.Column).Interior.Color = vbCyan ' окрашиваем изменённую ячейку
ErrorHandler:
End Sub

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

…Удалить процедуру из листа - не проблема.…

что-то типа такого будет:

ThisWorkbook.Activesheet.VBComponents.CodeModule.DeleteProc

Спасибо за помощь.

[EducatedFool]

Ну можно и эту процедуру подправить:

Public Sub fWriteChanges(ByVal Target As Range)
    On Error Resume Next
    Dim oEditedRow As Range
    Set oEditedRow = Worksheets("Изменения в «" & Target.Worksheet.Name & "»").Rows(Target.Row)    ' строка для вставки на листе ИЗМЕНЕНИЯ
    If oEditedRow Is Nothing Then Exit Sub
    Target.EntireRow.Copy oEditedRow    ' копируем строку
    oEditedRow.Cells(Target.Column).Interior.Color = vbCyan    ' окрашиваем изменённую ячейку
End Sub

Хотя я бы всё же сделал так:

Sub test2()
    Application.EnableEvents = False    ' отключаем обработку событий
' код
    Application.EnableEvents = True    ' включаем снова обработку событий
End Sub

[viter.alex]

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

Ну можно и эту процедуру подправить:

Совершенству нет предела.

Смотри, я хочу выделить диапазон от нужной мне ячейки R9C1 до последнего непустого столбца и последней непустой строки, но что-то не работает.

Range(Cells(9, 1), _
        Cells(ActiveSheet.Range.SpecialCells(xlCellTypeLastCell).Row, _
              ActiveSheet.Range.SpecialCells(xlCellTypeLastCell).Column)).Select

[EducatedFool]

Попробуй так:

    Range(Cells(9, 1), Cells(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row, ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column)).Select

А лучше так:

Range(Cells(9, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select

И вообще, лучше избавляться от методов Select и Activate в своём коде.
В 99 процентах случаев можно обойтись без них (и код будет быстрее работать)

[viter.alex]

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

Попробуй так:

    Range(Cells(9, 1), Cells(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row, ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column)).Select

А лучше так:

Range(Cells(9, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select

И вообще, лучше избавляться от методов Select и Activate в своём коде.
В 99 процентах случаев можно обойтись без них (и код будет быстрее работать)

Попробовал. Почему-то выделяет и много пустых строк. Хотя там точно ничего нет. А выделять надо, т.к. я к ним применяю форматирование (рамка, заливка и т.д.)