Terima kasih banyaak, ternyata tidak update karena masih ada data yang
belum dihapus, jadi saya tambahkan
sheet1.columns("G").clear
sheet1.columns("H").clear
Sekali lagi terima kasih, saya mencoba memahami dulu isinya. :D
2017-01-13 7:47 GMT+07:00 Sony Ario [email protected] [belajar-excel] <
[email protected]>:
>
>
> Halo Fatania,
>
> Terlampir adalah file revisi dari yang sebelumnya. Bulan awal dan akhir
> saya coba rubah, semua nya berhasil tanpa masalah. Tapi coba dilihat lagi.
> Mungkin ada yang terlewat dari saya.
>
> Penjelasan macro nya :
>
> Application.ScreenUpdating = False
> Dim NIK As String '*==> Deklarasi variabel*
> Dim Bln1, Bln2, a, b As Long *'==> Deklarasi variabel*
>
> a = WorksheetFunction.CountA(Columns("A")) + 1*'==> isi variabel A
> adalah perhitungan brp* banyak baris yang terisi pada kolom A + 1
>
> *'==> Mulai proses looping dan isi variabel NIK, Bln1 (Awal) dan Bln2*
>
> For a = 3 To WorksheetFunction.CountA(Columns("A")) + 1
> Range("A" & a).Select
> NIK = ActiveCell.Value
> Bln1 = ActiveCell.Offset(0, 1).Value
> Bln2 = ActiveCell.Offset(0, 2).Value
>
> *'==> Proses looping menambahkan isi variabel Bln1
> sampai lebih besar dari Bln2 dan isi hasil nya di kolom G*
>
> Do Until Bln1 > Bln2
> b = WorksheetFunction.CountA(Columns("G")) + 1
> Range("G" & b).Value = NIK
> Range("H" & b).Value = Bln1
> Bln1 = Bln1 + 1
>
> Loop
> Next a
> Application.ScreenUpdating = True
>
> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>
> 2017-01-12 18:28 GMT+07:00 Fatania Latifa [email protected]
> [belajar-excel] <[email protected]>:
>
>>
>>
>> Terima kasih pak, untuk data yang eksisting bisa jalan, tetapi ketika
>> mengubah masa awal dan akhir, data yang dihasilkan tidak berubah.
>> Mohon dijelaskan maksud makronya, terima kasih
>>
>> 2017-01-12 13:51 GMT+07:00 Sony Ario [email protected]
>> [belajar-excel] <[email protected]>:
>>
>>>
>>>
>>> Halo Fatania,
>>>
>>> Sambil tunggu para master, saya coba bantu pake Macro ya ?
>>>
>>> Salam
>>> Sony
>>>
>>>
>>> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>>>
>>> 2017-01-11 10:23 GMT+07:00 Fatania Latifa [email protected]
>>> [belajar-excel] <[email protected]>:
>>>
>>>>
>>>>
>>>> Dear Master excel,
>>>>
>>>> Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun
>>>> ke bawah seperti berikut?
>>>> Kira-kira memakai rumus apa?
>>>> Terima kasih.
>>>> [image: Inline image 1]
>>>>
>>>>
>>>
>>
>
>
