|
▼akari さん:
Jaka さんのをそのまま引き継いで
> 早速のご回答ありがとうございます。
> 教えていただいたコードを貼り付けて試しました結果、希望通りの動きをしまし た。(ありがとうございます。)
> あと1つだけ教えていただきたいですが、シート1・2、3・4の関係をシート5・6、7・8、9・10、11・12と増やしたのですが、下記コードのどこをどういうふうに修正すればいいか教えてください。よろしくお願いいたします。
>
>>thisworkbookにこんな感じだけど、エラー処理してません。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim SHNm As String, ERw As Long, i As Long
If Not Target.Column = 1 Then Exit Sub
If Target.Value = "転送" Then
Application.EnableEvents = False
For i = 1 To 11 Step 2
If Sh.Name = "Sheet" & i Then
SHNm = "Sheet" & i + 1
Exit For
End If
Next
If SHNm <> "" Then
ERw = Sheets(SHNm).Range("B" & Rows.Count).End(xlUp).Row + 1
If ERw < 3 Then
ERw = 3
End If
Sheets(SHNm).Range("B" & ERw & ":H" & ERw).Value = _
Target.Offset(, 1).Resize(, 7).Value
End If
Application.EnableEvents = True
End If
End Sub
|
|