saya koreksi agar lebih pas :Function carinilai(ByVal daerah As Range, ByVal
strcari As String) As Range
Dim ketemu As Range
Set ketemu = daerah.Find(what:=strcari, LookIn:=xlValues,
SearchOrder:=xlByRows)
Set cariterakhir = ketemu
End Function
Sub ya()
Dim filerev As String
Dim sel, ketemu As Range
Dim wk, wkrev As Workbook
filerev = ActiveWorkbook.Path & "\rev.xls"
Set wk = ActiveWorkbook
Set wkrev = Workbooks.Open(Filename:=filerev)
For Each sel In wkrev.Sheets("ubah").Range("Q31:Q34")
nilaicari = sel.Offset(0, 0)
nilaiganti = sel.Offset(0, -1)
Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari)
If Not ketemu Is Nothing Then
ketemu.Offset(0, -1) = nilaiganti
End If
Next
End Sub'===============
To: [email protected]
From: [email protected]
Date: Mon, 4 Jul 2011 15:05:43 +0800
Subject: RE: [belajar-excel] merevisi isi data
sebenarnya yang dibutuhkan adalah sebagai berikut :
cari ip revisi di ip lista dan
ganti tanggal list dengan tanggal revisi
tapi membuat loopnya ribet saya utak-utik tidak ketemu
--- On Mon, 7/4/11, R T Gultom <[email protected]> wrote:
From: R T Gultom <[email protected]>
Subject: RE: [belajar-excel] merevisi isi data
To: [email protected]
Date: Monday, July 4, 2011, 2:01 PM
Wah mantab, tapi sayang persayaratannya adalah :
tidak ada penghapusan baris, karena isi dari baris revisi dengan list tidak
sama, sehingga masih ada yang dipakai di list data baris sebelumnya
sebenarnya yang dibuthkan adalah bagaimana mengganti tangal yang di revisi saja
tanpa menambah baris atau menghapus baris
karena masing2 data isinya selain dari IP dan tanggal adalah berbeda-beda
Regards,
Gultom
--- On Fri, 7/1/11, Sudarsono Suhenk <[email protected]> wrote:
From: Sudarsono Suhenk <[email protected]>
Subject: RE: [belajar-excel] merevisi isi data
To: "belajar excel yahoo.com" <[email protected]>
Date: Friday, July 1, 2011, 7:40 PM
untuk IP-3467 apa tanggal terakhir 11 Juni 2011 , bukan 4 Juni 2011 ?
To: [email protected]
From: [email protected]
Date: Fri, 1 Jul 2011 15:05:52 +0700
Subject: Re: [belajar-excel] merevisi isi data
gak ada kabarnya ?... ya udah, kita anggap seperti DUGAAN semula, dengan
tambahan asumsi sbb:
** tabel yg ada di "workbook List / sheet Sumeri" adalah satu satunya range yg
ada di sheet itu
di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa
salah)
t** abel yg ada di "workbook rev / sheet ubah" adalah satu satunya range yg
ada di sheet itu
di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa
salah)
** saat makro mulai dijalankan(makro berada di workbook LIST), workbook REV
harus susah dibuka.
Kedua tabel yg akan digabung itu boleh dipindah pindah letaknya (termasuk
diperbanyak datanya / penambahan ke bawah ) asal masih didalam sheet yg sama;
tetapi tidak boleh
ada data/tabel lain diluar range tabel tsb
Sub GabungTabelAntarWorkbook()
' siti Vi // Bluewater, 1 Juli 2011
' workbook "rev.xls" harus sudah terbuka
'---------------------------------------
Dim INDUK As Range, ANAKK As Range
Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri")) Set ANAKK =
ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)
ANAKK.Copy INDUK(INDUK.Rows.Count + 1, 1)
INDUK.CurrentRegion.Sort _ Key1:=INDUK(1, 2), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
2011/7/1 STDEV(i) <[email protected]>
jadi maksud yg sebenarnya bagaimana, mohon diceritakan
(kalau melihat GAMBARAN HASIL yg diperlihatkan tadi, sepertinya "jalan
ceritak"
yg siti ajukan tadi sudah sesuaijika belum sesuai, di bagian mananya yg masih
perlu ubah ?
nanti bisa kita perbaiki.
setelah oke, soal mengimplementasikan ke code itu masalah kedua dan gampang.
mengenai jumlah records (volume data) tidak jadi masalah, prinsip kerjanya
tetap sama.
sample yg diajukan seharusnya menggambarkan / mewakili keadaan faktualnya
2011/7/1 R T Gultom <[email protected]>
Sebenarnya selama ini saya pakai system manual
dengan vlookup di dummy column di file "List" terus saya pindahin dan di beri
color
data revisi tidak berurutan sebenarnya hanay sample saya ambil dari data (list)
Siti Vi wrote
Pakai cara praktis saja
1. deteksi letak cell kosong di bawah tabel 1 (list), cukup 1 cell di kolom 1
saja
2. deteksi letak & dimensi tabel 2 (rev) lalu dicopy3. dipaste ke cell hasil
langkah 1
4. range baru yg terbentk dikenakan metoda sort dengan kolom 2 sbg kunci
sorting, order: manaik
