Terima kasih Pak Kid, udah berhasil sesuai harapan. Emi Lestari
________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Sunday, November 18, 2012 6:21 PM Subject: Re: [belajar-excel] Menggantikan formula dengan makro Ops sorry, ternyata lastwor beneran lastrow yang sudah ada datanya. Kalau gitu ubah dari : If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _ LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row - 1, 1) _ ) + 1 Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value End If jadi : If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _ LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row, 1) _ ) + 1 Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value End If Baris itu digunakan untuk hitung nilai maksimum nomor urut sheet16 mulai baris 1 excel sampai baris terakhir data lalu ditambah dengan 1, ketika di sheet15 ada perbedaan isi antara c28 dengan b28. Wassalam, Kid. 2012/11/18 Emi <[email protected]> > >Pak Kid, > > >Makro ini tidak berhasil jika sheet tujuan belum pernah diiisi., kecuali ada >value di cell B2. > > >Diharapkan dapat dijelaskan apakah maksud offset dan lastRow dalam kasus ini. > > >Terima kasih > > >Emi Lestari > > > > >________________________________ > From: Mr. Kid <[email protected]> >To: [email protected] >Sent: Sunday, November 18, 2012 12:05 PM >Subject: Re: [belajar-excel] Menggantikan formula dengan makro > > > > >Coba setelah set lastrow diberi : > If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then > LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _ > LastRow.Offset(1 - LastRow.Row, >-1).Resize(LastRow.Row - 1, 1) _ > ) + 1 > Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value > End If > > >Wassalam, >Kid. > > >2012/11/18 Emi <[email protected]> > > >> >>Dear Teman dan Guru BeExcel, >> >> >>Saya ingin mempelajari bagaimana No Urut di Kolom A tidak lagi bergantung >>kepada kolom bantu, tetapi otomatis muncul di saat data ini di transfer dari >>sheet data entry. >> >>Filenya dilampirkan. >> >> >>Terima kasih. >> >> >>Emi Lestari >> >> >> >>No Urut Doc Date Post Date DT Currency >>1 02112012 18112012 KA USD >> 02112012 18112012 >> 02112012 18112012 >> 02112012 18112012 >> 02112012 18112012 >>2 02112012 18112012 SJ >> 02112012 18112012 >>3 02112012 18112012 SJ USD >> 02112012 18112012 >> 02112012 18112012 >> 02112012 18112012 >>4 08112012 16112012 KA USD >> 08112012 16112012 >>,=IF( LEFT(AA15, LEN(AA15) -1 )<>LEFT( AA14, LEN( AA14 )-1 ), MAX( A$1:A14 ) >>+1, "" ) > > >
