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
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
Untuk melihat Contoh yang sudah jadi download di SINI
Sekin dan Terima kasih sudah berkunjung.
Tidak ada komentar:
Posting Komentar