| |
こんにちは、よろしくお願いします。
シート（運送予定）から実際に運送が終了したものを
別シート（運送実績）に転記する処理をしております。
データは
A列 B列 C列・・・・・・Z列
No 日付 客名 未
となっており
転記したときに運送予定シートのＺ列が
"未"から"済"に変更されます。
このときに予定データの項目を変更した時に
実績シートに転記された内容も変更されるようにと
考え、本を参考に以下のようなコードとして、
思うような処理がされるようになったのですが、
実績シートをアクティブにせずにその項目内容を
変更できないかと思っております。
Dim myRow As Integer
Dim C As Range
Dim Buff As Variant
Dim Flag As Boolean
Application.ScreenUpdating = False
Application.EnableEvents = False
Buff = ActiveCell.Value '予定シートのNo
Flag = False
myRow = ActiveCell.Row
If Cells(myRow, 26).Value = "済" Then
項目修正
Application.CutCopyMode = False
Intersect(ActiveCell.EntireRow, Range("B:B, D:R")).Copy
Sheets("実績").Select
For Each C In ActiveSheet.Range("A:A")
If (C.Value Like Buff) Then
C.Offset(0, 1).PasteSpecial (xlPasteValues)
C.Offset(0, 1).Select
Flag = True
Exit For
End If
Next C
Sheets("予定").Select
Cells(myRow + 1, 1).Select
取得
Else
項目修正
Cells(myRow + 1, 1).Select
取得
End If
With ActiveWindow
.SmallScroll Down:=1 '---下方向に1列
End With
Application.CutCopyMode = True
Application.EnableEvents = True
Application.ScreenUpdating = True
項目修正・・・はユーザーフォームのTextBoxの内容をそれぞれのセルに書き込む
コードを標準モジュールに書いております。
取得・・・・・はセルの内容をユーザーフォームに表示させるコードを標準
モジュールに書いております。
シートを行き来せずに同じNoを探して
その行をコピーする方法はないでしょうか？
よろしくお願いいたします。
|
|
Hiro
- 06/7/4(火) 21:24 -
