Функция вставки, изменяющая другие листы - PullRequest
Новая
       8

Функция вставки, изменяющая другие листы

0 голосов
/ 26 ноября 2018

Я пытаюсь скопировать формат первой строки во все строки, которые заполнены данными.После этого остальные строки (пустые) удаляются.

Обычно это следует делать, если лист не выбран.Приведенный ниже код работает хорошо, за исключением случаев, когда у пользователя есть оба других листа и xsInvestmentSummary, совместно выбранные.В этом случае при вставке другие листы также изменяются.

Я не понимаю, почему.В этом коде все относится к xsInvestmentSummary. 

With xsInvestmentSummary
    If .Cells(FilaTitulo + 3, 1).Value <> "" Then

        Set CeldaInicio = .Cells(FilaTitulo + 2, 1)
        Set CeldaFin = CeldaInicio.End(xlDown)
        .Cells(FilaTitulo + 1, 1).EntireRow.Copy
        .Range(CeldaInicio, CeldaFin).EntireRow.PasteSpecial Paste:=xlPasteFormats ' After this line, the other selected sheets are modified

        Set CeldaInicio = .Cells(CeldaFin.Row + 1, 1)
        Set CeldaFin = CeldaInicio.End(xlDown)
        .Range(CeldaInicio, CeldaFin).EntireRow.Delete

    End If
End With
...