|
▼とってぃ さん:
>すみません。。まったっくどうしていいかわかりません。
>1.Sheet(AAA)・・・コピーされる雛形のシート
>2.Sheet(BBB)・・・キーワードがあるDATAシート(AA11:AA41の間に文字や空白があります。その隣AB11:AB41には年月日があります。)
>
>コマンドボタンでSheet(BBB)シートのAA11:AA41の間で”あいう”があったら
>Sheet(AAA)のC12に”あいう”の見つかった隣のセル(年月日)をコピーし、
>Sheet(AAA)のシートをシートごとコピーしSheet名をSheet(AAAの年月日)にしたい。
こんにちは。
Sub TEST()
Dim i As Long
With Worksheets("BBB")
For i = 11 To 41
If .Cells(i, 27).Value = "あいう" Then
Worksheets("AAA").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Replace(.Cells(i, 28).Value, "/", "-")
ActiveSheet.Range("C12").Value = .Cells(i, 28).Value
End If
Next
End With
End Sub
|
|