エクセル マクロ修正
シート１～５まであります。別に情報シートを作成しています
それぞれ同じ原本から作成しています
全部のシートにＡ１～Ａ１０のセルに日付、B1～B10のセルに文字など入力がするところがあります
入力はＡ１から順番に入れていきます
例えば
保存ボタンを作成しておく
シート１のA1に日付、B１に”文字”を入力し、保存ボタンをおす
情報シートに日付と内容が一致する情報がなければ、
情報シートのＡ列にシート名、Ｂ列に日付、C列に入力した内容が
空白のところに出力される
ボタンのマクロがCommandButton1_Clickとしたら
Private Sub CommandButton1_Click()
検索
End Sub
標準モジュールに
Sub 検索()
Dim c As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws1LastRow As Long
Dim ws2LastRow As Long
Set ws1 = Sheets("情報シート")
Set ws2 = ActiveSheet
If ws2.Range("A1").Value = "" Or ws2.Range("B1").Value = "" Then
MsgBox "検索する日付もしくは語句が入力されていません。", vbCritical
Exit Sub
End If
If ws1.Range("A1").Value = "" Then
ws1LastRow = 0
Else
ws1LastRow = ws1.Cells(Rows.Count, "A").End(xlUp).Row
End If
ws2LastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row
For Each c In ws1.Range(ws1.Cells(1, "B"), ws1.Cells(Rows.Count, "B").End(xlUp))
If c.Value2 = ws2.Cells(ws2LastRow, "A").Value2 Then
If c.Offset(0, 1).Value = ws2.Cells(ws2LastRow, "B").Value Then
MsgBox "既にデータが存在します", vbInformation
Exit Sub
End If
End If
Next
ws1.Cells(ws1LastRow + 1, "A").Value = ws2.Name
ws1.Cells(ws1LastRow + 1, "B").Resize(1, 2).Value = ws2.Cells(ws2LastRow, "A").Resize(1, 2).Value
MsgBox "データを追加しました", vbInformation
Set ws1 = Nothing
Set ws2 = Nothing
End Sub
これを教えて頂き作っていたのですが
別のシートを作成しこのプログラムを応用していたのですが
うまく起動しないため再度投稿しました
今度のやつは固定でやろうと思っていていじったのですが
別の欄の文字が表示してしまった
結合セルB2：C4に日付を入れる
結合セルL２：L３０に内容を入れるようにしたいのですが
ここだけのセルを参照するようにしたいのです。
どうすればいいでしょうか？
試したことAをB2にかえ、BをL２にしたら変なことになりました・・・
お礼
ありがとうございます できました