날짜에 따라 일정한 위치에 복사해서 붙여넣기

질문을 받아 처리했습니다.

자주 받는 질문인데, 많은 내용을 알지 못해도 여러 상황에서 이용할 수 있는 방법입니다.

 

매일 매출과 입금 내역을 특정 셀 범위에 입력한 뒤 정해진 셀 위치로 복사하는 작업입니다.

매크로를 이용하면 쉽게 처리할 수 있습니다.

 

두가지 작업인데, 첫번째는 매출입력입니다.

[W4] 셀에 작업일이 있고, 아래에 카드사별 매출을 입력한 뒤 매출입력 단추를 누르면 해당 날짜에 나타나는 것입니다.

두번째는 입금입력입니다.

[C39:M46] 셀 범위에 입력된 데이터를 해당 날짜 해당 위치로 복사합니다.

Public Sub 매출입력()
    '작업일 확인
    작업일 = Day(Range("W4"))
    
    행 = 작업일 + 5     ' 1일인 경우 6행에 입력
    
    Range("C" & 행).Value = Range("W6").Value
    Range("E" & 행).Value = Range("W7").Value
    Range("G" & 행).Value = Range("W8").Value
    Range("I" & 행).Value = Range("W9").Value
    Range("K" & 행).Value = Range("W10").Value
    Range("M" & 행).Value = Range("W11").Value
    Range("O" & 행).Value = Range("W12").Value
    Range("Q" & 행).Value = Range("W13").Value
End Sub

Public Sub 입금입력()
    For i = 39 To 46
        행 = Day(Range("C" & i)) + 5
        
        Select Case Range("D" & i).Value
            Case "KB카드"
                열 = "N"
            Case "신한카드"
                열 = "F"
            Case "비씨카드"
                열 = "D"
            Case "롯데카드"
                열 = "L"
            Case "현대카드"
                열 = "J"
            Case "삼성카드"
                열 = "H"
            Case "농협NH카드"
                열 = "R"
            Case "하나카드"
                열 = "P"
        End Select
        
        Range(열 & 행).Value = Range("I" & i).Value
    Next i
End Sub

반복되는 코드라 실제 내용은 아주 적습니다.

 

매크로를 실행하는 방법은 단추(양식 컨트롤)을 삽입하고 매크로를 지정했습니다.

 

파일을 첨부합니다.

카드입금.xlsm

0.02MB