Excel VBA質問箱 IV

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

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


2240 / 76734 ←次へ | 前へ→

【80138】別のシートから別のシートへ
質問  まくろ  - 18/9/10(月) 11:42 -

引用なし
パスワード
   シート1へシート2のデータを日付を照合してデータを自動コピーする
マクロを作りました。
何故か昨日の日付と今日の日付がデータが入らないのですが何故でしょうか?
いつ行っても一昨日やほかの日のデータは入ります。
VBA初心者です。よろしくお願いします。

[sheet1]
A列に1行目から2018/4/1〜2018/9/31のように日付が書いてあります。
B列以降は空欄です。
[sheet2]
A列に1行目に2018/9/10など日付があります。
B列以降のデータをコピーしたいです。

9/8のデータは反映されるのですが、9/9や9/10は0が入ってしまいます。


Sub ()

Dim c As Range
Dim myRow As Long
Dim myrow2 As Long


Sheets("Sheet1").Activate
With Sheets("Sheet2")
myRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range("A1:A" & myRow)
If WorksheetFunction.CountIf(Columns(1), c) Then
myrow2 = WorksheetFunction.Match(c, Columns(1), 0)
Cells(myrow2, 1).Resize(, 50).Value = c.Offset(, 0).Resize(, 50).Value
End If
Next c
End With
Range("B3").SpecialCells(xlCellTypeBlanks) = 0


End Sub
3 hits

【80138】別のシートから別のシートへ まくろ 18/9/10(月) 11:42 質問[未読]
【80139】Re:別のシートから別のシートへ γ 18/9/10(月) 21:40 回答[未読]
【80144】Re:別のシートから別のシートへ まくろ 18/9/11(火) 9:49 発言[未読]
【80147】Re:別のシートから別のシートへ γ 18/9/11(火) 19:01 発言[未読]
【80149】Re:別のシートから別のシートへ まくろ 18/9/12(水) 11:26 お礼[未読]

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