Wah! Terima kasih sekali untuk mbak Rara, Mr. Kid dan yang lain.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of utthank abe
Sent: Thursday, March 29, 2012 14:16
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Membuat schedule Excel, cell t
conditional formating-->=OR(MONTH($D4)=MONTH(F$3);MONTH(E$4)=MONTH(F$3))
On 3/29/12, Kid Mr. wrote:
> Waalaikumussalam Wr. Wb.
>
> mb Rara : "Formulasi lain tentu masih ada..."
>
> Misal : (pada cell aktif di F4), maka formula pada conditional formatting
> bisa diekspresikan sebagai :
> =(F$3>$D4
Hai Andre,
No 1.
Memberi warna header yang terfilter menggunakan conditional formatting
dengan macam Use Formula (Is Formula di xl2003), yang formulanya berbunyi :
=IsFiltered(A$1)
Syaratnya, workbook memiliki UDF bernama IsFiltered berikut ini :
Public Function IsFiltered(rng As Range) As Long
Coba bagian :
pfName = ThisWorkbook.Path & "\" & CboName.Value
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
Diganti menjadi :
pfName = ThisWorkbook.Path & "\" & CboName.Value & ".jpg"
if lenb(dir$(pfname))<>0 then
ImgCL.Picture = LoadPicture(pfName)
Be Exceler's
Meng-Highlight (memberi warna atau menandai) kolom yang di filter dengan macro
Pertanyaan:
1. Bagaimana jika semua menggunakan macro, pada file terlampir kolom I1:P1
menggunakan formula,
Jika kolom yang digunakan sedikt tidak terlalu masalah tetapi jika kolom
yang digunakan banyak
Selamat siang
setelah dalam tahap uji coba formula dari Ki Semprul
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
maka al hasil masih belum bisa, yang terjadi run time error '53' (file not
Found)
sedikit gambaran extention yang inginkan adalah cboname hanya menampilkan na
Selamat pagi
Salam untuk semua para exceler
Terimakasih atas wejangan dari Ki Semprul, memang seharusnya dalam suatu
pembahasan harus ada repons dari si pelempar soal, dan saya sebagai penanya
mungkin agak kurang response atau mungkin dikarenakan BBM naik maka jatah untuk
ngenet modem berkurang
Ysh Bapak Dayat Shogun...
Bapak datang sbg pendekar bertangan kosong, tak selembar data pun
diajukan sbg contoh
(misal "oret-oretan yg KATANYA sudah mengikuti prosedur yg
disarankan", seperti apa ?)
- padahal kasus yg Bapak ajukan adalah kasus yg sudah lewat 1 bulan y.l
( http://tech.groups.ya
Dear master exceler
Menyambung cerita lama untuk list file
Mohon pencerahannya tambahan macronya, karena saya sudah mengikuti prosedur
yanG di sarankan namun terkendala ketika mengetikkan manual didalam
combolistnya jika jawaban tidak ada dalam daftar file yang dituju maka macronya
error, trus
Ic, jadi harusnya wbknew.sheets(1).range("a2").value = "bca" ya
Thanks a lot Kid
Sent from my BlackBerry yg belum lunas
-Original Message-
From: "Kid Mr."
Sender: belajar-excel@yahoogroups.com
Date: Wed, 28 Mar 2012 22:12:41
To:
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [bel
Jika error pada baris saveas, maka pastikan folder dan akses ke drivenya
ada.
Yang jelas, baris :
*Wbknew.range("a2").value = "bca"*
jelas salah, karena tidak memenuhi kaidah object model yang ada, yaitu :
Workbook.Sheet.Range
Jadi range("a2") itu harusnya disebut ketika nama sheetnya sudah diseb
Hi kid,
Sy sudah coba code ini dibawah tp tidak dpt disave dan tidak bisa bikin value
di wbknew, malahan ada error 400
Dim vFile As Variant
Dim wbkFile As Workbook
vFile = Application.GetOpenFilename
If LenB(vFile) <> 0 Then
Set wbkFile = Workbooks.Open(vFile)
End If
wbkf
Coba :
dim wbkNew as workbook
set wbknew=workbooks.add
wbknew.saveas "z:\data\namafilebaru.xlsx"
Kid.
On Wed, Mar 28, 2012 at 21:02, ChubbyMike wrote:
> **
>
>
> ** Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
> Boleh nanya 1 lg ga?
> Dalam macro yg sy buat itu membuat 1 workbook
Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
Boleh nanya 1 lg ga?
Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi saya
coba otak atik.
Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat vfile
itu adalah workbook yg kita buat baru.
Sen
saya ralat
deskripsi :
saya mau membuat commandbutton (di file A) yg jika diklik, user harus memilih
file excel (file b) dimana macro akan berjalan di file B tersebut.
Sent from my BlackBerry yg belum lunas
-Original Message-
From: "Chubby Mike"
Sender: belajar-excel@yahoogroups.com
Mungkin begini :
Dim vFile As Variant
Dim wbkFile As Workbook
vFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If LenB(vFile) <> 0 Then
Set wbkFile = Workbooks.Open(vFile)
End If
Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
hi all,
tolong bantuannya membuat macro seperti judul diatas dong.
deskripsi :
saya mau membuat commandbutton (di file A) yg jika diklik, user harus memilih
file excel (file b) dimana macro akan berjalan di file A tersebut.
saya sudah coba
newfile = application.getopenfilename(filefilter:="Exc
17 matches
Mail list logo