![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VBAの勉強中です。ボタンを押すとWorksheets("管理番号")の情報をworksheets("結果")へ
転記するようにしてるんですが、この状態のままでは行番号11へのみの入力となっていしまいます。
これをボタンを押すごとに行番号11以降(古いデータの下)の空白のセルへ
入力するようにするにはどうすればよいでしょうか?教えていただけたら幸いです。
Option Explicit
Sub DATA()
Dim momo
Dim ko
Worksheets("結果").Range("D11").Value = Worksheets("管理番号").Range("F5").Value
Worksheets("結果").Range("B11").Value = Date
Worksheets("結果").Range("C11").Value = Time
ko = 11
For momo = 16 To 9999
If Worksheets("管理番号").Range("B" & momo).Value = Worksheets("管理番号").Range("F5").Value Then
Worksheets("結果").Range("E" & ko).Value = Worksheets("管理番号").Range("D" & momo).Value
ko = ko + 1
End If
Next
End Sub
宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
ん~と
>Worksheets("管理番号")にあるボタンを押すごとに
>Worksheets("結果")の行番号12、13・・・と順に転記するようにしたいです。
っと云う事は
ko = 11
を
ko = Worksheets("結果").Range("E" & Rows.Count).End(Xlup).Row+1
としてみては?
参考までに、シートを変数に入れて、コードを省略してみました。
Sub DATA()
Dim momo
Dim ko
Dim ws As Worksheet
Set ws=Worksheets("結果")
ko = ws.Range("E" & Rows.Count).End(Xlup).Row+1
For momo = 16 To 9999
If Range("B" & momo).Value = Range("F5").Value Then
ws.Range("E" & ko).Value = Range("D" & momo).Value
ws.Range("D" & ko).Value = Range("F5").Value
ws.Range("B" & ko).Value = Date
ws.Range("C" & ko).Value = Time
ko = ko + 1
End If
Next
End Sub
と省略してみました。
ご回答ありがとうございます。
先ほど確認したところ、教えていただいたコードで
問題なく最終行の下へと追加していくことができました!
勉強をはじめたので、所々呪文のようですが
コードの省略とても参考になりました。
これから自由に組んでいけるよう挫けず頑張ります。
今回はいろいろと教えていただき、ありがとうございました。
No.1
- 回答日時:
勉強中と云う事で、元のコードを生かして編集してみました。
Sub DATA()
Dim momo
Dim ko
ko = 11
For momo = 16 To 9999
If Worksheets("管理番号").Range("B" & momo).Value = Worksheets("管理番号").Range("F5").Value Then
Worksheets("結果").Range("E" & ko).Value = Worksheets("管理番号").Range("D" & momo).Value
Worksheets("結果").Range("D" & ko).Value = Worksheets("管理番号").Range("F5").Value
Worksheets("結果").Range("B" & ko).Value = Date
Worksheets("結果").Range("C" & ko).Value = Time
ko = ko + 1
End If
Next
End Sub
ご希望の結果が得られるようであれば、もう少しスマートな方法を
回答いたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィリピン語でサルサルの意味
-
日本語をタガログ語に訳google ...
-
VBAを勉強中です。転記について...
-
タガログ語でメールが来ました...
-
印刷時に、複数ページに共通な...
-
教えてGooの回答の信憑性てどの...
-
InputBox キャンセルボタンが...
-
Excel:2ページ目以降のタイト...
-
このアプリの質問時の「タイト...
-
教えてgooのタイトルの付き方が...
-
家に遊びに来る前にいつも「な...
-
Johneyってジャニーではなくジ...
-
教えて!gooで質問している方を...
-
Wordに登録したタイトル(表題...
-
ポルトガル語で何と言いますか...
-
世界史が教科書の説明で理解で...
-
リアル鬼ごっこの洋
-
Wordで、タイトルと名前は真ん...
-
HPのサブタイトル&バナーについて
-
Excel VBA でグラフタイトルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィリピン語でサルサルの意味
-
タイ語に翻訳お願いします。
-
タガログ語和訳お願いします!
-
タガログ(かな?)教えて下さい。
-
タガログ語でメールが来ました...
-
VBAを勉強中です。転記について...
-
このタガログ語を日本語に訳し...
-
日本語をタガログ語に訳google ...
-
小国からリバーサイド千秋
-
印刷時に、複数ページに共通な...
-
Excel:2ページ目以降のタイト...
-
Wordで、タイトルと名前は真ん...
-
教えてGooの回答の信憑性てどの...
-
12インチって何センチ?
-
Wordに登録したタイトル(表題...
-
【Excel】複数のタイトル行を設...
-
DVDの副音声が聞きたい
-
【WORD2003】表の繰り返しタイ...
-
柳田國男の「日本には世間があ...
-
音楽のレポートの書き方につい...
おすすめ情報
ご回答ありがとうございます。確認しましたところ、
情報は問題なく転記されますが、やはりWorksheets("結果")の行番号11(BCDE)のところで
情報が上書き更新されてしまいます。
これを上書きされることなく、Worksheets("管理番号")にあるボタンを押すごとに
Worksheets("結果")の行番号12、13・・・と順に転記するようにしたいです。
再度回答ただけたら幸いです。宜しくお願いいたします。