[[20140822172311]]　『ユーザーフォームが閉じない』（KISS）　ページの最後に飛ぶ

『ユーザーフォームが閉じない』（KISS）

いつも大変お世話になっております
ご教授頂けたら幸いです

Unload Me
上記コマンドでユーザーフォームを閉じるのですが
私のPC上だと正常に作動するのですが

サーバーにアップすると
ユーザーフォームが閉じなくなります

どの様にすれば良いか
大変お手数と思いますが
よろしくお願いいたします

とても不思議です

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 前後のコードはどうなっているのでしょうか。
 ステップ実行しても結果は一緒ですか？

 ステップ実行で閉じるようであれば、タイミングの問題だと思いますので、処理の後に
  　DoEvents
 や
  　Application.ScreenUpdating = True
 などを実行しても変わらないでしょうか。

（Mook） 2014/08/22(金) 17:41

Mookさま

早速のお返事ありがとうございます
コードは下記の様になります

ENDとUnload Me の間に教えてもらったコード入れてみましたが
変わりません

又単独のUnload Me　コマンドボタンでは閉じます

お知恵をお貸しください　　よろしくお願いいたします

Private Sub CommandButton2_Click() '作成ボタン
On Error Resume Next

    Dim intRow As Integer

'ここから付け足し

    Dim lngRw As Long

    ThisWorkbook.Activate

        With Sheets("注文書発行一覧")

            lngRw = .Cells(Rows.Count, 1).End(xlUp).Row    '最終行
            .Cells(lngRw + 1, 1) = lngRw + 997  '新規入力No
            TextBox33.Value = lngRw + 997

        End With

' lngRw = TextBox33.Value + 3
''
' '転記
' With Worksheets("注文書発行一覧")
'
' TextBox33.Text = .Cells(lngRw + 1, "A").Value
'
' .Cells(lngRw, "A") = TextBox33.Value '注文No

' End With

'ここまで

'注文書に転記

With Worksheets("注文書")

    .Range("H17") = TextBox33.Text  '注文番号

    .Range("I18") = TextBox5.Text '注文日　年

    .Range("K18") = TextBox6.Text '注文日　月

    .Range("M18") = TextBox7.Text '注文日　日

    .Range("I19") = TextBox8.Text '納期　年

    .Range("K19") = TextBox9.Text '納期　月

    .Range("M19") = TextBox10.Text '納期　日

    .Range("H21") = ComboBox1.Text '支払条件

    .Range("Q5") = ListBox1.Text

    .Range("H20") = ListBox2.Text

    .Range("C4") = ComboBox2.Text

    .Range("C3") = ComboBox3.Text

    .Range("C1") = ComboBox4.Text

    .Range("B2") = ComboBox5.Text

End With

'一覧へ転記
With Sheets("注文書発行一覧")

    intRow = .Cells(Rows.Count, "B").End(xlUp).Row

    i = 1

            .Range("B" & i + intRow) = ComboBox2.Text '注文先
            .Range("C" & i + intRow) = ComboBox3.Text '支店・営業所名

            .Range("E" & i + intRow) = TextBox13.Text '品名
            .Range("F" & i + intRow) = TextBox14.Text '数量
            .Range("G" & i + intRow) = TextBox15.Text '金額
            .Range("H" & i + intRow) = TextBox16.Text '見積??

            .Range("I" & i + intRow) = TextBox17.Text '品名
            .Range("J" & i + intRow) = TextBox18.Text '数量
            .Range("K" & i + intRow) = TextBox19.Text '金額
            .Range("L" & i + intRow) = TextBox20.Text '見積??

            .Range("M" & i + intRow) = TextBox21.Text '品名
            .Range("N" & i + intRow) = TextBox22.Text '数量
            .Range("O" & i + intRow) = TextBox23.Text '金額
            .Range("P" & i + intRow) = TextBox24.Text '見積??

            .Range("Q" & i + intRow) = TextBox25.Text '品名
            .Range("R" & i + intRow) = TextBox26.Text '数量
            .Range("S" & i + intRow) = TextBox27.Text '金額
            .Range("T" & i + intRow) = TextBox28.Text '見積??

            .Range("U" & i + intRow) = TextBox29.Text '品名
            .Range("V" & i + intRow) = TextBox30.Text '数量
            .Range("W" & i + intRow) = TextBox31.Text '金額
            .Range("X" & i + intRow) = TextBox32.Text '見積??

            .Range("Y" & i + intRow) = TextBox5.Text  '注文年
            .Range("Z" & i + intRow) = TextBox6.Text  '注文月
            .Range("AA" & i + intRow) = TextBox7.Text  '注文日

            .Range("AB" & i + intRow) = TextBox8.Text   '納期年
            .Range("AC" & i + intRow) = TextBox9.Text  '納期月
            .Range("AD" & i + intRow) = TextBox10.Text '注文日

            .Range("AE" & i + intRow) = ListBox2.Text  '納入場所
            .Range("AF" & i + intRow) = ComboBox1.Text  '支払条件
            .Range("AG" & i + intRow) = ComboBox5.Text '住所
              .Range("AH" & i + intRow) = ListBox1.Text

End

Unload Me

End With

End Sub
（KISS） 2014/08/22(金) 18:02

 あら、Unload Me の前に End がありますね。
 ここでプログラムは終わっちゃいますよ？
 ステップ実行はしてみたでしょうか。

 蛇足ですけれど、
 On Error Resume Next 
 も必要な処理ですか？

 お呪いで入れるのはやめた方が良いと思います。
（Mook） 2014/08/22(金) 18:06

Mookさん
早速の対応ありがとうございます

 On Error Resume Next 
については　いらない処理です

作ってる時に外すの忘れてしまいました
ご指摘ありがとうございます
また
END　　編集の時に消すの忘れてました
ご指摘ありがとうございました
（KISS） 2014/08/22(金) 18:13

コメント返信：

[ 一覧(最新更新順) ]

[[20140822172311]] 『ユーザーフォームが閉じない』（KISS） ページの最後に飛ぶ

[[20140822172311]]　『ユーザーフォームが閉じない』（KISS）　ページの最後に飛ぶ