VBA 表作成で内容を最下行で入力した場合 自動で次の行の作成を行いたい。
VBAで質問です。 Excel2003
最下行を検索し、そこの内容部分を入力された場合、1行あたらしく
式、罫線をコピーしたいのですがずっとループを起こしてしまいます。
直し方を教えていただきたいです。
ソース
Private Sub Worksheet_Change(ByVal Target As Range)
'------------------------------------
'変数の宣言
'------------------------------------
Dim naiyou As Object
Dim bikou As Object
Dim xline As Integer
Dim yline As Integer
Dim count As Integer
Dim startrow As Integer
Dim maxcolumn As Integer
'------------------------------------
'内容＝D4の列検索
'------------------------------------
Set naiyou = ActiveSheet.Cells.Find("内容")
xline = naiyou.Column
'------------------------------------
'表示している最終行の検索
'------------------------------------
startrow = 4
count = Cells(startrow, xline).End(xlDown).Row
'------------------------------------
'備考の＝I4列検索
'------------------------------------
Set bikou = ActiveSheet.Cells.Find("備考")
yline = bikou.Column
'------------------------------------
'コピペ処理
'------------------------------------
If ActiveSheet.Cells(count, 4) <> "" Then
Range(Cells(count + 1, 1), Cells(count + 1, yline)).Select
Selection.Copy
Range(Cells(count + 2, 1), Cells(count + 2, yline)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub
Else:
End If
End Sub
お礼
ありがとうございます！ 助かりました！！