| |
▼akari さん：
Jaka さんのをそのまま引き継いで
> 早速のご回答ありがとうございます。
> 教えていただいたコードを貼り付けて試しました結果、希望通りの動きをしまし た。（ありがとうございます。）
> あと１つだけ教えていただきたいですが、シート１・２、３・４の関係をシート５・６、７・８、９・１０、１１・１２と増やしたのですが、下記コードのどこをどういうふうに修正すればいいか教えてください。よろしくお願いいたします。
>
>>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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
