Senin, 11 Maret 2013

COPY PASTE KE CELL KOSONG



COPY PASTE KE CELL KOSONG


Judul blog ini Saya tidak tau tepat atau tidak..?
Saya jelaskan sedikit tenteng judul blog Saya di atas yang mungkin bagi Anda bingung maksudnya..!
Misal DATAnya seperti ini :
Mau di Copy Paste ke Sheet2 di cell yang kosong di kolom B seperti gambar berikut :
Ketika Copy Paste yang ke 2 dan seterusnya maka akan nambah ke bawah di Cell kosong.
Ini yang di maksud JUDUL blog Saya..
Jadi setiap Copy Paste DATA di Sheet2 akan bertambah secara otomatis ke bawah dan letak Paste nanti bisa di atur sesuai kebutuhan, di atas hanya sekedar Contoh saja.

Okres kita lanjut ke Tahapannya :

1.       Buka Excel dan buat seperti ini di Sheet1 :


2.       Di Sheet2 buat seperti ini :


3.       Buat tombol seperti ini di Sheet1 :


Dengan cara :

Untuk Excel 2003 :


Untuk Excel 2007 dan versi lainnya :


4.       Pastekan kode di bawah ini :

Dim i As Integer
   
   For i = 3 To 3500
    If Sheet2.Cells(i, 3) = "" Then
     Sheet1.Activate
     Range("B2:D10").Select
     Selection.Copy
     Sheets("Sheet2").Select
     Range("B" & i).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Range("A1").Select
     Sheets("Sheet1").Select
     Range("A1").Select
     ActiveWorkbook.Save
     Exit For
    End If
  Next i

Tepat di tengah-tengah kode


Save dan kembali ke Excel Sheet1 klik Tombolnya.

Untuk melihat Contoh yang sudah jadi download di SINI

Sekin dan Terima kasih sudah berkunjung.


Tidak ada komentar:

Posting Komentar