|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002): 2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): winME
3. CPU (486,PentiumI/II/III/IV...): III
4. RAM (32,64,128,256,512MB,1G...): 128
* 아래줄에 질문을 작성하세요 >>
안녕 하세요?
업무관리 FILE을 만들다 막혀서 이렇게 방문하였습니다.
일일 마감에 대한 질문입니다.
첨부 파일을 보시고 답변해 주시면 감사하겠어요.
매일 같은 위치를 복사하여 다른위치에서 같은 날짜를 찾아 값으로 붙여넣기를
하려고 합니다.
많은 성원 부탁합니다.
==============[골뱅이님 글에 대한 답변입니다]==============
안녕하세요? 골뱅이 님
허접하지만 하시는일 잘 되시기를 바랍니다.
코드는 아래와 갑습니다.
Private Sub CommandButton1_Click()
Dim rNum As Long
Dim sRange As Range
Dim tRange As Range
Set sRange = Sheets("질문").Range("K1:K100")
Set tRange = sRange.Offset(0, Day(Range("K1").Value) + 16)
sRange.Copy
tRange.PasteSpecial Paste:=xlValues
With Application
.CutCopyMode = False
.Goto Range("k1"), True
End With
Set sRange = Nothing
Set tRange = Nothing
End Sub
|
|