Formulir Entri Data Excel Sederhana Terdistribusi Dua Tabel Memakai Record Macro + Ekspresi If Else

แชร์
ฝัง
  • เผยแพร่เมื่อ 4 ก.พ. 2025

ความคิดเห็น • 152

  • @mandalakomputer346
    @mandalakomputer346 11 หลายเดือนก่อน

    Mantap Bang!
    Terima Kasih
    Semoga Ilmunya bertambah, sehat wal'afiat dan banyak rezekinya

  • @Tuan_bejo
    @Tuan_bejo 7 หลายเดือนก่อน

    trimakasih bang.
    baru ketemu chanel yg bener-bener membantu bagi yg masih belajar..🤓
    gk chanel" sebelah banyak yg pelit share file hasilnya buat perbandingan buatan abang dengan hasil buatan sendiri. 🤭
    sukses slalu & makin banyak yg subrek..🤣🤣🤣

  • @lilianarika980
    @lilianarika980 ปีที่แล้ว

    Terimakasih Bang, tutorialnya jelas dan mudah dimengerti. Auto subscribe

  • @Lim-sy8fp
    @Lim-sy8fp 2 ปีที่แล้ว

    Mantap penjelasannya bang Junaidi Mutoyib

  • @ahmadmubarok1506
    @ahmadmubarok1506 7 หลายเดือนก่อน

    Terima kasih atas ilmunya..
    sangat bermanfaat..
    Barokalloh

  • @endahsoelistio8627
    @endahsoelistio8627 2 ปีที่แล้ว

    MANTAB Bang Junaidi Mutoyib, Terimakasih atas oilmu dan pencerahannya.
    SAngat bermanfaat sekali buat saya yang masih pemula dalam Excel.
    Teruslah berbagi pengalaman dan pengetahuan yang penting kepada pemirsa. Semoga menjadikan keberkahan bagi Bang Junaidi sekeluarga, aamiin....

  • @hendrahoratian794
    @hendrahoratian794 3 ปีที่แล้ว +1

    Terima kasih, sangat mudah dipahami penjelasannya… sdh saya coba, bisa berjalan dengan baik

  • @cakmud
    @cakmud 2 ปีที่แล้ว

    Terimakasih tutorial nya sangat membantu, tinggal praktek nih

  • @hariantoefendi929
    @hariantoefendi929 7 หลายเดือนก่อน

    Terima kasih, penjelasannya mudah difahami

  • @ceppyhasanbasri1835
    @ceppyhasanbasri1835 2 ปีที่แล้ว

    semoga abang rejekinya lancar, sangat bermanfaat cekali

  • @BelajarComputerChannel
    @BelajarComputerChannel 3 ปีที่แล้ว +1

    kren ni bang makasi ya

  • @arifrohmatullah8528
    @arifrohmatullah8528 2 ปีที่แล้ว

    ijin belajar ya,, TERIMAKASIH

  • @budihandoyo9861
    @budihandoyo9861 2 ปีที่แล้ว

    Bosq sekalian buat pencarian berdasarkan Nama, nik ktp yak. Ditunggu? Kren banget nih ,👍🙏

  • @luqmananugrah3693
    @luqmananugrah3693 2 ปีที่แล้ว

    Keren top

  • @dendisupriadin5334
    @dendisupriadin5334 3 ปีที่แล้ว +1

    mantap om

  • @kaliber5151
    @kaliber5151 3 ปีที่แล้ว +1

    trimakasih pak guru

  • @faf_design9974
    @faf_design9974 3 ปีที่แล้ว +1

    Mantap 👍👍👍👍

  • @rizpiz
    @rizpiz 3 ปีที่แล้ว

    Terima kasih kak, caranya sangat sederhana, dan bagus, tapi aku pen tau ni, cara record macro untuk tombol editnya 😇🙏

  • @azhartv6657
    @azhartv6657 3 ปีที่แล้ว

    Terima kasih sangant membantu dan mudah dipahami. Mohon batuan bagaimna kal pemasukan dan keluaran beda sheet. Terima kasih

  • @atmafatkurosi5094
    @atmafatkurosi5094 ปีที่แล้ว

    Pak mau request tombol explore dengan format XLSX dengan ketentuan nama file di range sel tertentu. Saya sudah subscribe like dan komen terima kasih

  • @mohamadgofar6851
    @mohamadgofar6851 3 ปีที่แล้ว +1

    terima kasih, sangat membantu... mohon bantuannya.... jika melaukan edit untuk data yang sudah terinput bagaimana?
    dan bagaimana menyiasati kolom yang tidak berurutan?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      untuk edit cek video ini ya th-cam.com/video/GOFZ3CVQG7w/w-d-xo.html sudah saya buatkan tutorialnya. untuk menyiasati kolom yang tidak berurutan bisa dengan metode copy paste biasa, per input field per kolom, seperti pada video yang pertama ini th-cam.com/video/rcJWFIG0JJc/w-d-xo.html

  • @easydrawandcolour
    @easydrawandcolour หลายเดือนก่อน

    Apakah ada update skripnya pak, saya aplikasikan sesuai di youtube tidak bisa. Mohon bantuannya terima kasih

  • @santafeabdul2479
    @santafeabdul2479 ปีที่แล้ว

    Pak kalau transpose di kolom yang tidak berurut atau langkah satu baris contoh apakah bisa ?

  • @edisuryadi6894
    @edisuryadi6894 ปีที่แล้ว

    kalau mau edit data yang sudah di simpan gmn? langsung dari databasenya ?

  • @badriatulfadillah5323
    @badriatulfadillah5323 5 หลายเดือนก่อน

    Buat simpan Ada shortcutnya ga yah biar ga ngeklik2 mouse atau tab lagi

  • @MaeshaYuditia
    @MaeshaYuditia 4 หลายเดือนก่อน

    Om kalo di versi sy tidak menambah ke baris baru malah mengganti ke data sebelumnya, kira" bagaimana ya?

  • @KAT-k6q
    @KAT-k6q 4 หลายเดือนก่อน

    Apakah bisa saat diinput sekaligus terisi dua data sekaligus?

  • @gofarm5498
    @gofarm5498 ปีที่แล้ว

    terimakasih ilmunya om, di kolom G dan K (hasil nominal) bisa diisi fungsi IF? misal ketika pilih pemasukan, nominal 5000, maka di hasil akan muncul (5000+200), untuk keperluan agen brilink

  • @nurlaelah2835
    @nurlaelah2835 8 หลายเดือนก่อน

    Mau tanya ka. Klo pake linux bisa ga? Krn cari delevelopernya ga nyala?

  • @azwa1628
    @azwa1628 2 ปีที่แล้ว

    Bisa nggak bang...data yg di simpan di taruh di bawah peng infut nya

  • @ermynv
    @ermynv 3 ปีที่แล้ว +2

    Kak minta pencerahan donk,
    Aku sudah mengikuti pentunjuk yg ada di vidio tp dataku kok gk bisa kaya punya kakak yg klu di input datanya bakalan update di colom selanjutnya. Kalau punya ku kok data sebelumnya disimpan tergantikan dengan data baru ya kak, gk mau update dibawahnya gitu

  • @ach.romdoni
    @ach.romdoni 2 ปีที่แล้ว

    Maaf itu kan menggunkan macro yg ke otomatis jika klik simpan mengisi di bawahnya.
    Klau mau buat laporan yg vertikal. Jadi yg terisi otomatis di colom sampingnya. Kira" bisa kak.??

  • @derozmilanisty6682
    @derozmilanisty6682 3 ปีที่แล้ว

    Gimana caranya jika form input ngambil data dari tabel tertentu (database) kita input di tabel baru dan jika diedit databasenya jg ikut teredit..

  • @chaerulhadi2230
    @chaerulhadi2230 2 หลายเดือนก่อน

    Mantap Bang
    Saya mencoba berlatih seperti itu. Pd entry data nom 1 berjalan lancar, Dan saya input data lagi no.2 Dan hasilnya, data no.2 menimpa data yg nomer 1 .
    Bgman solusinya Bang?
    Thanks

  • @zhillaaulia
    @zhillaaulia 11 หลายเดือนก่อน

    Bang, gimana kalau mau simpan isian dari form inputnya di satu kolom yang sama ya , apa bisa ??. Kan gini kalau ini ada di kolom f dan j nah kalau semisal hasilnya mau di 1 kolom, tapi beda kelompok gitu gimana ? (Semoga dapat dipahami pertanyaannya. Makasih bang..

  • @la_ferdiansyah
    @la_ferdiansyah 4 หลายเดือนก่อน

    bang. saya pas klik ctrl+bawah. napa langsung loncat ke baris paling bawah ya?

  • @nureliisa
    @nureliisa 3 ปีที่แล้ว

    Makasih banget pak ilmunya, saya sudah mengikuti semuanya pak tapi kenaa pas mau bikin pengeluaran munculnya di pemasukan terus ya:(

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Mungkin salah di variabel dan if else nya

  • @perencanaanmonev556
    @perencanaanmonev556 3 ปีที่แล้ว +1

    kalau "pemasukan" pada range f2 merupakan merger dari beberapa kolom trus bagaimana ? saat penginputan coding di macros nya

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว +1

      Bisa, menekan ctrl+arah bawah tetep menuju ke cell di bawahnya yang paling kiri

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว +1

      untuk input coding di macronya, misal merge cell nya itu F2 sampai H2, brarti didalam variabel ditulis "F2:H2" jadinya Range("F2:H2").Select sedangkan kalau tanpa merger kan cuman "F2" jadinya Range("F2").Select

  • @dimanpasirandu8515
    @dimanpasirandu8515 ปีที่แล้ว

    Saya sudah bikin sesuai tutorial, tapi kok saat di simpan untuk yang pengeluaran g mau dan kolom tgl, jumlah, keterangan malah copy ya.

  • @deeazza86
    @deeazza86 2 ปีที่แล้ว

    Salam.. Jika mengikut table bulanan.. Bagaimana ya? Bisa jelasin.. Thanks

  • @fatihsurur108
    @fatihsurur108 2 ปีที่แล้ว +2

    Bang, kalo beda sheet gimana..?

  • @slambu666
    @slambu666 2 ปีที่แล้ว

    Mau tanya dong. Misal kita mau bikin laporan per bulan dimana kolom berisi tanggal (1-30), baris berisi nama item.
    Biar bisa input sesuai dgn tgl yg tersedia itu gmn ya?

  • @hendarfl
    @hendarfl 3 ปีที่แล้ว

    Mas...mau nanya klo bisa minta tutorialnya updatenya dari data pemasukan atau pengeluaran apabila ada kesalahan.

  • @unnamedjf
    @unnamedjf 3 ปีที่แล้ว +1

    Berarti total pemasukan bisa auto di kirang dengan pengeluaran dengan mode =sum biasa.. Jadi keluar total sisa uang saldo

  • @sarnitas.m9024
    @sarnitas.m9024 3 ปีที่แล้ว

    Untuk pengeluaran saya edit makronya gak bisa peringatan ''debug'' selalu...

  • @nimahfaadlilah1660
    @nimahfaadlilah1660 3 ปีที่แล้ว +1

    Terima kasih ilmunya sangat membantu, tapi kenapa saat input menggunakan rumus misal =D4-D2 tidak bisa?bagaimana solusinya?

  • @bestimasak4745
    @bestimasak4745 2 ปีที่แล้ว

    Kak kalau ada pemasukan di / pengeluaran di tgl yg sama saya coba malah hilang yg inputan sebelunnya itu gimana ya ?

  • @idotulmuayanah2501
    @idotulmuayanah2501 3 ปีที่แล้ว

    Mas punya ktika d input kug data tidak terisi k bris berikut nya pdhal ud aq coba berulang tpi MC lom bs

    • @windowtotheworld2924
      @windowtotheworld2924 3 ปีที่แล้ว

      Sama saya juga tidak menambah data tapi malah mereplace data

  • @gunawansetionugroho2658
    @gunawansetionugroho2658 2 ปีที่แล้ว

    Kog sy buat dng langkah sama kog selalu debug,
    Di bag activecell.offset(1,0).range("A1").select
    Itu di blok kuning.
    Artinya apa ya mas

  • @adytanwinzt6150
    @adytanwinzt6150 ปีที่แล้ว

    Kalau Di WPS atau open office bisa macro?

  • @piii1339
    @piii1339 2 ปีที่แล้ว

    Bg mau nanya, kalau mau nambahkan gambar date picker itu gimana ya caranya?

  • @chandratik043
    @chandratik043 3 ปีที่แล้ว +1

    Mohon bantuannya bang, scriptnya ada debug dibagian "Selection.PasteSpecial Paste: xlPasteAll, Operation:xlNone, SkipBlank:= _
    False, Transpose:=True"
    Gmn ya pak?sudah saya ikuti langkah2 nya.. terimakasih atas responnya 🙏

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว +1

      Sepertinya script diatasnya ini yang salah, kemungkinan di bagian .select if else nya, sehingga perintah paste tersebut jadi error

    • @chandratik043
      @chandratik043 3 ปีที่แล้ว

      @@junaidimuntoyib sudah saya ikuti seperti script contoh nya bang.. videonya saya putar ulang ulang supaya tidak ada yg salah 😀

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      @@chandratik043 coba saya liat keseluruhan scriptnya, mungkin ada petik yg salah atau lainnya

    • @chandratik043
      @chandratik043 3 ปีที่แล้ว

      @@junaidimuntoyib nanti saya copy dulu bang scriptnya

    • @chandratik043
      @chandratik043 3 ปีที่แล้ว

      @@junaidimuntoyib
      Dim jenis
      Sub simpan()
      '
      ' simpan Macro
      '
      ' jenis = Range("D4").Value

      Range("D6,D8,D10").Select
      Range("D10").Activate
      Selection.Copy

      If jenis = "Pemasukan" Then
      Range("F2").Select
      ElseIf jenis = "Pengeluaran" Then
      Range("J2").Select
      End If

      Selection.End(xlDown).Select
      ActiveCell.Offset(1, 0).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
      Range("D10").Select
      Application.CutCopyMode = False
      Selection.ClearContents
      Selection.ClearContents
      Range("D8").Select
      Selection.ClearContents
      Selection.ClearContents
      Range("D6").Select
      End Sub

  • @ClayXyZz
    @ClayXyZz ปีที่แล้ว

    bang mohon dibantu kalau inputnya ke banyak tabel dan beda sheet gmn bang mohon tutornya?

  • @danirijal1647
    @danirijal1647 ปีที่แล้ว

    Bang punya saya ketika memasukan data baru data lama malah kehapus jd diganti data baru, knp ya?

  • @setyob3351
    @setyob3351 2 ปีที่แล้ว

    Di macro utk pilihan Use Relative Transpose kok ndak ada bang? Saya pake macbook

  • @idabagusartanaya3201
    @idabagusartanaya3201 3 ปีที่แล้ว

    Mhn bantu bang.. kok setelah saya klik simpan munculnya apppication definer or object deffiner error

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      mungkin ada kesalahan sewaktu nulis script, pada variabel jenis atau sheet range select nya

  • @tommyraharjo4719
    @tommyraharjo4719 3 ปีที่แล้ว +1

    Pak mau tanya, untuk scriptnya di diamkan atau disave? Kalau savenya taro di file mana pak?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว +1

      Didiamkan/close saja tidak apapa. Yang penting save as Excel Macro-Enabled Workbook

    • @tommyraharjo4719
      @tommyraharjo4719 3 ปีที่แล้ว

      @@junaidimuntoyib terimakasih ya pak

  • @AkuKerja-vx2tq
    @AkuKerja-vx2tq 6 หลายเดือนก่อน

    Bisa lebih 2 sheet?

  • @arifrahmanhakim354
    @arifrahmanhakim354 6 หลายเดือนก่อน

    tabel pengeluaran tidak berfungsi sudah di ikuti sesuai video yang ter input hanya pemasukan mohon pencerahan MIN terima kasih

  • @abdivespa
    @abdivespa 2 ปีที่แล้ว

    Utk tabel pengeluaran ny ko Gagal ya bang saya :( udd sma persis

  • @dimanpasirandu8515
    @dimanpasirandu8515 ปีที่แล้ว

    Mas saya coba kok g bisa masuk di tabel 2 ya? Ada yang salah dimana. Padahal sudah sama persis petunjuknya

  • @bilqimlb
    @bilqimlb 2 ปีที่แล้ว

    kenapa setiap diklik simpan malah nimpa data paling atas yah ?

  • @ahmezfaisal486
    @ahmezfaisal486 7 หลายเดือนก่อน

    Bang misal salah input, nanti hapusnya gimana?

  • @unnamedjf
    @unnamedjf 3 ปีที่แล้ว +1

    Pak kalau kita mau buat sheet baru gimana..
    Misal kita mau buat sampai 30 sesuai hari selama 1 bulan, apa bisa di copy paste semua ke sheet baru?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Bisa banget, jadi mungkin langkahnya seperti ini:
      1. buat sheet data sejumlah hari, namai sheet dengan angka sesuai tanggal
      2. identifikasi input nilai tanggal pada form kemudian masukkan ke dalam variabel
      3. masukkan variabel tersebut pada baris sebelum start point
      4. tuliskan script Sheets(variabel_hari).range(start_point).select
      bayangan saya seperti itu dan kemungkina besar berhasil 😂 🙌

    • @unnamedjf
      @unnamedjf 3 ปีที่แล้ว

      @@junaidimuntoyib bantu buatin contohnya pak, gak paham kalau dari berbalas komentar haha..

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว +1

      @@unnamedjf alamat emailnya coba sini saya kirimkan contoh filenya, karna saya tertarik bikin jadi sudah langsung saya eksekusi 😂

    • @unnamedjf
      @unnamedjf 3 ปีที่แล้ว

      @@junaidimuntoyib terimakasih pak.. Sangat membantu pak..

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      @@unnamedjf Selamat mencoba 👍

  • @RdAdya
    @RdAdya 3 ปีที่แล้ว

    ka kalau mau delete misalkan kita salah mendata gimana

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      bisa cek video ini th-cam.com/video/VsYcfgIq2fY/w-d-xo.html

  • @10_dindaapriliamaulidina32
    @10_dindaapriliamaulidina32 หลายเดือนก่อน

    Kak mau tanya, saya sudah coba ikuti sesuai video diyt tapi debug dibagian if jenis = "Pemasukan" Then
    Itu kenapa ya kak? Padahal saya sudah coba ulangi rumus berkali kali

    • @junaidimuntoyib
      @junaidimuntoyib  หลายเดือนก่อน

      coba cek pesan debug nya berbunyi apa? bisa jadi ada satu huruf atau karakter coding yang salah

    • @10_dindaapriliamaulidina32
      @10_dindaapriliamaulidina32 หลายเดือนก่อน

      @junaidimuntoyib sudah saya masukkan sesuai contohnya kak. Tapi tetap tidak bisa dan debug dibagian tersebut. Untuk pesan errornya adalah Error 13 type mismatch

    • @junaidimuntoyib
      @junaidimuntoyib  หลายเดือนก่อน

      @@10_dindaapriliamaulidina32 sepertinya ada internal error aplikasi, coba copy paste kan script nya ke comment ini, saya jadi penasaran

    • @10_dindaapriliamaulidina32
      @10_dindaapriliamaulidina32 หลายเดือนก่อน

      @@junaidimuntoyib
      Sub Macro5()
      '
      ' Macro5 Macro
      '
      '
      Dim Jenis
      Jenis = Range("J5:K5").Value
      Range("J6:K6").Activate

      Range("J4:K4,J5:K5,J6:K6").Select
      Range("J6:K6").Activate
      Selection.Copy

      If Jenis = "PIUTANG" Then
      Range("C15").Select
      ElseIf Jenis = "HUTANG" Then
      Range("K15").Select
      End If

      Selection.End(xlDown).Select
      ActiveCell.Offset(1, 0).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
      Application.CutCopyMode = False
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      Selection.UnMerge
      Selection.Borders(xlDiagonalDown).LineStyle = xlNone
      Selection.Borders(xlDiagonalUp).LineStyle = xlNone
      With Selection.Borders(xlEdgeLeft)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeRight)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlInsideVertical)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlInsideHorizontal)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      Range("J4:K4").Select
      Selection.ClearContents
      Range("J5:K5").Select
      Selection.ClearContents
      Range("J6:K6").Select
      Selection.ClearContents
      Range("J4:K4").Select
      End Sub

    • @10_dindaapriliamaulidina32
      @10_dindaapriliamaulidina32 หลายเดือนก่อน

      @@junaidimuntoyib
      Sub Macro5()
      '
      ' Macro5 Macro
      '
      '
      Dim Jenis
      Jenis = Range("J5:K5").Value
      Range("J6:K6").Activate
      Range("J4:K4,J5:K5,J6:K6").Select
      Range("J6:K6").Activate
      Selection.Copy
      If Jenis = "PIUTANG" Then
      Range("C15").Select
      ElseIf Jenis = "HUTANG" Then
      Range("K15").Select
      End If
      Selection.End(xlDown).Select
      ActiveCell.Offset(1, 0).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
      Application.CutCopyMode = False
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      Selection.UnMerge
      Selection.Borders(xlDiagonalDown).LineStyle = xlNone
      Selection.Borders(xlDiagonalUp).LineStyle = xlNone
      With Selection.Borders(xlEdgeLeft)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlEdgeRight)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlInsideVertical)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      With Selection.Borders(xlInsideHorizontal)
      .LineStyle = xlContinuous
      .ThemeColor = 10
      .TintAndShade = 0.399975585192419
      .Weight = xlThin
      End With
      Range("J4:K4").Select
      Selection.ClearContents
      Range("J5:K5").Select
      Selection.ClearContents
      Range("J6:K6").Select
      Selection.ClearContents
      Range("J4:K4").Select
      End Sub

  • @handyrizkiprima3105
    @handyrizkiprima3105 3 ปีที่แล้ว

    gan, ko pas saya ctr+panah bawah ..malah pindah ke sell paling bawah, mohon pencerahanya

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Ya sudah tepat, karna tabelnya sudah terisi data. ctr+panahbawah berfungsi untuk berpindah ke baris terakhir, berapapun jumlahnya. Sehingga ketika diambahi dengan arah bawah sekali maka akan menuju ke baris baru untuk data baru dibawah baris data terakhir.

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      kemudian pastenya juga di kolom pada baris terakhir tersebut setelah arah bawah sekali, tidak malah paste di baris pertama setelah kolom judul tabel

  • @rizwarrizali6760
    @rizwarrizali6760 3 ปีที่แล้ว

    Mas..mau tanya kalu dalam tabel inputnya menggunakan rumus, setelah jalankan macro nya, rumus nya berubah cell nya (#reff)... gimana cara mengatasinya ya?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      kemungkinan salah memasukkan nama cell yang dirujuk

    • @RizkyKurniawan-xm9ox
      @RizkyKurniawan-xm9ox ปีที่แล้ว

      udah ketemu solusinya bang? gw nyoba setelah tombol tambah di klik data udah ke transpose tapi rumus2 di form inputan hilang/pindah ke tabel transpose

  • @triwasissugihartanto2509
    @triwasissugihartanto2509 3 ปีที่แล้ว

    kalau form inputan, pemasukan dan pengeluaran dibeda sheet gmana ya? hehehe, terimakasih kak,

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      bisa cek video ini th-cam.com/video/JTrVLKFkWWM/w-d-xo.html konsepnya sama, tinggal disesuaikan jenis (pemasukan pengeluaran) dan sheet nya

  • @yantogik4643
    @yantogik4643 3 ปีที่แล้ว

    Bagaimana mas kalau masuk ke 4 data, misalnya entry masuk di 1. BKU 2. KAS Pembantu 3. Masuk Buku Bank dan 4. Masuk Pajak. Makasih

  • @fiatmilanisti2832
    @fiatmilanisti2832 3 ปีที่แล้ว

    Saya sudah coba, tapi untuk input kedua setelah disimpan , hasilnya menimpa di input pertama, mohon solusinya

    • @yinxcom1865
      @yinxcom1865 3 ปีที่แล้ว

      saya juga sama kendalanya, akhinya saya sebelum input datanya ke tabel , insert row dulu

  • @bettyapriyani6523
    @bettyapriyani6523 3 ปีที่แล้ว

    Hallo pak, punya saya sudah berhasil. Terus di save, tapi pas di buka input baru lagi, timbul tulisan cannot run the macro

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Bisa di coba ke tab menu File -> Options -> Trust Center -> Trust Center Setting, pada Macro Settings pilih Enable all macros . . .
      Kemudian reopen file nya

  • @rivaldijohansahdwitama470
    @rivaldijohansahdwitama470 3 ปีที่แล้ว

    ko cuma bisa 2 tabel doang ya bang ke bikin nya, selebih nya malah cuma ngupdate yg kolom 2 nya.

  • @achmadnoormansetiawan5194
    @achmadnoormansetiawan5194 2 ปีที่แล้ว

    kalau beda sheet bagaimana kak ?
    aku coba ndak bisa bisa

  • @suhendraramdhan399
    @suhendraramdhan399 3 ปีที่แล้ว +1

    Punya, saya error mas, boleh minta kontak WAnya?? Saya mau kirim script saya..

  • @refanproject
    @refanproject 3 ปีที่แล้ว +1

    kalau ke beda sheet bisa gak ?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      cek th-cam.com/video/JTrVLKFkWWM/w-d-xo.html

  • @erwindarvis4154
    @erwindarvis4154 3 ปีที่แล้ว

    Bang pas dim jenis nya error gmn nulisnya

  • @merpati5576
    @merpati5576 3 ปีที่แล้ว

    Pak saya telah mengikuti semua langkah langkahnya, tapi ketika saya mau simpan data baru bukannya datanya bertambah malah mengedit data lama, saya sudah berapa kali coba pak, tetap saja data baru tidak tersimpan, malah data lama yang diedit

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Pastikan diatas tabel cell nya tidak kosong ya, bisa dikasih spasi ataupun tulisan seperti pada contoh video ada tulisan "Pemasukan" dan "Pengeluaran"

    • @merpati5576
      @merpati5576 3 ปีที่แล้ว

      @@junaidimuntoyib oh baik pak, saya akan mencobanya, terimakasih

  • @dewabesar6340
    @dewabesar6340 2 ปีที่แล้ว

    Kalau beda sheet gimana bos???

  • @bandingstore
    @bandingstore 2 ปีที่แล้ว

    Banggg, misa beda sheet gimana rumusnya?

  • @Nerokingg
    @Nerokingg 3 ปีที่แล้ว

    boleh minta file ny ga bang? gw bikin kok cuma work di pemasukan aja, di pengeluaran ny gak ngikut atau ga work

  • @nansukainfo
    @nansukainfo 3 ปีที่แล้ว

    kalau pake penjumlahan dan pengurangan gimana ya mas pake record macro?

  • @chaleolin6423
    @chaleolin6423 3 ปีที่แล้ว

    Di VBA nya 'Run Time Error 1004'

  • @wijayafadhlan7001
    @wijayafadhlan7001 2 ปีที่แล้ว

    Error 10004 Bang Jun .... Priwe iki...!

  • @mymusik7944
    @mymusik7944 3 ปีที่แล้ว +1

    BANG CARA MENYIMPAN FILENYA GIMANA KO SETELAH DISIMPAN MALAH GA BISA OTOMATIS LAGI

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      Simpan file pilih formatnya Excel Macro-Enabled Workbook. Kemudian pas buka file nya lagi ada tombol dengan highlight background orange diatas formula bertuliskan "enable content" tinggal diklik aja.

  • @aank149
    @aank149 2 ปีที่แล้ว

    Kang bisa dikirim file nya, nuhun

  • @arismuda371
    @arismuda371 3 ปีที่แล้ว

    Untuk saldo awal dan saldo akhir nya gimana pak?

    • @junaidimuntoyib
      @junaidimuntoyib  3 ปีที่แล้ว

      mungkin bisa ditambahkan sendiri pada kolom diatasnya kemudian dikurangi dengan total

  • @bayusiswanto3723
    @bayusiswanto3723 2 ปีที่แล้ว

    Saya sudah ikutin tutorial tapi kok gak jalan ya

  • @ExampleYt-m2q
    @ExampleYt-m2q 11 หลายเดือนก่อน

    Di macbook controlnya beda😭😭 nga berhasil berhasil

  • @BOSBESAR88
    @BOSBESAR88 3 ปีที่แล้ว

    Ribet, coba yg lebih simple om

  • @mardiwaluyo542
    @mardiwaluyo542 8 หลายเดือนก่อน

    Membingungkan