エクセルVBAで以下の方法のマクロが分からず、教えて頂きたいです。
まず、ブックAのシートAがあり、シートAのセルD3には号機No.を入力します（999などの数値のみ）
次にブックBのシートBがあり、このシートのD列にも号機No.が入力されています。
やりたい事はブックAのシートAのD3に号機No.を入力したら、ブックBのシートBのD列から同じ号機No.を
探し、当てはまる号機の行のI列、J列、K列、L列、M列をコピーし
ブックAのシートAのF13、F14、F15、F16、F17、に貼り付けたいです。
それぞれの貼り付け先は
K列⇒F13 L列⇒F14 M列⇒F15 I列⇒F16 J列⇒F17のようになります。
それとブックBのシートBのD列に入力されている号機No.は同じ数値が入力されている時があります。
この場合は必ず下にある号機No.のが最新ですので、そちらを読み取るようにしたいです。
例えば、4行目と8行目に同じ号機No.がある場合は8行目の方を読み取る。
現在は GYOU = Application.InputBox でターゲットの行番号を入力して
その行の列をコピー・ペーストしている感じです。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim tmp() As String
If Intersect(Target, Range("D3")) Is Nothing Then
Exit Sub
Else
End If
Dim buf As String
Dim j As Integer
Dim GYOU As String
Set xCur = Selection
Dim OpenFileName As String
Workbooks.Open Filename:="業務都合の為載せれません"
GYOU = Application.InputBox("行を選択してください", "行指定")
'<キャンセルの場合、処理を終わりにします。>
If GYOU = "False" Then Exit Sub
For j = 11 To 11
ActiveSheet.Cells(GYOU, j).Copy
ThisWorkbook.ActiveSheet.Cells(13, 6).PasteSpecial Paste:=xlPasteValues
Next j
For j = 12 To 12
ActiveSheet.Cells(GYOU, j).Copy
ThisWorkbook.ActiveSheet.Cells(14, 6).PasteSpecial Paste:=xlPasteValues
Next j
For j = 13 To 13
ActiveSheet.Cells(GYOU, j).Copy
ThisWorkbook.ActiveSheet.Cells(15, 6).PasteSpecial Paste:=xlPasteValues
Next j
For j = 9 To 9
ActiveSheet.Cells(GYOU, j).Copy
ThisWorkbook.ActiveSheet.Cells(16, 6).PasteSpecial Paste:=xlPasteValues
Next j
For j = 10 To 10
ActiveSheet.Cells(GYOU, j).Copy
ThisWorkbook.ActiveSheet.Cells(17, 6).PasteSpecial Paste:=xlPasteValues
Next j
ActiveWorkbook.Close SaveChanges:=False
With xCur
.Parent.Parent.Activate '元のブックへもどる
.Parent.Activate '元のシートへもどる
End With
End Sub
ど素人の為、めちゃくちゃな並びだとは思いますが一応現在の状態のマクロを載せておきます。
御指導の程、宜しくお願いします。
excel2010
日付データで計算し、土、日の２行を追加するマクロを作成しました。
途中は、正しく２行追加されます。
しかしながら、最終行が月曜日だけだと、最終行（月曜日）と最終行－１（金曜日）の間に
２行追加されません。
作成したマクロのどこが悪いのかを教えていただきたく。
構成は次の通り
Ａ列に日付のデータがＡ４セルから貼り付けられています。
Ａ３セルは、題目で日付という文字列があります。
Ａ列には、最初土、日の日付（行）がありません。
土、日の行、２行分を追加するために、計算式で行と次の行の差が３以上だったら
２行追加というマクロを設定します。
マクロは次の通り
Sub donichiadd()
''
Dim MxR As Long
Dim h As Long
MxR = Range("A65536").End(xlUp).Row - 1
For h = MxR To 5 Step -1
If Cells(h, 1) - Cells(h - 1, 1) >= 3 Then
Cells(h, 1).Resize(2).EntireRow.insert
End If
Next h
End Sub
マクロは以上。
データが下記だとします。
A4セル：6/1
A5セル：6/2
A6セル：6/3
A7セル：6/4
A8セル：6/5
A9セル：6/8
A10セル：6/9
A11セル：6/10
A12セル：6/11
A13セル：6/12
A14セル：6/15
この状態でマクロを実行すると、
6/8と6/5の間は２行追加されますが、
6/15と6/12の間には２行追加されません。
尚、A15セルに6/16があった場合にマクロを実行すると、
6/15と6/12の間に２行追加されます。
最終行が月曜日だけだと、土、日分の２行を追加することが出来ない状態です。
どこが悪いのか教えていただきたく。
