Excel VBA質問箱 IV

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

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


36252 / 76732 ←次へ | 前へ→

【45663】Re:年度情報を集約ファイルに書き込むには?
発言  vang  - 07/1/9(火) 14:28 -

引用なし
パスワード
   かみちゃん様
こんにちは。返信ありがとうございます。


>下記のご提示のイメージで、B列(2列目)とH列(8列目)の値が入っている最終行
>が違うのでしょうか?
値が入っている最終行がB列とH列では違うときがあります。

>値が入っている最終行が3より大きいければ、(〜.Row > 3)、転記するコードが処理されるはずなのですが・・

(H18店所情報.xls)
  A  B  C  D  E  F  G  H
1   
2   (2行目までは題字や枠組みなど)
3    ○  ▲  ■  ×        (3行目より入力開始)
4    あ  い  う  え      
5    か  き  く  け        
6
※H列は後日記入為空白状態の時がある。

   ↓ H列に何もない状態で集約表のボタンを押す。

(集約表.xls)
  A  B  C  D  E  F
1   (1行目は題字や枠組みなど)
2  (2行目より入力(集約)が始まっています。)
3   ○  ▲
4   あ  い
5   か  き
6        
7       
8        
9
(転記時E列に題字が入ってしまう)
※題字が転記しないようにしたい。

上記のような状態になってしまうコードが下記コードです。

Sub Sample()
 Dim WB1 As Workbook
 Dim WB2 As Workbook

 Set WB1 = Workbooks.Open("C:\店所情報.xls")
 Set ws1 = WB1.Worksheets("○○○")

 With ws1
  If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
  .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 2).Copy _
   Workbooks("集約表.xls").ActiveSheet.Range("B2")
  End If
  End With
  With ws1
 
 If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
    .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
   Workbooks("集約表.xls").ActiveSheet.Range("E2")
 End If
 End With
 WB1.Close
End Sub
0 hits

【45528】年度情報を集約ファイルに書き込むには? vang 06/12/29(金) 14:42 質問
【45532】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/29(金) 17:24 発言
【45533】Re:年度情報を集約ファイルに書き込むには? vang 06/12/29(金) 19:14 質問
【45535】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/29(金) 21:26 発言
【45538】Re:年度情報を集約ファイルに書き込むには? vang 06/12/30(土) 15:27 発言
【45539】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/30(土) 17:56 発言
【45553】Re:年度情報を集約ファイルに書き込むには? vang 06/12/31(日) 20:55 発言
【45558】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/31(日) 22:10 発言
【45625】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 11:46 発言
【45626】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 11:59 発言
【45627】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 12:49 発言
【45628】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 13:17 発言
【45629】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 13:33 発言
【45630】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 18:34 発言
【45636】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 8:53 発言
【45638】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 11:20 発言
【45640】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 13:25 発言
【45641】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 13:51 発言
【45644】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 14:33 発言
【45646】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 14:55 発言
【45649】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 15:39 発言
【45650】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 18:48 発言
【45652】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 19:16 発言
【45653】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 19:34 発言
【45654】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 9:55 発言
【45655】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 10:11 発言
【45657】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 11:44 発言
【45658】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 12:16 発言
【45660】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 13:07 発言
【45661】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 13:36 発言
【45663】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 14:28 発言
【45664】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 14:40 発言
【45665】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 14:56 発言
【45666】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 15:20 発言
【45667】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 15:34 発言
【45668】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 16:38 発言
【45669】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 16:47 お礼
【45670】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 16:57 発言
【45672】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 18:26 お礼

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