terimakasi atas tanggapan guru2 saya.., tapi sebelumnya saya mohon maaf 
sebelumnya
ini dikarenakan pertanyaan saya tadi yang kurang lengkap
1. untk "mas ghozi" saya sudah mencoba karyanya dng mengisi nilai belanja di 
catatan namun di grand total tidak muncul jumlah grand totalnya malah baris 
jumlah totalnya tertimpah dengan tambahan data di post pengeluaran
2. untk "mba citi" betul sekalai baris kosong yg ada di antara "nama 
ProgramSekolah" dan "Subtotal" itu dimaksudkan untuk diisi data unit belanja 
per-post (dengan manual (diketikkan) pun area bulan jan s/d des. untuk 
memasukkan besar belnjaan. Mba..... sya cba menambah item post pengeluaran 
tapi; 
nomor kode tdk otomatis muncul, dan di gran total tidak muncul sama sekali 
tambahan itemnya
demikian 2 point konfirmsi diatas, semoga masih berkenan membantu, sekali lagi 
mohon dimaklumi kalau maksud saya belum nyambung





________________________________
From: STDEV(i) <[email protected]>
To: [email protected]
Sent: Sun, July 3, 2011 9:44:17 PM
Subject: Re: [belajar-excel] Duplikat data di sheet lain

  
Seandainya baris kosong yg ada di antara "nama ProgramSekolah" dan "Subtotal" 
itu dimaksudkan untuk diisi data lain (dengan manual (diketikkan) maupun dng 
formula) maka penyelesaian dengan rumus tentunya tidak cocok. Karena baris 
kosong itu dicipta juga dengan rumus, dan harus menghapus data yg sudah ada..

Mungkin... pilihan penyelesaian lain adalah dengan : benar-benar mengcopy 
(mengisi cell dgn value dari cell lain). Dan ini akan terlaksanan otomatis jika 
diperbolehkan adanya makro:

'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-siti Vi, 03 Juli 2011
'----------------------
Dim DafPost As Range, Catatan As Range
Dim i As Long, r As Long
   If Target.Column = 2 Then
   If Target.Count = 1 Then
   If Target.Row > 1 Then
   Set DafPost = Cells(1).CurrentRegion.Offset(1, 0)
   Set Catatan = Sheets("Catatan Pengeluaran").Range("A2")
      For i = 1 To DafPost.Rows.Count - 1
         r = i * 6 - 5
         Catatan(r, 1) = DafPost(i, 1)
         Catatan(r, 2) = DafPost(i, 2)
         Catatan(r + 5, 2) = "Subtotal"
      Next i
   End If
   End If
   End If
End Sub
'--------------



2011/7/3 Bachelor Ard <[email protected]>

 
>Ass.. alkm....
>Bagaimana carany duplikasi data ke-sheet lain dengan posisi t4 beda baris?
>lebih jelasnya di attac. mohon....!
>
>
>
 

Kirim email ke