|
家に帰って改めて質問を見ていると
中略の仕方が悪いためにわけわからん質問になっていました
改めて書き直します
Sub ボタン3_Click()
Dim i As Integer
Dim strSheetName As String
strSheetName = ActiveSheet.Name
Sheets(strSheetName).Select ・・・・OK!
・
中略
・
Sheets("Sheet2").Select ・・・(strSheetNameではありません)
Range("B27").Select
ActiveCell.Formula = "=Index(Worksheets(strSheetName).Range(""A1:A1000""), Match(D27, Worksheets(strSheetName).Range(""C1:C1000""), False))" ・・・・エラー2(アプリケーション定義またはオブジェクト定義のえらーです。)
いったん最初のボタンの存在するシートで作業を行い(エラーが出ないので中略としています)、
次にSheet2に行ってB27のセルに上記の式を入れたいということでした
わかりにくかったらすみません
よろしくお願いします
|
|