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