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, "" )
>
>
>
