Excel VBA質問箱 IV

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

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


18669 / 76732 ←次へ | 前へ→

【63502】削除した行を別シートへ移動したい
質問  みかん  - 09/11/13(金) 13:23 -

引用なし
パスワード
   はじめまして、いつもみなさんの質問→回答を参考に色々を勉強させて頂いてます。
今日は初めて質問させていただきますが、初心者な為わかりずらい質問の仕方しか出来ないですが・・・・
どうかご理解頂きご回答して頂ければと思います。
宜しくお願い致します。

まず質問は、
年賀状印刷の住所録を作成しました。

名簿マスターというシートに、
A  B   C   D   E  ・・・・・
番号 氏名 フリガナ 会社名 部署名 ・・・・・
こういった形でデータが登録されてます。200件程あります。

ここでVBAで新規登録・削除・変更が可能なコンボボックスを作成しました。

その中の削除が以下の通りです。


  Private Sub CommandButton8_Click() '削除
  
  Dim 選択行 As Integer
  Dim 参照範囲行 As Integer
  Dim 参照番号 As Variant
  Dim 参照元 As Variant
  Dim 応答 As Variant
     
    If TextBox17 = "" Then
    
      Label16.Caption = "削除する氏名を検索してください。 "
            
      TextBox1.SetFocus
  
    Else
  
      応答 = MsgBox("データを削除します。よろしいですか?", _
      vbOKCancel, "データの削除")
      If 応答 = vbOK Then
      
      Range("A1").Activate
              
      ActiveSheet.Unprotect
      
      Label17.Caption = "削除中です。"
      DoEvents
      
      Label16.Caption = ""
      
        参照番号 = TextBox17.Value
        
        For 参照範囲行 = 3 To 1000
        参照元 = Cells(参照範囲行, 1).Text
          
          If 参照元 = 参照番号 Then
            選択行 = 参照範囲行
          End If
          
        Next 参照範囲行
        
        If 選択行 <> 0 Then
          Cells(選択行, 2).Value = ""  '氏名
          Cells(選択行, 3).Value = ""  'フリガナ
          Cells(選択行, 4).Value = "" '敬称
          Cells(選択行, 5).Value = ""  '分類1
          Cells(選択行, 6).Value = ""  '分類2
          Cells(選択行, 7).Value = ""  '会社名
          Cells(選択行, 8).Value = ""  '部署名1
          Cells(選択行, 9).Value = ""  '部署名2
          Cells(選択行, 10).Value = ""  '役職名
          Cells(選択行, 11).Value = "" '郵便番号1
          Cells(選択行, 12).Value = "" 'Eメール
          Cells(選択行, 13).Value = "" '住所1
          Cells(選択行, 14).Value = "" '住所2
          Cells(選択行, 15).Value = "" '電話番号
          Cells(選択行, 16).Value = "" 'ファックス
          Cells(選択行, 17).Value = "" '携帯電話
          Cells(選択行, 20).Value = "" '住所1'
          Cells(選択行, 21).Value = "" '住所2'
                   
          ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
          :=True
         
        Label17.Caption = "削除完了です。"
        
          TextBox1.Text = "" '氏名
          TextBox4.Text = ""  'フリガナ
          ComboBox1.Text = "" '敬称
          ComboBox2.Text = ""  '分類1
          ComboBox3.Text = ""  '分類2
          TextBox6.Text = ""  '会社名
          TextBox7.Text = ""  '部署名1
          TextBox8.Text = ""  '部署名2
          TextBox9.Text = ""  '役職名
          TextBox10.Text = "" '郵便番号
          TextBox18.Text = "" 'Eメール
          TextBox12.Text = "" '住所1
          TextBox13.Text = "" '住所2
          TextBox14.Text = "" '電話番号
          TextBox15.Text = "" 'ファックス
          TextBox16.Text = "" '携帯電話
         
        Label16.Caption = "[次へ]ボタンで次の行へ移ります。"
        
        End If
          
        If 応答 = vbCancel Then
           Exit Sub
           
        End If
      
      End If
      
    End If
  
  End Sub

このシステムですと、
削除をしたものが完全にデータ内から消えてしまいます。
これを削除シートを作成し、そちらに移行し保管したいのですが可能でしょうか?
ちなみにこの数式は退社なさった先輩が作成していかれたものなので、
私には意味がチンプンカンプンです。。。。

このデータは何人かの上司が確認し、その後でソノデータから私が印刷をかけます。
ですので、あとで私が見ても削除したものがなんなのかがわかる様
別シートに移行したいのです。

初心者で説明不足とは思いますが、
何卒宜しくお願い致します。

0 hits

【63502】削除した行を別シートへ移動したい みかん 09/11/13(金) 13:23 質問
【63505】Re:削除した行を別シートへ移動したい 超初心者 09/11/13(金) 16:30 発言
【63549】Re:削除した行を別シートへ移動したい ななし 09/11/17(火) 11:45 発言
【63551】Re:削除した行を別シートへ移動したい 独覚 09/11/17(火) 12:24 発言

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