Input data entry otomatis

  1. ‹ Older
  2. 3 bulan yang lalu

    selamat pagi mas
    saya sudah buka file nya
    yup bener mas,

  3. ok.
    Trus untuk mengetahui bahwa saat ini data yg kita input Apakah bulan Jan , Feb , Mar, Apr , mei , dstnya adalah berdasakan kolom E2 karena ada formula =NOW () kan ya ?

  4. IYA MAS, NAH ITU SAYA BINGUNG KEMARIN
    GIMANA CARANYA KITA INPUT DATA DI BULAN E2 TRUS MASUK KE SHEET REKAP

  5. BRRT GA USAH DI ISIKAN FORMULA YA MAS?

  6. kalau diisi E2 itu secara otomatis akan menunjuk ke periode saat ini yaitu bulan Juli 2024, jadi mas tidak bisa input selain bulan Juli

    akan tetapi jika mas mau input bisa bulan apa saja, maka input saja angka bulannya di kolom I2, karena contohnya Juli maka input 7 / bulan 7, kalo january input 1 , kalau februari input 2

    jadi tidak usah input E2 lagi

    dan ini memang harus kita test

    Berikut yang saya buat terbaru , tinggal input bulannya di kolom I2 saja sheet input kemudian klik di Sini sheet rekap1, nanti bisa langsung ditest untuk semua bulan ( dari bulan jan, feb,....dstnya s/d des )

  7. pas ,mantap mas

  8. Ini masih ada pertanyaan gak ?

  9. kalo dipakein makro bisa mas

  10. yang saya kirim itu sudah ada macronya mas,

    waktu klik kotak klik di sini itu ada makronya,makanya bisa dijalankan / run secara otomatis , hehehe

    Mau liat macronya namanya : Macro1

  11. Sub Macro1()
    '
    ' Macro1 Macro
    '

    berikut codingannya :

    For i = 4 To 1000

    Sheets("REKAP 1").Cells(i + 1, 2) = Sheets("INPUT ").Cells(i, 2)
    Sheets("REKAP 1").Cells(i + 1, 3) = Sheets("INPUT ").Cells(i, 5)
    Sheets("REKAP 1").Cells(i + 1, 4) = Sheets("INPUT ").Cells(i, 3)
    Sheets("REKAP 1").Cells(i + 1, 5) = Sheets("INPUT ").Cells(i, 9)

    If Sheets("INPUT ").Cells(2, 9).Value = 1 Then
    Sheets("REKAP 1").Cells(i + 1, 6).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 2 Then
    Sheets("REKAP 1").Cells(i + 1, 6).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 2 Then
    Sheets("REKAP 1").Cells(i + 1, 7).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 3 Then
    Sheets("REKAP 1").Cells(i + 1, 7).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 3 Then
    Sheets("REKAP 1").Cells(i + 1, 8).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 4 Then
    Sheets("REKAP 1").Cells(i + 1, 8).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 4 Then
    Sheets("REKAP 1").Cells(i + 1, 9).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 5 Then
    Sheets("REKAP 1").Cells(i + 1, 9).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 5 Then
    Sheets("REKAP 1").Cells(i + 1, 10).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 6 Then
    Sheets("REKAP 1").Cells(i + 1, 10).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 6 Then
    Sheets("REKAP 1").Cells(i + 1, 11).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 7 Then
    Sheets("REKAP 1").Cells(i + 1, 12).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 7 Then
    Sheets("REKAP 1").Cells(i + 1, 11).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    '---------------------------------------

    If Sheets("INPUT ").Cells(2, 9).Value = 8 Then
    Sheets("REKAP 1").Cells(i + 1, 12).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 8 Then
    Sheets("REKAP 1").Cells(i + 1, 13).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 9 Then
    Sheets("REKAP 1").Cells(i + 1, 13).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 9 Then
    Sheets("REKAP 1").Cells(i + 1, 14).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 10 Then
    Sheets("REKAP 1").Cells(i + 1, 14).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 10 Then
    Sheets("REKAP 1").Cells(i + 1, 15).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 11 Then
    Sheets("REKAP 1").Cells(i + 1, 15).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 11 Then
    Sheets("REKAP 1").Cells(i + 1, 16).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 12 Then
    Sheets("REKAP 1").Cells(i + 1, 16).Value = Sheets("INPUT ").Cells(i, 7).Value
    End If

    If Sheets("INPUT ").Cells(2, 9).Value = 12 Then
    Sheets("REKAP 1").Cells(i + 1, 17).Value = Sheets("INPUT ").Cells(i, 8).Value
    End If

    Next i

    End Sub

  12. ooo gitu ya... maaf saya br belajar excel mas
    heheh

  13. oh iy gpp, hehehe,

    gpp tanya aja kalo masih ada , dan selama saya masih bisa jawab , hehehe

  14. kl bisa sie agar dibuatin versi lengkapnya mas
    yang jadi maksudnya

  15. Nanti coba ditest saja , di sheet input I2 itu diganti bulan 2,3,4 dstnya ..apakah bisa jalan

  16. trus untuk kolom tagihan mas

  17. Ok mas , utk tagihan boleh tidak diberikan contoh transaksi yg benarnya seperti apa , urut-urutannya, atau sampai akhir,

    misalnya ada tunggakan seperti apa, karena contohnya dan alurnya blm terlalu jelas. Yang jelas baru sampai ke meteran saja

  18. contohnya boleh diberikan file yg ada tersebut

  19. Jadi maksudnya seperti ini di sheet Tagihan itu kan ada :

    1. Meter = itu perhitungannya dari apa saja awal , akhir , pake
    2. Tagihan = itu ada beban dan bayar , itu perhitungannya seperti apa ?

    Contoh misalnya I wayan Putu kalo awal 400 akhir 410 di sheet input , maka nanti di sheet Tagihan kan seperti apa perhitungan :

    1. Meter ( awal, Akhir , pake )
    2. Tagihan ( Beban, bayar )

    tks

  20. maaf mas kemarin 1minggu ga kerja, saya ada acara keluarga, untuk tagihan dan tunggakan sudah saya bikin sendiri coba-coba, nnti kalo ada yang kurang atau tidak saya tau, palingan ta tanya mas nya lagi, suun ya mas atas atensinya, jangan kapok mas kalo saya tanya lagi nnti
    salam sehat

  21. Ok baik mas sama2 , nanti ditanyakan jika penjelasan saya kurang jelas

 

atau Mendaftar untuk ikut berdiskusi!