
現在マクロで最終行から検索して上に向かって作業をしていますが、先頭行から最終行までにしたい。マクロの改造を教えて貰えませんか。
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も見ています
-
[VBA]選択範囲の下から上に処理する方法。
Visual Basic(VBA)
-
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
7
マクロについて。S列の途中からデータがある最終行まで消したいのですが、 Range(”S8”,Cel
Visual Basic(VBA)
-
8
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
11
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
12
エクセル マクロ 範囲指定で、データの最終行・最終列を取得したい
Excel(エクセル)
-
13
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
14
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
15
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
-
16
EXCEL95 VLOOKUP関数で半角と全角
Excel(エクセル)
-
17
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
18
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
19
別のシートから値を取得するとき
Visual Basic(VBA)
-
20
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ノートパソコンの別売りバッテリー
-
VBA内でSQL(UPDATEをループ処...
-
論理的な考え方について
-
Excelで在庫管理の表を作りたい
-
クエリを基にしたフォームでテ...
-
エクセルで在庫表作成、数量が...
-
「数を把握する」って英語でな...
-
化粧品メーカーって在庫をどう...
-
在庫金利って?
-
在庫日付順に先入先出しをエク...
-
アニメイトアプリの『店舗在庫...
-
海外現地法人に日本法人所有の...
-
access 重複行の複数条件の抽出
-
製造業ですが、廃棄処分(資材...
-
「ご発注ありがとうございます...
-
エクセル ①上下にタイトル行を...
-
中3日の意味
-
「お打ち合わせの件につきまし...
-
レストランで魚を仕入れる際ど...
-
製造元はメーカーでしょうか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
製造業ですが、廃棄処分(資材...
-
ヨドバシカメラのネット通販で...
-
エクセルで在庫表作成、数量が...
-
在庫日付順に先入先出しをエク...
-
生産完了品と在庫限定品の違い
-
在庫月数の求め方について
-
マクロで最終行から上に検索を...
-
エクセルの数式について教えて...
-
在庫評価単価について
-
解き方がわかりません。力を貸...
-
売上在庫の評価減後の取扱い
-
iPhone 15を昨日購入し、今日の...
-
VBA内でSQL(UPDATEをループ処...
-
棚卸資産の1円評価
-
コンビニに在庫確認の為に何度...
-
エクセル 2つの在庫表を照合...
-
「数を把握する」って英語でな...
-
ACCESS2013でバーコードリーダ...
-
在庫計上とは?
-
在庫金利って?
おすすめ情報