|
こんにちは。お世話になっております。。
同じファイル名があるとMsgを出してからフォームでRange("H1")を修正させ再度検索後にセーブをさせたいのですが、フォームで変更した値を認証してくれなくてずっとMsgがで続けます。ループではなくIf文でもやってみたんですが、だめみたいで(>_<)どこが違うのか教えてください。よろしくお願いします。
Sub 送信()
FileNM = "N:\test\" & Worksheets("Sheet1").Range("H1").Value & ".xls"
Do While Dir(FileNM) <> ""
MsgBox "同じ名前があります", vbInformation
Userform1.Show
Loop
Workbooks("Book1.xls").SaveCopyAs Filename:=FileNM
End sub
’ユーザーフォーム
Private Sub OKボタン3_Click()
Worksheets("Sheet1").Activate
If Me.TextBox1.Value = "" Then
MsgBox "発行No.が空白です"
Exit Sub
Else
Worksheets("Sheet1").Range("H1").Value = Me.TextBox1.Text
With Range("H1").Font
.Size = 14
.Bold = True
End With
End If
Unload Me
End Sub
|
|