現在マクロで最終行から検索して上に向かって作業をしていますが、先頭行から最終行までにしたい。マクロの改造を教えて貰えませんか。
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
[VBA]選択範囲の下から上に処理する方法。
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
6
マクロについて。S列の途中からデータがある最終行まで消したいのですが、 Range(”S8”,Cel
Visual Basic(VBA)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
10
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
11
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
12
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
13
エクセルでエラーが出て困っています。
Excel(エクセル)
-
14
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
15
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
16
VBAで配列の計算
Excel(エクセル)
-
17
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
18
VBAで、強制保存してブックを閉じるには?
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ヨドバシカメラのネット通販で...
-
マクロで最終行から上に検索を...
-
現在のセリアかダイソーで、SD...
-
生産完了品と在庫限定品の違い
-
iPhone 15を昨日購入し、今日の...
-
ノートパソコンを家電量販店で...
-
Excelで在庫管理の表を作りたい
-
OKホームセンターに100ミリまた...
-
在庫月数の求め方について
-
エクセルで在庫表作成、数量が...
-
輸入品の棚卸在庫について
-
未使用新品、5年の長期在庫だっ...
-
アニメイトに電話して在庫を確...
-
Access:在庫管理で更新クエリ...
-
在庫違算・滞留在庫
-
売上原価がマイナスの場合の処...
-
管理栄養士のレビューブック202...
-
在庫日付順に先入先出しをエク...
-
原価率の計算方式
-
32GB SDカードが売って...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
現在のセリアかダイソーで、SD...
-
ヨドバシカメラのネット通販で...
-
日本メーカーが出している「Typ...
-
iPhone 15を昨日購入し、今日の...
-
無在庫転売について。 今度スク...
-
マクロで最終行から上に検索を...
-
製造業ですが、廃棄処分(資材...
-
OKホームセンターに100ミリまた...
-
在庫日付順に先入先出しをエク...
-
中小建設会社の在庫管理について
-
エクセルで在庫表作成、数量が...
-
「数を把握する」って英語でな...
-
在庫引当とは?
-
売上在庫の評価減後の取扱い
-
不良品を交換したいけど在庫が...
-
アニメイトに電話して在庫を確...
-
在庫管理について
-
在庫計上とは?
-
生産完了品と在庫限定品の違い
-
解き方がわかりません。力を貸...
おすすめ情報