Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18988 / 76733 ←次へ | 前へ→

【63182】Re:特定の文字を含むシートだけを移動させる方法
発言  けい  - 09/10/13(火) 16:35 -

引用なし
パスワード
   ▼seg さん:
▼Yukiさん:

すみません
情報が足りなさすぎでした。

今、下記のようにコードを記述してます
エラーが出るまでのところまで記載します

Private Sub CommandButton1_Click()

Dim 号Start As Integer, 号End As Integer
Dim SFX As String, WO As String
Dim WO最終行 As Integer

'********************
Dim LastR As Integer
Dim ShBOM As Worksheet, ShMas1 As Worksheet, ShMas2 As Worksheet, ShMas3 As Worksheet, ShWO As Worksheet
Dim Lev As Variant, Lev2 As Variant, Tar As Variant
Dim Parts As String, TopParts As String
Dim TopRange As Range
Dim TopKey As Integer
Dim MyLen As Integer, Pos As Integer
Dim EC As Variant
Dim MyType As Variant
Dim F判定 As Variant
Dim F As Variant
Dim MAPLNo As Integer
Dim Mas1R As Integer, Mas2R As Integer, Mas3R As Integer
Dim WS1 As Worksheet, flag As Boolean
Dim WS2 As Worksheet, flag2 As Boolean
Dim WS3 As Worksheet, flag3 As Boolean

Set ShWO = Worksheets("WO")

'号機情報
  If UserForm2.LineStxt = "" Then
    MsgBox "号機を入力して下さい"
    'End
    Exit Sub
  Else
     If UserForm2.LineStxt.Value = UserForm2.LineEtxt.Value Or LineEtxt.Value = "" Then
       号Start = UserForm2.LineStxt.Value
       号End = UserForm2.LineStxt.Value
     Else
       号Start = UserForm2.LineStxt.Value
       号End = UserForm2.LineEtxt.Value
     End If
     
  End If
  
  'SFX
  If UserForm2.OptionButton1.Value Then
    SFX = "-101"
    WO = "部品用"
  ElseIf UserForm2.OptionButton2.Value Then
    SFX = "-201"
    WO = "部品用"
  ElseIf UserForm2.OptionButton3.Value Then
    SFX = "-301"
    WO = "部品用"
  ElseIf UserForm2.OptionButton4.Value Then
    SFX = "-111"
    WO = "部品用"
  ElseIf UserForm2.OptionButton8.Value Then
    SFX = "-101"
    WO = "組立用"
  ElseIf UserForm2.OptionButton6.Value Then
    SFX = "-201"
    WO = "組立用"
  ElseIf UserForm2.OptionButton5.Value Then
    SFX = "-301"
    WO = "組立用"
  ElseIf UserForm2.OptionButton7.Value Then
    SFX = "-111"
    WO = "組立用"
  Else
    MsgBox "WOを選択して下さい"
    'End
    Exit Sub
    
  End If
  
Set ShBOM = Worksheets("BOM")
LastR = ShBOM.Range("B65536").End(xlUp).Row

For i = 11 To LastR
If ShBOM.Range("A" & i).Value = "★" Then

   Lev = ShBOM.Range("B" & i).Value '階層
   Parts = ShBOM.Range("D" & i).Value '部品番号
   Worksheets("原紙").Copy after:=Worksheets(Sheets.Count) ’←ここでたまにエラーがでます
   Worksheets(Sheets.Count).Name = Parts & "_" & Format(号Start, "0000")
       
     Set ShMas1 = Worksheets(Parts & "_" & Format(号Start, "0000"))

うまくいくときもあればうまくいかなくなるときもあります
どう、回避をしたらいいのでしょうか?
よろしくお願いします
3 hits

【63091】特定の文字を含むシートだけを移動させる方法 けい 09/10/7(水) 15:16 質問
【63092】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/7(水) 15:41 発言
【63113】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:20 お礼
【63093】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/7(水) 15:48 発言
【63114】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:25 質問
【63115】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 10:23 質問
【63116】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 11:20 発言
【63117】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 12:02 質問
【63118】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/9(金) 13:34 発言
【63174】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:03 質問
【63119】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 15:27 発言
【63175】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:05 質問
【63176】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 8:58 発言
【63177】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 10:00 発言
【63178】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 12:58 発言
【63179】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 15:13 発言
【63180】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 15:42 発言
【63181】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 15:48 発言
【63182】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 16:35 発言
【63184】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 17:27 発言
【63187】Re:特定の文字を含むシートだけを移動させ... けい 09/10/14(水) 8:26 お礼
【63188】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/14(水) 8:35 発言
【63193】Re:特定の文字を含むシートだけを移動させ... けい 09/10/15(木) 9:16 お礼

18988 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free