Pagi para Mastah Ecxel sekalian...
Semoga semua dlm keadaan sehat alwafiat n selalu dlm lindunganNya...
Amin...
Maaf saya mo minta tolong, adakah yg bisa memberi tutorial cara merubah
Icon Excel di Taksbar dengan VBA aga yg berubah cm untuk 1file itu saja bkn
merubah Icon untuk seluruh Excel...
Su
Maaf NangAgus, keknya itu cm kesalahan ketik aja soalnya pas dipastekan tu
script ke VBA pasti error jadi warna merah n setelah didelete titiknya 1 br
jadi hitam n g error lg...
Sudah terjawab pertanyaan saya dgn kedua script dr Mr. Kid...
Sekali lagi terimakasih Mr. Kid, jgn bosen ngasi solusi wat
Solved lagi gan terimakasih buanyak...
Maaf ngerepotin terus neh, Sukses selalu & sehat wal afiat... Am...
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Solved gan terimakasih buanyak...
Satu lg gan klu wat menghapusnya gmn gan, data yg terhapus adalah data pada
kolom terakhir dirange tabel dengan kolom jumlah selalu berada diujung
kanan kolom.
Terimakasih
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Mena
Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
With Worksheets("Sheet1").Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).Value =
...Value
End If
End With
Koq cm baris pert
Dear Master Excel...
Mohon bantuannya, ane punya data disheet1 dan ingin mengcopy pastekannya
ketabel disheet2 (range A1:I25) dikolom terakhir yg kosong dengan
menggunakan:
With Worksheets("Sheet1")
AD = .Range("A1:A25").Value
End With
With Worksheets("Sheet2")
extBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox37.Value = ""
Worksheets("DATABASE HARIAN").Cells(14, 4
update progress bar, tambahkan
> baris berikut :
> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
> sampai max
> nama_userform.repaint
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm7...@gmail.com
> [belaj
Dear Mr. Kid...
Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai berikut:
Private Sub CommandButton3_Click()
Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
AA, AB, AC, AD, AE, AF, AG,
Assaalam
Dear BeExceller...
Saya doakan dlm keadaan sehat & baik2 aja, amiiinnn...
Saya mohon bantuannya, saya telah menggunakan script ini:
Set MacroA = Sheets("DATABASE")
Set EditMacroA = MacroA.Range("TANGGAL1")
Set C = EditMacroA.Find(TextBox1.Value, LookIn:=xlValues)
C.Offset(3,
Assalam...
Dear BeExceller...
Mohon bantuannya rumus excel untuk merangking 5 nilai terbesar dan
menampilkannya di kolom berbeda dari puluhan data entry. Hanya 5 nilai terbesar
saja yang ditampilkan secara otomatis dari data entry...
Terimakasih...
Wassalam
-- Andrie Amorius, SE. Ak
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Minta tolong kepada para master, saya bingung mengenai penggunaan fungsi
Hlookup diVBA. Klu fungsi Vlookup bisa digantikan dgn fungsi offset
dikombinasikan dgn fungsi CountA, klu fungsi Hlookup bisa digantikan dgn
apa klu digunakan diVBA??!
Waduh maaf Mr. Kid, sepertinya saya lupa melampirkannya.
Bsk saya krm SSnya, soalnya saya pake komputer kantor.
Terimakasih atas ilmu n penjelasannya, maaf saya bnyk merepotkan...
Wassalam
mpilan, silakan mengeksplorasi properti
> milik object application atau object activewindow (atau object windows
> tertentu milik object application) dengan nama properti yang didahului
> dengan kata 'display'.
>
> Wassalamu'alaikum wr. wb.
> Kid.
>
>
>
> 201
di worksheet
>
> >dalam userform
> di VBE -> insert sebuah userform -> menu Tools -> Addtional Controls ->
> pilih mirip mirip MS Date Time Picker -> OK -> klik DTPicker dari toolbox
> -> gambar segi empat dalam userform
>
> Berarti ada yang kurang de
Assalamu'alaikum
Sekali lagi mohon bantuan para master
Kenapa setiap saya menambahkan DTPicker pada worksheet trus setelah
worksheet ditutup maka bgtu dibuka kembali DTPicker g bisa tampil,
hanya berupa textbox dgn tanda silang merah...
Penampakannya sesuai dgn ss yang saya lampirkan...
Assalamu'alaikum...
Para master sekalian...
Ada yang bisa bantu saya memberikan solusi script untuk me resize
workbook display excel sesuai dengan ukuran yang kita inginkan dan
membuat tampilan worksheet tanpa toolbar.
Terimakasih sebelumnya...
Wassalamu'alaikum...
--
Andrie Amoriu
as yang boleh dan tidak
> boleh dilakukan oleh user BESERTA seluruh antisipasi yang harus diwaspadai
> karena karakteristik USER yang berbeda-beda. Bisa jadi akan membutuhkan
> beberapa event dan baris script yang lebih banyak untuk sekedar
> mengantisipasi ulah USER.
>
> Wassalamu&
Assalamu'alaikum
Mohon bantuannya para master...
Saya sudah buat script ini:
Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
abc: TextBox1 = ""
End Sub
agar textbox hanya bisa diinput dgn angka n sudah
ada separator ribuannya, tetapi t
-008-blok-if.html>,
> terutama pada bagian '*Penggunaan operator logika dalam IF*'.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
> 2014-11-09 13:10 GMT+11:00 Andrie Amorius bm7...@gmail.com
> [belajar-excel] <
> belajar-excel@yahoogroups.com
> >:
>
>
Assalamu'alaikum
Mohon bantuannya paar master,
*Pertama*
Bisa g script ini dipersingkat??!
If TextBox1.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox1.SetFocus
Exit Sub
ElseIf TextBox2.Value = "" Then
Ms
;=7);25%;IF(AND(DAY(A4)>=8;DAY(A4)<=15);50%;IF(AND(DAY(A4)>=16;DAY(A4)<=23);75%;IF(AND(DAY(A4)>=24;DAY(A4)<=31);100%;0
>
>
>
>
> jenengku Nungky
> ARISeTOCReATe
> salam dhin-dhin-dhin
>
>
> ----- Original Message -
> From: Andrie Amoriu
; mencari posisi suatu nilai pada suatu daftar sebaris atau
>> sekolom
>> { } -> notasi pembentuk array data
>
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
> 2014-11-06 15:44 GMT+11:00 Andrie Amorius bm7...@gmail.com [belajar-excel]
> <
> belaja
Assalaamu'alaikum,
Mohon bantuannya para master...
bisa g rumus if digunakan untuk pilihan tanggal??!
misalnya cell A1 adalah isian tanggal dan cell A3 adalah hasilnya,
jika cell A1 tanggalnya 1 s/d 7 maka nilainya adalah nilai cell B1,
tapi jika tanggal 8 s/d 15 nilainya adalah nilai cell C1, la
segera diperhatikan dan
> didahulukan kepentingannya.
>
> -
>
> RecordAkhir = wsDtbsBrg.Cells(1,
> wsDtbsBrg.Columns.Count).End(xltoleft).column 'kolom terakhir berisi
> data di baris 1)
>
>
> Wassalam,
> Kid.
>
>
>
>
&g
RecordAkhir = wsDtbsBrg.Cells(wsDtbsBrg.Rows.Count, “B”). _
End(xlUp).Offset(0, 0).Row
Script ini untuk mencari data terakhir dlm suatu kolom, untuk
memasukan data di cell terakhir yg kosong (penyimpanan berturut2 terus
menerus ke row kosong selanjutnya/ row+1). Yg ingin saya tanyakan
bagaimana klu
26 matches
Mail list logo