Dear all master...
Kiranya bisa di terjemahkan ke bhs manusia code macro sebagai berikut :
Sub macro2()
ActiveSheet.Range(”$V$7:$W$564”) .AutoFilter Field:=1, Criteria1:=”<>”
ActiveWindow.SmallScroll Down:=-6
End sub
Mohon pencerhannya yah..
Trims.
Hafidz
Sent from my BlackBerry®
powered by S
Maaf oot...
Hai mustika,
Mungkin lebih pas kalau emailnya dikirim via kurir khusus ke heaven karena
beliau mungkin sdh di sana sejak 2 th yang lalu.
Salam,
HK
Sent from Samsung Mobile"mustika@hotmail.com [belajar-excel]"
wrote:Dear Siti vi,
Assalamu Alaikum Wr. Wb.
Terinspirasi dari T
Adakah yang salah dengan perintah di bawah ini?
waktu di lock kok tidak bisa insert koment di cell ya?
Private Sub CommandButton1_Click()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
On Error GoTo akhir
If wSheet.ProtectContents = True Then
wSheet.Unprotect P
Alhamdulillah sudah ketemu disni
http://www.vbaexpress.com/forum/showthread.php?42769-save-as-csv-file-format/page2
oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) &
"csv", xlCSVWindows
diganti seperti ini
oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) & "csv",
xlCSV
Assalamu'alaikum Wr. Wb.
saya barusan nyari fungsi untuk konvert dari xls ke CSV, dan ketemu
hasil seperti dibawah
yang mau saya tanyakan adalah, setelah saya jalankan fungsi tersebut
dan berhasil namun yang jadi masalah pembatas antar kolom nya pake
koma (,) kalau ingin merubah untuk pembatasnya
5 matches
Mail list logo