엑셀 Q&A 게시판 - 오빠두엑셀

안녕하세요?

고수님들의 도움을 많이 받았던 건인데 미결 이슈가 있어 VBA 공부도 해보고 이리 저리 고민해보고 있는데 아직 코드를 짜는 건 무리인 듯하네요 다시 고수님들의 도움을 부탁드립니다 코드 기본 개념이라도 잡아주시면 감사하겠습니다

(1.2.4.번이 핵심 의문입니다)

<양산택배 시트>

1. E열(정확히는 E5이하 셀)에 입력된 업체명을 더블클릭하면 더블클릭 이벤트를 이용하여 해당값이 E2셀에 업데이트 되게 하고 싶습니다
2. 그후 수작업으로 유효성검사를 통해 F2열을 선택한후 F열의 아무 셀에나 다시 더블클릭하면 F2의 값이 해당 셀에 반영되게 하고 싶습니다
3. 행을 삽입하면 삽입행 바로 위 E열(상호)값이 E열에 표기되고 삽입열 전체(A~P)까지 회색 표시 아울러
4. 아울러 <샘플택배시트> J2, M2열에 입력도니 내용을 VBA실행하면 E5,F5열에 자동 입력(추가 작업시 J,M행에 누적적으로 계속 입력)되는 VBA를고수님 도움을 박아 적용했는데 VBA가 실행되지 않는 이유를 모르겠네요 에러는 나지 않습니다
5. 그후 양산택배, 샘플택배 두 시트를 하나로 합쳐 통합 판일을 만들고 싶습니다(합쳐진 b열 끝에는 "소계", J열, N열 끝에는 합계 건, 금액 표시, 소게 줄 전체 노란색)
6. 4번 구문Sub 샘플생성()
 
 Dim sh1 As Worksheet
 Dim r As Long
 
 Application.ScreenUpdating = False
 
 Set sh1 = Worksheets("샘플택배")
 
 r = sh1.Cells(1000, 4).End(xlUp).Row
 
 sh1.Cells(r + 1, 5) = sh1.Cells(2, 10)
 sh1.Cells(r + 1, 6) = sh1.Cells(2, 13)
 
 End Sub

채택된 답변

더블유에이 Lv.30

1번과 2번은 아래 유튜브 영상을 보시면 될 것 같습니다

https://www.youtube.com/watch?v=5x0tGi9rvA8

2번은 if 문으로 조건을 앞에 하나만 추가해주시면 될 것 같고..

4번은 D열에 함수가 있어서 그런것 같으니 r 값을 아래처럼 수정하면 해결되실겁니다

r = sh1.Cells(1000, 5).End(xlUp).Row

2022.02.07

마운틴 Lv.17 작성자

@더블유에이 님 넵 감사합니다

그런데 1,2번 관련하여 올려주신 동영상을 보고 코딩을 해보기는 했는데 제가 VBA 왕초보라 제 수준에는 제대로 작성하기 어려울 듯하네요

첫코딩잉이니 만큼 말도 안되게 만들었겠지만 한번 봐주시면 감사하겠습니다

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim strA, strB As String
Dim rngA, rngB As Range

If Not Intersect(Target, rngA) Is Nothing Then

Application.EnableEvents = False

Set rngA = Range("F5 : F" & Range("B2"))
Set strA = Cells(2.6)

If ActiveCell.Value = "" Then Exit Sub

Else
If Not Intersect(ActiveCell.rngA) Is Nothing Then

ActiveCell.Value.Copy
ActiveCell.Value.PasteSpecial.xlPasteValue

End If

Cancel = True

Application.EnableEvents = True

'End Sub

If Not Intersect(Target, rngB) Is Nothing Then

Application.EnableEvents = False

Set rngB = Range("F5 : G" & Range("B2"))
Set strB = Cells(2.7)

IF RngB.ActiveCell =Selection
strB , Value.Copy
rngB.ActiveCell.PasteSpecial.xlPasteValue

End If

Cancel = True

Application.EnableEvents = True

End Sub

넵 감사합니다 
 
그런데 1,2번 관련하여 올려주신 동영상을 보고 코딩을 해보기는 했는데 제가 VBA 왕초보라 제 수준에는 제대로 작성하기 어려울 듯하네요 
 
첫코딩잉이니 만큼 말도 안되게 만들었겠지만 한번 봐주시면 감사하겠습니다 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
 
Dim strA, strB As String 
Dim rngA, rngB As Range 
 
If Not Intersect(Target, rngA) Is Nothing Then 
 
Application.EnableEvents = False 
 
Set rngA = Range("F5 : F" &amp; Range("B2")) 
Set strA = Cells(2.6) 
 
If ActiveCell.Value = "" Then Exit Sub 
 
Else 
If Not Intersect(ActiveCell.rngA) Is Nothing Then 
 
ActiveCell.Value.Copy 
ActiveCell.Value.PasteSpecial.xlPasteValue 
 
End If 
 
Cancel = True 
 
Application.EnableEvents = True 
 
'End Sub 
 
If Not Intersect(Target, rngB) Is Nothing Then 
 
Application.EnableEvents = False 
 
Set rngB = Range("F5 : G" &amp; Range("B2")) 
Set strB = Cells(2.7) 
 
IF RngB.ActiveCell =Selection 
strB , Value.Copy 
rngB.ActiveCell.PasteSpecial.xlPasteValue 
 
End If 
 
Cancel = True 
 
Application.EnableEvents = True 
 
End Sub

파일 첨부