|
Yuki さん
出来ました。。
やりたい事が見事に出来ました。ありがとうございます。
すげぇ〜!
▼Yuki さん:
>▼とってぃ さん:
>>すみません。。まったっくどうしていいかわかりません。
>>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
|
|