ayooo pada dateng
Pada tanggal 09/05/14, hendrik karnadi menulis:
> Sedikit tambahan,
> Kalau ga sempat transfer bisa langsung ke TKP (daftar on arrival).
> Bawa temen2 kantor juga boleh.
>
> Salam,
> HK
>
>
>
> On Friday, 9 May 2014, 14:33, dwint ruswanto
> wrote:
>
>
> Caranya bisa b
Thanks Mr kid.. tetapi sepertinya problem masih sama. Saya
menggunakan MS Outlook 2003.
Mohon dibantu yaa.. terima kasih
Selamat siang,
Mohon dibantu, saya ingin copy paste suatu file gambar yang tersimpan
dlm suatu drive ke body email (outlook)
Saya sudah coba dgn macro berikut, tetapi gambarnya tidak muncul di
body email outlook, hanya nampak sperti kotak dan diujung sebelah kiri
terdapat tanda silang.
Berikut m
Satu dari sekian banyak cara
Di kolom G2
=IF(ISNA(VLOOKUP(F2,$A$2:$A$139,1,FALSE)=TRUE),"Tidak Ada","Ada")
Lalu Copy ke bawah
Wassalam
Pada tanggal 08/10/09, Syaiful Hadi menulis:
>
>
>
>
> Dear Mbak/Mas yg pinter2..
> mau minta tolong, kalau untuk mencari/ sort data yang sudah ada.
> contoh
Om.. Om... boleh minta contoh lain penggunaan Jenis Grid yang kata Om
ada bejibun yaa om..
itu lebih dan bahkan amat nge bantu
Tolong dijelasin Brutal Kode itu apa yaa om.. WTF
kalo contohnye khan udah ada tuh seperti koding buatan ane yee om
kalo masalah buka tutup koneksi emang kudu dipisah om.
Mas Heru, terima kasih atas tanggapannya.. saya sampai lupa dgn postingan ini
Alhamdulillah sudah solve dan ketemu sendiri jawabannya sejak case ini di posted
terlampir cara penggunaan data Grid (for benefit to others), dengan
menggunakan excel dan access
Wassalam
Grid_Sample.rar
Description: Bi
MsgBox "DATA TIDAK ADA", vbInformation, "Information"
End If
Sedangkan Field pada MS Access Tabel sbb:
Field Name Data Type
No AutoNumber
VoucherRegNoText
CompNmText
Route Text
Qty
'25' untuk memasukkan nilai string (text) 25 ke field Qty yang bertype
> nvarchar(50) atau text di access.
>
> Kid.
>
> On Tue, Sep 15, 2009 at 11:56, Slamet Harto
> wrote:
>
>>
>>
>> Guys,
>>
>> Tolong dong.. query updatenya salah
Guys,
Tolong dong.. query updatenya salah dimana? error message : "syntax
erron in update statement"
query ini ku taruh di modul, bukan di userform. terima kasih
Sub UpdateDataVoucher()
msq = "Update TbVouch set CompNm='" & frmVoucherBB.txtCoyNm.Text &
"',Route='" & frmVoucherBB.txtRoute.Text
Expert,
Ketika saya coba pasang active x control untuk MS-FlexGrid dan
MaskEdit pada userform
ada message error "The subject is not trusted for the specified action"
Coba cari tahu ke paman google .. macam-macam jawabnya ada yang bilang
harus edit registry
[HKEY_LOCAL_MACHINE\Software\Microsoft\In
well.. sorri tu diley mas Zam
Thanks banget ilmunya...
Tapi masih bisa di kembangin lagi ga yakk misalnya dengan format
tanggal & jam .. (iseng banget aku)
Penjumlahan dalam satu cell.xls
Description: MS-Excel spreadsheet
khan udah ada ms office yang portable baik untuk versi 2003 & 2007
coba browse.. cari yang free aja.
Semoga teteup semangat!
Wassalam
Pada tanggal 09/09/09, kid menulis:
> he eh emang gitu.
> belum lagi kalo nemu yang belum ada padanannya... cape beneran deh...
>
>
>
> 2009/9/9 wahyu abdi
Terima kasih Mas Zam & Mba Siti
terlampir workbuk summary dari masing-masing jawaban termasuk jawaban aku
Ada contoh kasus lain yang sampai saat ini aku masih meraba-raba
formula dan UDFnya
Contoh kasus terlampir ( intinya adalah gimana menjumlahkan bilangan
yang seperti data tanggal)
Mohon res
kira-kira pertanyaan begini:
menjumlahkan bilangan terkecil
Di cell A1 ada bilangan 1213 di B1 menghasilkan 2 berasal dari 1+1
Di Cell A2 ada bilangan 15273 di B2 menghasilkan 3 berasal dari 1+2
menjumlahkan bilangan terbesar
Di cell D1 ada 1213 di E1 menghasilkan 5 berasal dari 2+3
Di cell
Haw ebot:
Dim C as Range, N As range, Ws as Worksheet
set Rng = Range("C3:D13").Select
For Each C In Rng
Set N = Ws.Cells.Find(what:=X.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not N Is Nothing Then N.Interior.ColorIndex = 6
Next
Wassalam
Pada tanggal 07/09/09, wahyu abdi
wanda... wah nda sama.. lha wong minta open workbook dikasih gabung workbuk
kasian si penanya jadi bingung baca segambreng coding mu
ngajarin orang mesti sabar toh Om. line per line lebih jelas
Liat tuh mba Siti (ada yang panggil dokter lho mba..), beliau kalo
ditanya satu jawabnya sepuluh.. tap
tricky dikit:
login User pada masing2 PC tentunya berbeda-beda, kita mengakalinya
dengan ketika workbuk tsb dibuka oleh Anda sbg empunya, maka setting
tidak sebagai read only. sebaliknya jika user lain maka setting
sebagai read only
Private Sub Workbook_Open()
Dim
Range("A1").value=Environ("userna
It's work like a charm master mods.
Best, Harto
Jika belum terjawab permintaannya, ada baiknya Anda design sendiri
flow dan permasalannya kasus-perkasus sehingga terbentuk suatu
aplikasi sederhana.
Namun, perlu di ingat bahwa tidak semua kasus yang dilempar ke milist
akan terjawab tanpa ada effort dari Anda sendiri dengan tujuan
sama-sama belaja
=SUMIF($A$2:$A$8,$D2,$B$2:$B$8)
=SUMPRODUCT((D2=$A$2:$A$8)*($B$2:$B$8))
wassalam
2009/8/24, Bambang Setiawan :
> Dear All,
>
> Mohon bantuannya,
> Bagaimana cara untuk menghitung total cell dengan parameter dari cell yang
> berbeda,
> maunya supaya nggak usah di sortir dulu datanya.
> Terlampir
Hi Mba Siti
Masih mengutak-atik UDF versi mu.. tapi kubuat cukup 1 saja
dan di cell nya dituliskan =DocProperties("last save time") &
=DocProperties("Creation Date") atau properties lainnya spt Author..
aku dah liat di help dgn keyword Builtin Documents properties
Function DocProperties(properti
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Poke_It()
ShellExecute 0, vbNullString, "Poke.
aderusli...@yahoo.co.id wrote:
Ye! Tepat sekali memang itu yang saya maksud. Saya sudah otak
atik dan menghasilkan banyak fungsi buatan saya sendiri,
Boleh dong share jurus / formulasi fungsi buatan kang Ade??
Wassalam
Pada tanggal 21/06/09, siti menulis:
> (1) fungsi bawaan excel tertu
Lebih baik posting sample workbooknya atau mungkin gini maksudnya
With Range("B1")
.FormulaR1C1 = "=RC[-1]*RC[-1]"
.Select
.AutoFill Destination:=Range("B1:B10")
End With
Wassalam
2009/6/20, iskandarcaca :
> Dear All,
>
> Salam kenal,
> saya baru kali ini bergabung di milis
>
> Saya
VBA khan?? bgmana dengan vlookup... tinggal dikembangkan untuk kasus no 2
karena vlookup ini basicnya adalah record macro..
Sub Proses()
[C3].Select
Do
i = i + 1
ActiveCell.Offset(-1,-1).FormulaR1C1"="=VLOOKUP(RC[1],STOK!R[2]C:R[52]C[2],2,FALSE)"
Loop Until IsEmpty(ActiveCell.Offset(i))
End Sub
9, Slamet Harto menulis:
>
> Dari: Slamet Harto
> Topik: Re: [belajar-excel] Tes Siswa Otomatis
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Kamis, 28 Mei, 2009, 5:30 PM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
saya kirain malah new topic.. soalnya ga pake Re: di subjecnya
eh ga taunya FYI aja..
Ok d.. congrats ya
2009/3/25, Posi, Yugustin (PTI-SOR) :
> Bapak/Ibu,
>
> Terimakasih Bantuannya.
>
> Sudah berhasil
>
> Mohon maap kemarin karena buru-buru tidak sempat mengganti subject nya.
>
>
>
> Again...
masuk ke kolom mana pa? di Excel ada kolom A s/d IV lho..
cuma ngebayangin Aja, posisi di kolom A, lalu paste special, text.
maka akan masuk ke kolom A
jika ingin dipisahkan gunakan fungsi-fungsi Left, Mid, Right.. dsbnya
Mohon maaf jika salah
Wassalam
2009/3/24, Siregar, Syahrir :
> Dear All,
>
Hanya skedar Saran
Lebih baik gunakan Mozilla Thunderbird untuk donlot email
jadi baca email dari thunderbirdnya
tinggal urus settingannya untuk tetap membiarkan email anda berada di
tempatnya (email address Anda)
wassalam
2009/3/19, si Nung :
> On 18 Mar 2009 at 13:19, Mochi wrote:
>
>> Rekan-r
Kid,
coba pake ini , tinggal rapihin posisinya aja
Option Explicit
Public Sub GabungShape()
ActiveSheet.Shapes.SelectAll
Selection.Copy
Range("A7:A37").PasteSpecial
End Sub
yang ini cuma iseng aja
Sub CekNamaShapes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Hallo semua,
Ceritanya saya ingin mengirim data ke server dari file book2 ke file CDB.xls
tetapi file ini selalu dalam keadaan tertutup
mau minta tolong dong untuk error dipenggalan coding ini
wb.Worksheets("Main").Range(CurDatRng).Formula =
Worksheets("Sheet1").Range([A2], "A" & XLlastrow + 1).
coba tanya ke google, ketikan .dja+extension
atau
http://www.fileinfo.net/extension/dja
http://filext.com/file-extension/dja
barangkali aja yaa
Pada tanggal 11/03/09, Mochi Underscore menulis:
> Makasih banyak atas infonya. sudah saya coba buka pakai Notepad tapi ga ada
> headernya. saya coba ub
cuma nambahin dikit vbanya mba Siti
untuk mempercepat proses
sebelum proses loop awal dimulai bisa ditambahkan:
with Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
end with
lalu pada baris setelah loop berakhir atau setelah next terakhir
with Application
.ScreenUpda
biasanya saya kalo buat toolbar taruh di modul seperti ini:
Sub BuatToolBar()
Dim ComBar As CommandBar
Dim btnPop As CommandBarPopup
Dim btnNew As CommandBarControl
Set ComBar = CommandBars.Add(Name:="MyForm")
ComBar.Visible = True
Set btnNew = ComBar.Controls.Add(Type:=msoCont
manualnya: setelah workbook terbuka piih Edit, links, delete links
vba nya:
Sub DeleteHLink()
ActiveSheet.Hyperlinks.Delete
End Sub
or
Sub BreakLinks()
Dim i As Integer
Dim asalLinks As Variant
asalLink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBou
hi Pa
Selamat bergabung ya.. semoga kita semua dapat saling membantu
Mohon maaf Contoh data yg diberikan belum dapat mewakili kasusnya
kalimat "mohon dibantu membuat input data" input data yang seperti apa yg
dimaksud apakah melalui pemrograman / macro??
Kalimat Cara mengelompokkanya trx tsb, "
Maaf, tanpa melihat attchement yg sdisuguhkan
dgn asumsi data berada di sel C4
maka formulanya =SUBSTITUTE(C4,"-","")
Pada 12 Januari 2009 17:55, kaizen1 menulis:
> Hi
>
> Teman2, mau nanya lagi neh...
> gimana caranya ubah cell...
> contoh
> no kode lama : 5LW-11133-10
> no kode baru : 5LW11
Pada kolom harga lama / cell D18 =INDEX($D$5:$D$11,MATCH(B18,$B$5:$B$11,0))
Pada kolom harga baru / cell E18 =INDEX($H$5:$H$11,MATCH(B18,$F$5:$F$11,0))
lalu copy kebawah
Assalammu 'alaikum Wr Wb
Pa Sofyan yang terhormat,
Saya lagi kepikiran gimana caranya mencreate / generate number & huruf untuk
menggantikan NIK
Misalnya saya ingin 1 karyawan dapat membeli kupon door prize nya sebanyak 10
buah kupon.
maka excel akan memberikan nomor door prizenya secara acak d
Hallo pakar,
ceritanya saya punya coding seperti ini:
With Workbooks(ComboWB.ListIndex + 1).VBProject.VBComponents
Tiap run selalu debug
Messagenya:
Run-time error '1004':
Method 'VBProject' of object'_workbook'failed
Sementara di object browser cuma ada:
VbAppWinStyle
VbCalender
VbCallType
VbCo
Kalo saya biasa pakai UDF berikut jika ingin melihat formula yang ada sebagai
text
misalnya di A1 ada formula =1+1 menghasilkan nilai 2.. maka jika udfnya
di implementasikan di B1 dengan =FTEXT(A1) maka di cell b1 tsb akan
tampil "=1+1", sedangkan jika cell A1 tdk mengandung Formula maka akan
me
Halo Temans..
Dah lama ga akses internet nih.. Soalnya Di Warnet masih gaptek dengan VISTA
dan Open Office..
Bagi yang suka macro..Ini kukirimkan versi macronya... (copykan coding
dibawah kedalam modul) terus jalankan macronya.
Pada dasarnya sama dengan caranya manual yang diber
Ass Wr Wb
Hai teman, Aku mau share sedikit yah..
Membuat Macro
Pembuatan macro dalam Excel dapat Anda lakukan dengan 2 Cara., yaitu:
1) Perekaman Macro dan 2) dengan menu Visual Basic Editor (Alt+F11) dengan
cara ini anda diharapkan telah mengetahui tekhnik pemrogaman dgn VBA
Sa
Ass Wr Wb..
Pak Sofyan terima kasih atas inputnya.. mohon maaf sekarang aku coba ingin
merubah format lebar kolomnya diperbesar dari 5.14 ke 22 dengan coding ini
tetapi debug terus..
mohon bantuan gimaa formatnya yang sebenarnya yah pak..
Terima kasih banyak atas bantuannnya.. Wassalam
Mas purnomo..
mohon maaf.. saya masih kurang menangkap maksudnya... atau mungkin bisa di
bikin simple data aja ga... data mentah file ini mau dicopykan kemana (sheet
mana?) atau mungkin bisa diberikan gambaran nanti hasinya akan seperti ini..
thanks!
___
Mas ini aku kasih contoh beberapa coding yang harus di copy paste ke dalam
module mu.
tinggal dipelajari syntaknya dan disesuaikan dengan kebutuhan.. sebenarnya
dari awal saya dah bilang minta attachmennya ... kalo isi filenya sangat
crutial.. tinggal di hapus saja dan sisakan yang mau ditanya
hu saya
ga bisa..?
-Original Message-
From: belajar-excel@yahoogroups.com [mailto:[EMAIL PROTECTED] Behalf Of slamet
harto
Sent: Tuesday, October 30, 2007 2:36 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] TANYA MACRO PINDAH
Maaf mas bambang..
Saya
Maaf mas bambang..
Saya kurang mengerti maksudnya.. akan lebih baik jika disertai attachment..
karena pastinya akan sesuai harapan Anda.
Insya Allah dibantu Atau mungkin yang lain bisa membantu ..
Mohon Maaf jika kurang berkenan
"Purnomo, Bambang " <[EMAIL PROTECTED]> wrote:
Pak Sofyan ysh
Terima kasih atas bantuannya, tetapi kalo format untuk pemisahan koma-nya
gimana pak?
karena hasil yang diinginkan adalah : Rp. 1.500.000,- atau Rp. 500.000,-
Sekali lagi terima kasih banyak atas atensinya.
__
Do You Yahoo!?
T
Hallo teman,
Saya ada pertanyaan mengenai format curency di msgbox
mohon bantuan kiranya cara untuk memformatnya
Berikut ini adalah penggalam macronya dan terima kasih banyak
sebelum dan sesudahnya
Dim Harga1 As String, Harga2 As String
' Harga1 dan harga2 sebenarnya bukan konstanta tetapi dala
Ass wr wb
Sekedar menjawab namun sebagai contoh untuk dikembangkan lagi
Saya pakai formula interface:
Silahkan buka attachmentnya dan semoga berkenan.
Up Mods (sekedar input)
Threat nya jadi kepanjangan, ada yang ucapkan terima kasih
yang seharusnya bisa dipersonalisasi ,
Ada banyak hal.. yang ha
51 matches
Mail list logo
