|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
Dim dd As String
Dim MaxRow As Long
MaxRow = Rows.Count - 4
dd = Cells(5, 2)
Range("B7:AB3000").Select
Selection.Copy
Worksheets("데이터베이스").Activate
Cells(4, 2).Select
Do Until IsEmpty(ActiveCell)
If ActiveCell = dd Then
If MsgBox(Format(dd) & "의 데이터는 이미 등록되었습니다." & vbCrLf & _
"[예] 새로운 데이터로 덮어쓰기" & vbCrLf & _
"[아니오] 등록 취소", vbCritical + vbYesNo, "데이터를 갱신하시겠습니까?") = vbYes Then Exit Do
GoTo quit
End If
If ActiveCell.Row > MaxRow Then
MsgBox "데이터가 너무 많아 더이상 기록할 수 없습니다.", vbExclamation, "저장공간 부족"
GoTo quit
End If
ActiveCell.Offset(0, 28).Select
Loop
ActiveSheet.Paste
quit:
Worksheets("장부").Activate
위처럼 복사 시 수식까지 같이 복사되는데
위 틀에서 값만 복사를 하고싶습니다.
이 때 PasteSpecial를 어디에 넣어줘야하나요? |
|