마운틴 바로 밑의 질문과 연계된 질문인데
표 중간에 행을 수동 삽입하면 (7, 8행 사이 삽입)
1.바로 위행 내용이 삽입행에 복사 (7행 전체)
2.삽입된 행의 배경색 변경색이 노란색으로 변경
3.A열 순번이 삽입 행을 감안하여 자동으로 재생성, 정리되도록
하고 싶습니다
고수님들 도움 부탁드립니다
표를 만드는데 참조한 구문은 아래와 같습니다
Sub 양산합산()
Dim sh1, sh2 As Worksheet
Dim i, j As Long
Application.ScreenUpdating = False
Set sh1 = Worksheets("양산택배")
Set sh2 = Worksheets("택배합산")
i = sh1.Range("B1").Value
j = sh2.Cells(Rows.Count, "a").End(xlUp).Row + 1
sh1.Cells(5, 3).Resize(i, 15).Copy
sh2.Activate
Cells(j, 1).Select
Selection.PasteSpecial xlPasteValues
Cells(j, 1).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3~4행 사이가 아니고 7~8행 사이로 수정
3행 전체 복사가 아니고 7행 전체 복사로 질문을 수정했습니다
워크시트 이벤트에 넣었으니 참고 바랍니다.
데이터를 관리 할때 주먹구구식으로 셀 값들을 아무데나 복사하고 카피해두면하면 표준화가 어렵습니다.
혹시 2개이상의 셀을 동시에 삽입하고 삽입한 행 윗행(TARGET) 포함해TJ
삽입한 행 전체 (2행 삽입시 총 3행)이 노란색으로 바뀌게 하려면
구문을 어떻게 고쳐야 할지요?
OFFSET(1)을 어떻게 고쳐야 하긴 할 둣합니다만 감이 안오네요
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
Target.Offset(2).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(2).EntireRow
On Error Resume Next
Target.Resize(3, 15).Interior.Color = vbYellow
no = 1
For i = 5 To 100000
If Cells(i, 2) = "소계" Then
Exit Sub
Else
Cells(i, 1) = no
no = no + 1
End If
Next i