*menurut pendapatku* apa yg tertulis (oleh makro) dikolom A itu adalah hasil extract data dari semua sheets diambil uniqnya saja, diurutkan baru ditulis
untuk membuktikan hasil kerjanya kamu harus mengganti data data di sheet lain (kalau perlu ditambah sheet yang banyak) menjadi data yg lebih banyak dan lebih seru; jangan terlalu sederhana seperti contoh menurut pendapatmu gimana (katakan pendapatmu SETELAH baca script makronya) jika perlu fiel workbooknya dapa t diunduh sendiri di http://www.box.net/shared/unr9kzucch On Tue, May 24, 2011 at 4:48 PM, Andrie - <[email protected]> wrote: > > > *mbak, kalau cuman pindahkan kolom A saja bisa bu..* > kolom yang lain tdk perlu.. thx > > --- On *Tue, 5/24/11, STDEV(i) <[email protected]>* wrote: > > > From: STDEV(i) <[email protected]> > Subject: Re: [belajar-excel] copy multisheet > To: [email protected] > Date: Tuesday, May 24, 2011, 6:02 AM > > > > > Sub MengumpulkanDanMengextrakUniq() > ' siti Vi // 24 Mei 20101 > '------------------ > Dim W As Worksheet > Dim dRng As Range, cel As Range, Hasil As Range > Dim Ar(), n As Long, Tx As String > Dim i As Integer, a As Integer, b As Integer, t As Variant > Set Hasil = Sheets("HASIL").Range("A2") > > Application.Calculation = xlCalculationManual > Application.ScreenUpdating = False > > Hasil.Parent.Activate > Hasil.CurrentRegion.ClearContents > Tx = "|" > > For Each W In Worksheets > If Not LCase(W.Name) = "home" Then > If Not LCase(W.Name) = "hasil" Then > Set dRng = W.UsedRange > For Each cel In dRng > If Not cel = vbNullString Then > If InStr(1, Tx, "|" & cel & "|") = 0 Then > Tx = Tx & cel & "|" > n = n + 1 > ReDim Preserve Ar(1 To n) > Ar(n) = CStr(cel.Text) > End If > End If > Next cel > End If > End If > Next W > > n = UBound(Ar) > For i = 1 To n - 1 > For b = n To (i + 1) Step -1 > a = (b - 1) > If Ar(a) > Ar(b) Then t = Ar(b): Ar(b) = Ar(a): Ar(a) = t > Next b > Next i > > For i = 1 To UBound(Ar) > Hasil(i, 1) = Ar(i) > Next i > > Application.Calculation = xlCalculationAutomatic > Application.ScreenUpdating = True > > End Sub > > > > 2011/5/24 Andrie - <[email protected]<http://mc/[email protected]> > > > > > > Mohon bantuannya bagaimana caranya buat macro copy data multisheet. > File terlampir. > Terima kasih > > __._,_ > >
