Coba :
Dim lWeek As Long
Range("C2").Select
lWeek = 1
Do
If ActiveCell.Offset(0, -1).Text = "Mon" Then
ActiveCell.Value = "W" & lWeek
lWeek = lWeek + 1
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Wassalam,
Kid.
2013/2/19 <[email protected]>
> **
>
>
>
> 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
>
>
