안녕하세요?
고급필터를 이용한 개인별 일정관리 파일을 간단한 vba와 더불어 이벤트와 연계한 파일입니다.
간단한 코드로 조금씩 익혀 보시는것도 도움이 되실겁니다.
아래는 코드입니다.
Option Explicit
Sub Test()
Dim Rng As Range
Dim rng_CR As Range
Dim rng_To As Range
Set Rng = Worksheets("세부일정").Range("a1").CurrentRegion
With Worksheets("일정카드")
Set rng_CR = .Range("e2:f3")
Set rng_To = .Range("a9:c9")
End With
Application.ScreenUpdating = False
Rng.AdvancedFilter xlFilterCopy, rng_CR, rng_To, 0
MsgBox Format(Worksheets("일정카드").Cells(Rows.Count, 1).End(xlUp).Row - 9, "#,##0") _
& "개의 데이터를 발췌하였습니다.", vbOKOnly, "작업 완료...!"
Application.ScreenUpdating = True
End Sub
Sub auto_open()
MsgBox Application.UserName & "님 안녕하세요?" & vbCr & vbCr & _
"일정카드 시트의 B3셀이나 B7셀의 값을 변경시켜 보세요.", vbInformation, "안내"
End Sub
그럼 또...!
=================================================================================
첨부파일
006_개인별_일정관리_VBA.xlsm
=================================================================================