現在、VBA勉強中の初心者です。
自分なりに作成したVBAではうまく作動しません。
どなたか教えてください。
sheet１（受付簿）のデータをB３～U４３までコピーして、名前をつけて新たに別シートに作成保存し、作成したシートのA１に、値と書式を貼り付けます。
そして作成したシートを、一番右側に作成したいのですが、エラーが発生します。
（エラー）
「実行時のエラー
オブジェクトは、このプロパティまたはメソッドをサポートしていません」
が発生します。
下記のように、VBAを作成したのですが、どこが間違いなのかご指摘をお願いします。
Sub 別シートに名前をつけて保存()
Dim title As String
Dim msg As String
Dim t As String
title = " 別シートに名前をつけて保存する"
msg = "名前を入力してください"
t = InputBox(msg, title)
Worksheets("受付簿").Range("B1:U43").Copy
With Worksheets.Add
.Name = t
.Range("a1").Select
.Range("a1").Paste
.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub
お忙しい中、申し訳ありませんが、どうぞよろしくお願いします。
VBA初心者です。
多数のシートを条件によって二つのブックに分ける、というVBAを作ろうとしています。
なにぶん素人なので、無駄な文章が多いのではないかと心配で、
お知恵を拝借できればと思い投稿いたしました。どうぞよろしくお願いいたします。
やりたいこと：Book1のA列に100程度の文字列があり、そのいずれかと一致するシート名（Book1のSheets(2)以降）を持つシートはBook2の最終シートの後ろへ、どの文字列ともシート名が一致しないシートはBook3の最終シートの後ろへ移動。（「最終シートの後ろへ移動」がうまくいっていません）
VBAの内容：Book1のH1に「=countif(A:A,G1)」と入力しておき、G1にシート名を入力させ
H1>0ならば該当シートをBook2へ、それ以外はBook3へ移動 の繰り返し
Application.ScreenUpdating = False
Dim j As Integer, k As Integer
j = Workbooks("Book2.xls").Worksheets.Count
k = Workbooks("Book3.xls").Worksheets.Count
Do While Workbooks("Book1.xls").Sheets.Count > 1
Range("G1").Value = Worksheets(2).Name
If Range("H1").Value > 0 Then
Worksheets(2).Move after:=Workbooks("Book2.xls").Sheets(j)
Else
Worksheets(2).Move after:=Workbooks("Book3.xls").Sheets(k)
End If
Loop
AフォルダにあるZipファイルを検索し、そのファイルを解凍ソフトで開きBフォルダに解凍するマクロを作成中です。解凍ソフト自体に保存先フォルダを設定していますので、Bフォルダは関係ありません。
----------------------------
Sub AAA
Dim ksDir As String
Dim ktExe As String
Dim fName As String
Dim i As Long
Const KTS As String = ".zip"
ksDir = "\\xxx.xxx.xxx.xxx\A\"
fName = Dir (ksDir & "*" KTS , vbNormal)
Do While fName = <> ""
Shell "\\xxx.xxx.xxx.xxx\C\解凍ソフト.exe ktDir & fName"
i = i + 1
nName = Dir
Loop
End Sub
--------------------------
「Shell "\\xxx.xxx.xxx.xxx\C\解凍ソフト.exe ktDir & fName"」の”ktDir & fName”の部分に実在する
ファイルのパスを入れるとうまくいきますが、変数を入れて処理するとうまくいきません。
どこか間違いがある、又は他によい記述のしかたがあれば教えてください。
よろしくお願いします。
エクセルマクロの質問です。エクセルのヴァージョンは2000です。
あるシートをコピーして新シートに任意の名前を付けるマクロを作っています。ユーザーフォームの中に一つのテキストボックス（新シートの名前入力用）と二つのコマンドボタンを設置し一つは実行ボタン、もう一つはキャンセルボタンとしました。
QNo.6367227でエラー処理に関する質問をさせていただきましたが、こちらは見事に解決していただきました。
今回の質問はExit Subに関する質問です。
If構文で、条件文１が真であればシートをコピーして名前を変更、フォームを閉じるという処理を目指しています。
If 条件 Then ～ 処理 Exit Sub
という形を作って試してみたのですが、処理後にExit Subが実行されません。Exit Subの前にメッセージボックスを挿むとメッセージは表示されましたが、やはりExit Subにはたどり着けませんでした。
すごく初歩的な事で恥ずかしいのですが、Exit Subが実行されない理由と解決法をご教示いただけると助かります。よろしくお願いします。
Private Sub CommandButton1_Click()
Dim NewSheetName As String
NewSheetName = TextBox1.Value
On Error Resume Next
Sheets("Summary").Name = NewSheetName
If Err.Number = 0 Then
Sheets(NewSheetName).Copy before:=Sheets(NewSheetName)
ActiveSheet.Name = "Summary"
MsgBox ("Tasｋ Completed!")
ExitSub
Else
MsgBox "Invalid name!"
End If
On Error GoTo 0
End Sub
