수메리안 언제나 님들의 도움으로 회사업무를 나날이 향상시키고 있어 늘 감사한 마음입니다.
오늘은 택배송장 출력 코딩을 하는데 합포장에서 막혔습니다.
위의 데이타를 아래와 같이 합포장을 묶어서 맨윗줄만 남기고 나머지는 삭제시키고 맨 위 제품 품명 뒤에 ~외 oo권 이라고 표기하고 싶습니다.
Sub 합포장하기()
Dim OrderPaper As Worksheet
Dim i As Integer
Set OrderPaper = ThisWorkbook.Worksheets("판매현황")
endrow = OrderPaper.Cells(OrderPaper.Rows.Count, "A").End(xlUp).Row
Set GcodeRng = OrderPaper.Range("K2:K" & endrow)
With OrderPaper
'// 합포장 출고번호 삭제
For i = endrow To 2 Step -1
gcode = "*합포장*"
Set FindRange = GcodeRng.Find(gcode, LookAt:=xlPart)
If Not FindRange Is Nothing And .Cells(i, 2) = .Cells(i - 1, 2) Then '//적요에 합포장이 있고, 출고번호 같을 때
OrderPaper.Rows(i - 1).EntireRow.Delete Shift:=xlUp
Else
End If
Next
End With
이 다음에는 어떻게 코딩해야 하는지 고수님들의 혜안을 기다리고 있겠습니다~
첨부파일 참고하세요.
좋은 아이디어 같은데 제가 아쉽게도 아직 파워쿼리를 다루지 않아서 익숙하지 않습니다^^;;
쌈타님 덕분에 파워쿼리를 한번 다뤄보도록 하겠습니다~~
감사합니다^^
잘 해결하셨나요?
벌써 2년전의 일이네요^^
예, VBA로 직접 코딩해서 잘 사용하고 있습니다~
2명의 직원에게 각각 다른 버전으로 코딩해서 사용하는데, 최근 버전으로 사용하는 직원이 좀 더 빠르고 퍼포먼스가 좋습니다^^
원하는 일자(기간)의 판매내역을 데이터베이스를 택배사 송장 출력용 엑셀 시트로 출력하는 vba 코딩을 하고있습니다.
아직은 초급자라 그런지 여기서 막히네요.
수메리안님의 코드를 잘 응용해서 코딩해봐야 겠습니다.
아무튼 큰 도움이 되었습니다.
파워쿼리를 공부해야겠군요.