|
ユーザーフォーム上のCombo科目.Textを含んだレコードを抽出したいのですが
うまくできません。
Sheets("2")をアクティブにして作業しています。(貼り付け先)
Private Sub CommandButton1_Click()
Sheets("【仕訳帳】").Range("A2:G65536").AdvancedFilter Action:=xlFilterCopy, _
criteriarange:=Combo科目.Text, CopyToRange:=Range("A2:G2"), Unique:=False
End Sub
---------------------------------------------------------------------------
次の作業としてCombo科目.Textが 「現金」 と記入した場合、Sheets("2")のような表示にしようと考えています。
これですと1列目の項目とデーターがA列、B列以外はあっていません。
Sheets("【仕訳帳】")コピー元データ
A B C D E F G
1 日付 工事番号 借方金額 借方科目 摘要 貸方金額 貸方科目
2 10/18 1 1000 現金 @ 売上 1000
3 10/18 2 300 預金 @ 現金 300
4 10/19 3 3000 売上 @ 預金 3000
5 10-19 4 5000 現金 @ 預金 5000
Sheets("2")コピー先データ
A B C D E F G H I
1 日付 工事番号 工事名 相手科目 摘要 科目 借方金額 貸方金額 残金
2 10/18 1 1000 現金 @ 売上 1000
3 10/18 2 300 預金 @ 現金 300
4 10-19 4 5000 現金 @ 預金 5000
5
上表を下表のようにするには、どうしたらよろしいでしょうか
何日かやっていますが全然解決しません、よろしくお願いいたします。
A B C D E F G H I
1 日付 工事番号 工事名 相手科目 摘要 科目 借方金額 貸方金額 残金
2 10/18 1 1000 売上 @ 現金 1000 0 1000
3 10/18 2 300 預金 @ 現金 0 300 700
4 10-19 4 5000 預金 @ 現金 5000 0 5700
5
|
|