Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9830 / 76734 ←次へ | 前へ→

【72461】Re:転記したい
質問  うさこ  - 12/8/13(月) 16:36 -

引用なし
パスワード
   へんなコードで笑われると思いますが
作ってみたのがこれですがこれだと最初に見つかった7月のデータしか
Sheet2にコピーされません・・・。
 Public Sub 練習()
  Dim 月 As String
  Dim 実行 As String
  Dim i As Integer
  Dim n As Integer
  

'抽出データ取得
  月 = ActiveCell.Value
  
'プログラムの実行確認メッセージ
  実行 = MsgBox(月 & " 月のデータを抽出しますか?", vbYesNo)
If 実行 = vbYes Then

For i = 2 To Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row


If Format(Cells(i, 6), "m") = 7 Then
Rows(i).Copy
Sheets(2).Select
  ActiveSheet.Paste

  i = i + 1

End If
Next

  End If
End Sub

3 hits

【72452】転記したい うさこ 12/8/13(月) 12:01 質問
【72454】Re:転記したい UO3 12/8/13(月) 14:08 発言
【72455】Re:転記したい うさこ 12/8/13(月) 14:13 質問
【72456】Re:転記したい UO3 12/8/13(月) 14:27 発言
【72457】Re:転記したい UO3 12/8/13(月) 14:29 発言
【72458】Re:転記したい うさこ 12/8/13(月) 14:57 質問
【72461】Re:転記したい うさこ 12/8/13(月) 16:36 質問
【72462】Re:転記したい Yuki 12/8/13(月) 16:51 発言
【72465】Re:転記したい UO3 12/8/13(月) 17:19 発言
【72467】Re:転記したい UO3 12/8/13(月) 17:36 発言
【72468】Re:転記したい kanabun 12/8/13(月) 17:50 発言
【72469】Re:転記したい うさこ 12/8/13(月) 18:31 お礼

9830 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free