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]
>>>
>>>
>>
>
>
Tampilan ke bawah_rev1.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
