[belajar-excel] Menulis Week tertentu

[tio . adjie]

Dear Be-Exceller,

Saya coba membuat week tertentu yang dimulai dari W1 sampai seterusnya. 
Jadi kalau ketemu nilai cell di sebelahnya yang tulisannya Mon maka akan 
ditulis W1 dan seterusnya.

Tapi setelah saya coba buat code VBA nya , kok tidak dimulai dari W1 tapi 
dari W4, kenapa yah ? Saya sudah coba pakai For nilaiku=1 to 6 step 1 next 
nilaiku, tetap gak berhasil.

Ini code VBA yang saya buat :

Private Sub CommandButton1_Click()
Range("C2").Select
Do
    For nilaiweek = 1 To 6
        If ActiveCell.Offset(0, -1).Text = "Mon" Then
        ActiveCell.Value = "W" & nilaiweek
        ActiveCell.Offset(1, 0).Select
        Else
        ActiveCell.Offset(1, 0).Select
        End If
    Next nilaiweek
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
End Sub

Kiranya Be-Exceller berkenan membantu. File terlampir :



Thanks and regards,
Tio

Menulis Week keberapa.xls
Description: MS-Excel spreadsheet