Dear Yusuf,
Salam sejahtera untuk kita semua.
coba lakukan hal berikut:
-> 1. ubah dahulu nama file di A2 sampai A terakhir dengan format "00"
jika nomor file hanya sampai 99 atau dengan format "000" jika nomor file
sampai 999 dan seterusnya.
If Left(Range("A" & i), 2) * 1 < 10 And Left(Range("A" & i), 1) <> 0
Then Range("A" & i) = "0" & Range("A" & i)
-> 2. urutkan semua data dengan kunci A2 sampai A terakhir
Range("A2:B" & MaxRow).Sort Range("A2:A" & MaxRow)
Mungkin selengkapnya dapat dipakai seperti ini:
Dim makRovv As Long
Dim i As Long
makRovv = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To makRovv
If Left(Range("A" & i), 2) * 1 < 10 And Left(Range("A" & i), 1) <> 0
Then Range("A" & i) = "0" & Range("A" & i)
Next i
Range("A2:B" & makRovv).Sort Range("A2:A" & makRovv)
salam
Agus
On 9/19/2018 13:46, y.ron...@yahoo.com [belajar-excel] wrote:
Dear All,
Mohon dibantu agar nomor berurut saat get files.
Terlampir
Terimakasih
Regards,
Yusuf
