selamat pagi mas
saya sudah buka file nya
yup bener mas,
selamat pagi mas
saya sudah buka file nya
yup bener mas,
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 ?
IYA MAS, NAH ITU SAYA BINGUNG KEMARIN
GIMANA CARANYA KITA INPUT DATA DI BULAN E2 TRUS MASUK KE SHEET REKAP
BRRT GA USAH DI ISIKAN FORMULA YA MAS?
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 )
pas ,mantap mas
Ini masih ada pertanyaan gak ?
kalo dipakein makro bisa mas
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
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
ooo gitu ya... maaf saya br belajar excel mas
heheh
oh iy gpp, hehehe,
gpp tanya aja kalo masih ada , dan selama saya masih bisa jawab , hehehe
kl bisa sie agar dibuatin versi lengkapnya mas
yang jadi maksudnya
Nanti coba ditest saja , di sheet input I2 itu diganti bulan 2,3,4 dstnya ..apakah bisa jalan
trus untuk kolom tagihan mas
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
contohnya boleh diberikan file yg ada tersebut
Jadi maksudnya seperti ini di sheet Tagihan itu kan ada :
Contoh misalnya I wayan Putu kalo awal 400 akhir 410 di sheet input , maka nanti di sheet Tagihan kan seperti apa perhitungan :
tks
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
Ok baik mas sama2 , nanti ditanyakan jika penjelasan saya kurang jelas