RE: ]] XL-mania [[ Macro data penjualan dan stocking

 

Iseng…buka buka inbox xl mania,

 

Pertanyaan mas Asriawan  belum ada jawab ternyata,

Walaupun mungkin terlambat…mudah mudahan  ini menjadi solusi….

 

Di sheet data penjualan ketikan kode berikut:

 

Option Explicit

 

Private Sub CommandButton1_Click()

  ' Effendi Wijaya / 24 Oct 2012

   Dim Isian As Range, NewPos As Range

  

   With Sheets("Data Penjualan")

      Set Isian = Range("C3,C4,C6,C9,C11,C12,C13,C16,C17,C18,C20,C25")

      Set NewPos = .Range("B65536").End(xlUp).Cells(2, 1)

     

      NewPos(1, 0) = NewPos.Row - 2 'iko untuak mambuek no urut

      Isian.Copy

      NewPos.PasteSpecial _

      Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

      Application.CutCopyMode = False

      .Select

      .Range("A1").Select

   End With

  

End Sub

 

Private Sub CommandButton2_Click()

 Range("C3,C4,C6,C9,C11,C12,C13,C16,C17,C18,C20,C25").ClearContents

End Sub

 

 

 

 

 

Best regards,

“You can do it,if you think can”

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Asriawan, As
Sent: Monday, June 11, 2012 12:38 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Macro data penjualan dan stocking

 

 

 

 selamat siang para pakar/suhu excel mania semoga senantiasa dilindungi dan di karuniai kesehatan dan kesejahteraan. amiiin

sekiranya ada yang dapat meluangkan waktu dan pemikirannya untuk menanggulangi permasalahan saya sebagai seorang admin 

yang mana dalam apabila setiap saya menginput data transaksi di sheet data pemohon maka secara otomatis data tersebut akan tersimpan di file data Penjualan, terlampir contoh yang saya buat berdasarkan pengetahuan dan mengkaji pelajaran dari pakar/suhu excel mania

terima kasih semoga dapat memberikan solusi kepada saya

 

hormat saya 

 

Asriawan

       UD. PERKASA MOTOR
Kel. Wasaga Kec. Pasarwajo Kab. Buton

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 47

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___