terima kasih sdr Fran'z..... coding yang anda berikan sangat bermanfaat sekali....
________________________________ Dari: Franciscus SOG <[email protected]> Terkirim: Sen, 30 Mei, 2011 12:34:37 Dear Ahmad, Logikanya sederhana, copy ยป transpose. Select data dari sheets("INPUT"), copy. Klik sheets("DATA NOTA"), pilih cell tujuan, pastespecial (values + transpose). Berikut vba-nya ditempatkan pada command button save. Application.ScreenUpdating = False Sheets("INPUT").Range("C3:C15,C17:C26,C32:C41").Select Selection.Copy Posisi = Application.CountA(Sheets("DATA NOTA").Range("A5:A65536")) + 5 Sheets("DATA NOTA").Activate Sheets("DATA NOTA").Range("A" & Posisi).PasteSpecial xlPasteValues, Transpose:=True Application.CutCopyMode = False Sheets("INPUT").Activate Sheets("INPUT").Range("C3").Select Application.ScreenUpdating = True MsgBox "Data sudah disimpan", vbInformation, "Success.." Blessings, Fran'z On 5/30/11, Ahmad Fauzi <[email protected]> wrote: > Terima kasih Sdr. Franciscus SOG > saran yang anda berikan itu memang maksud saya, untuk form FormIsi itu tidak > saya gunakan (maaf lupa saya hapus) karena saya kesulitan untuk > mengaplikasikan > form supaya dapat menyimpan ke sheet DATA NOTA. yang menjadi inti masalah > saya > yaitu bagaimana hasil inputan di sheet INPUT itu dapat tersimpan di sheet > DATA > NOTA?tentunya menggunakan coding. > Terima kasih.... >
