[belajar-excel] Digest Number 1169

Milis Belajar Microsoft Excel

Messages In This Digest (1 Message)

1a.

Re: copy multisheet From: STDEV(i)

View All Topics | Create New Topic

Message

1a.

Re: copy multisheet

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Mon May 23, 2011 11:02 pm (PDT)

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 - <sioean2@yahoo.com>

>
>
> Mohon bantuannya bagaimana caranya buat macro copy data multisheet.
> File terlampir.
> Terima kasih
>
> __._,_
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  19
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe