Terima kasih Mr. Kid. Problem solved. Semoga Allah SWT membalas kebaikan Mr. Kid.
Wassalam, Tio "Mr. Kid" <[email protected]> Sent by: [email protected] 02/19/2013 05:00 PM Please respond to belajar-excel To: [email protected] cc: Subject: Re: [belajar-excel] Menulis Week tertentu 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
