
現在マクロで最終行から検索して上に向かって作業をしていますが、先頭行から最終行までにしたい。マクロの改造を教えて貰えませんか。
Dim i As Long ' i=在庫シート行 変数
Dim LastRow As Long
'最終行
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
'行をループ
For i = LastRow To 5 Step -1 '4 行タイトル行 5-1=4
If Cells(i, 17) > 0 Then
' 差し引きが0か? 全在庫売却=コピーして削除 一部売却=コピーして在庫減算
'行をコピーする。
Sheets("取引履歴").Activate
n = Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("在庫").Activate
' 値でコピーする
Range(Cells(i, 2), Cells(i, 26)).Copy
Sheets("取引履歴").Cells(n, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' lPasteValues
If Cells(i, 8) - Cells(i, 17) = 0 Then
'全在庫売却-------------------------------------------------
Rows(i).Delete 'i行目を削除
'一部売却------------------------------------------------
'一部クリア
Sheets("在庫").Activate
Cells(i, 8).Value = Cells(i, 8) - Cells(i, 17)
ActiveSheet.Range(Cells(i, 16), Cells(i, 26)).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End If
Next i
End If
Exit Sub
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
-
4
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
9
[VBA]選択範囲の下から上に処理する方法。
Visual Basic(VBA)
-
10
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
11
マクロについて。S列の途中からデータがある最終行まで消したいのですが、 Range(”S8”,Cel
Visual Basic(VBA)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
-
14
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
17
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
18
VBAで○○:○○と表示させたいのに小数で0.53125のように表示さ
Access(アクセス)
-
19
VBAでの行数を揃える方法
Visual Basic(VBA)
-
20
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ディーラーでの新車の在庫確認...
-
製造業ですが、廃棄処分(資材...
-
解き方がわかりません。力を貸...
-
売上在庫の評価減後の取扱い
-
在庫評価単価について
-
生産完了品と在庫限定品の違い
-
エクセルで在庫表作成、数量が...
-
在庫日付順に先入先出しをエク...
-
VBA内でSQL(UPDATEをループ処...
-
Access:在庫管理で更新クエリ...
-
マクロで最終行から上に検索を...
-
棚卸資産(流動資産)の税金に...
-
海外現地法人に日本法人所有の...
-
オイレス(工業パーツ)購入の...
-
ヨドバシカメラのネット通販で...
-
販売価格値下げによる損失補填...
-
コンビニに在庫確認の為に何度...
-
決算時の在庫について
-
「ご発注ありがとうございます...
-
カートンという単位
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
製造業ですが、廃棄処分(資材...
-
ディーラーでの新車の在庫確認...
-
在庫日付順に先入先出しをエク...
-
ヨドバシカメラのネット通販で...
-
解き方がわかりません。力を貸...
-
在庫月数の求め方について
-
エクセル 2つの在庫表を照合...
-
生産完了品と在庫限定品の違い
-
エクセルの数式について教えて...
-
エクセルで在庫表作成、数量が...
-
在庫評価単価について
-
売上在庫の評価減後の取扱い
-
マクロで最終行から上に検索を...
-
不良品を交換したいけど在庫が...
-
VBA内でSQL(UPDATEをループ処...
-
iPhone 15を昨日購入し、今日の...
-
販売価格値下げによる損失補填...
-
店舗間移動の在庫管理について
-
在庫引当とは?
-
「数を把握する」って英語でな...
おすすめ情報