Sedikit tambahan,
kelihatannya selnya harus bersifat unik, sebab jika tidak maka datanya akan
ditumpuk ...(2 baris terakhir)
Salam,
Hendrik Karnadi
________________________________
From: Jan Raisin <miss.jan.rai...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 22 February 2013, 14:27
Subject: Re: [belajar-excel] belajar macro
Dear Yusril,
coba script berikut ini:
Option Explicit
Sub MoveByCriteria()
Dim sht As String
Dim hdSht As Range, rngSht As Range, rgSht As Range
Application.ScreenUpdating = False
Set hdSht = Range("a1")
Set rngSht = Range(hdSht.Offset(1), hdSht.End(xlDown))
For Each rgSht In rngSht
sht = rgSht.Value
With Worksheets(sht)
.Cells(rgSht.Offset(, 1).Value, rgSht.Offset(, 2).Value).Value =
rgSht.Offset(, 3).Value
End With
Next rgSht
Application.ScreenUpdating = True
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 21 Februari 2013 19.12, Yusril Ramadani <yusrilramad...@gmail.com> menulis:
>
>Dear Para pakar
>
>Saya ada case untuk mencoba memindahkan
>Data sesuai criteria sesuai nama sheet row dan kolomnya
>Mohon dibantu command macronya
>
>
>Sheet Row Column Value to paste
>A 1 1 wadhasl
>B 2 2 sdsf
>C 5 2 dfgfddf
>D 6 2 gn
>C 7 2 gfn
>D 10 5 gfnb
>B 15 5 nh
>A 20 5 nmh
>C 35 30 nh
>C 49 20 ngf
>C 50 19 n
>C 10 25 fg
>A 11 25 hfn
>B 12 25 hn
>A 13 25 dfgfddf
>D 14 25 gs
>D 15 25 54
>A 15 25 4546546
>A 15 25 6589685756
>
>contoh
>pada sheet A row 1 colomn 1 tertulis wadhasl
>
>
>Terima kasih sebelumnya
>
>Salam
>YR
>
>
