6 New Messages
Digest #2156
1a
Re: Re : Re : Macro untuk Mengolah data *.csv dari Internet Explorer by "Mr. Kid" nmkid.family@ymail.com
Messages
Thu Mar 14, 2013 5:01 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Oh iya, kenapa gak pakai file downloader saja ?
Kan ada tuh yang bisa get all url lalu melakukan download.
Wassalam,
Kid.
2013/3/14 Mr. Kid <mr.nmkid@gmail.com >
> Wa'alaikumussalam Wr. Wb.
>
> Untuk bypass save dialog bawaan inet belum pernah nyoba. maaf ya.
> Mungkin winapi bisa bisa kali ya. Tahapnya kira-kira dapatkan handle
> window save dialog, lalu dapatkan handle tombol save dalam window tersebut,
> kemudian send message untuk klik (mungkin butuh wndproc).
>
> Kalau boleh tahu, link untuk download file pertama seperti apa dan link
> untuk download file kedua seperti apa ?
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
> 2013/3/14 cindhi dwi <cindhi.nouvie@yahoo.com >
>
>> Assalamu'alaikum wr wb
>>
>> Mr, Mau nanya lagi yaa..
>>
>> Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi,
>> saya mencoba script ini :
>>
>> Dim HTMLDoc As HTMLDocument
>> Dim oBrowser As InternetExplorer
>>
>> Sub Login_2_Website()
>>
>> Dim oHTML_Element As IHTMLElement
>> Dim sURL As String
>>
>>
>> On Error GoTo Err_Clear
>> sURL = "
>> http://10.21.51.16/graph_xport.php?local_graph_id=5174&rra_id=2&view_type=
>> "
>> Set oBrowser = New InternetExplorer
>> oBrowser.Silent = True
>> oBrowser.timeout = 60
>> oBrowser.Navigate sURL
>> oBrowser.Visible = True
>>
>> Do
>> ' Wait till the Browser is loaded
>> Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
>>
>> Set HTMLDoc = oBrowser.Document
>>
>> HTMLDoc.all.UserName.Value = "NOP"
>> HTMLDoc.all.passwd.Value = "123456"
>>
>>
>>
>> For Each oHTML_Element In HTMLDoc.getElementsByTagName("input";)
>> If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
>> Next
>>
>> Err_Clear:
>> If Err <> 0 Then
>>
>> Err.Clear
>> Resume Next
>> End If
>>
>> End Sub
>>
>> Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di
>> bawah ini :
>>
>> [image: Inline image 1]
>>
>> Masalahnya, file yang akan saya download ratusan Mr..
>>
>> Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan
>> otomatis menggunakan macro ?
>>
>> Terima kasih atas pemecahannya ^^
>>
>>
>>
>> Wa'alaikumsalam wr wb*
>>
>> Regards,
>>
>>
>> Cindhi Dwi Novita*
>>
>>
>> *
>>
>> From:* Mr. Kid <mr.nmkid@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Friday, February 8, 2013 6:30 PM
>> *Subject:* Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari
>> Internet Explorer
>>
>>
>> *Coba script berikut :*
>> Public Sub DownloadFile(ByVal sAlamatFile As String, ByVal sFileHasil As
>> String)
>> Dim objXMLHTTP As Object
>> Dim lFile As Long
>> Dim btFileRespon() As Byte
>>
>> 'init object dari class msxml2.xmlhttp
>> Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
>> 'jika akan menggunakan referensi tetap ke MSXML, gunakan :
>> 'dim objXMLHTTP as msxml2.xmlhttp
>> 'set objxmlhttp=new msxml2.xmlhttp
>>
>> With objXMLHTTP
>> 'buka saluran ke alamat webfile dan kirim balik hasilnya (request)
>> .Open "GET", sAlamatFile, False
>> .Send
>>
>> 'tunggu sampai status ready dari request bukan 4. Selama itu,
>> lakukan doevent supaya request tetap diproses
>> Do While .readyState <> 4
>> DoEvents
>> Loop
>>
>> 'jika sampai baris ini, artinya semua request telah selesai
>> 'jadi simpan hasil request (yang bertype byte) ke sebuah array
>> byte
>> 'array inilah file yang didownload
>> btFileRespon = .ResponseBody
>> End With
>>
>> 'file lama di hapus
>> If LenB(Dir$(sFileHasil)) <> 0 Then
>> Kill sFileHasil
>> End If
>>
>> 'buat file output binary untuk menulis isi dari byte hasil request
>> lFile = FreeFile
>> Open sFileHasil For Binary As #lFile 'buka file dengan
>> tunjuk ke pointernya (akan dibuat jika belum ada)
>> Put #lFile, , btFileRespon 'isi byte datanya
>> Close #lFile 'tutup file
>>
>> 'lepaskan memory
>> Set objXMLHTTP = Nothing
>> End Sub
>>
>>
>> *Contoh cara pemakaian prosedur download file.
>> *Misal akan download sebuah file csv dari website berikut : (coba dibuka
>> link ke WHO nya)
>> http://www.who.int/tb/country/data/download/en/index.html
>>
>> Disana ada sebuah link download file csv bertuliskan :
>> » Download the data dictionary [csv 30kb]<https://extranet.who.int/tme/generateCSV.asp?ds=dictionary >
>>
>> Jika mouse di-hover ke atas link tersebut, akan tampak disudut kiri bawah
>> biasanya, alamat url link tersebut. Untuk link di atas, bunyinya adalah :
>> https://extranet.who.int/tme/generateCSV.asp?ds=dictionary
>> Alamat inilah yang akan digunakan untuk download file csv.
>>
>> Berikut ini adalah sebuah prosedur untuk mendownload dari link :
>> https://extranet.who.int/tme/generateCSV.asp?ds=dictionary
>> Public Sub ContohCaraPakai()
>> Dim sUrl As String, sFile As String
>>
>> sUrl = "https://extranet.who.int/tme/generateCSV.asp?ds=dictionary "
>> sFile = "G:\temp\tes.csv" 'ganti dengan lokasi peletakan file yang
>> di-download
>>
>> DownloadFile sUrl, sFile
>>
>> MsgBox "Done."
>> End Sub
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2013/2/8 cindhi dwi <cindhi.nouvie@yahoo.com >
>>
>> http://10.17.221.5/graph_xport.php?local_graph_id=5174&rra_id=2&view_type=
>>
>>
>>
>> Reply via web post<http://groups.yahoo.com/group/belajar-excel/post;_ylc=X3oDMTJyOTRocXFqBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMyMjQ1NQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEzNjAzMjMwMzc-?act=reply&messageNum=22455 > Reply
>> to sender
>> <mr.nmkid@gmail.com ?subject=Re%3A%20Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20Mengolah%20data%20%2A%2Ecsv%20dari%20Internet%20Explorer> Reply
>> to group
>> <belajar-excel@yahoogroups.com ?subject=Re%3A%20Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20Mengolah%20data%20%2A%2Ecsv%20dari%20Internet%20Explorer> Start
>> a New Topic<http://groups.yahoo.com/group/belajar-excel/post;_ylc=X3oDMTJmOGllZW4xBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEzNjAzMjMwMzc- > Messages
>> in this topic<http://groups.yahoo.com/group/belajar-excel/message/22454;_ylc=X3oDMTM3ZnV2cTR1BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMyMjQ1NQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEzNjAzMjMwMzcEdHBjSWQDMjI0NTQ- >(2)
>> Recent Activity:
>>
>> - New Members<http://groups.yahoo.com/group/belajar-excel/members;_ylc=X3oDMTJndjYxM2ozBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMzYwMzIzMDM2?o=6 >
>> 26
>>
>> Visit Your Group<http://groups.yahoo.com/group/belajar-excel;_ylc=X3oDMTJmMDR2dHNtBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEzNjAzMjMwMzY- >
>> ----------------------------------------------------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-subscribe@yahoogroups.com
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@yahoogroups.com
>>
>> berkunjung ke web milis
>> http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------
>> [image: Yahoo! Groups]<http://groups.yahoo.com/;_ylc=X3oDMTJlZ3NlbWszBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTM2MDMyMzAzNw-- >
>> Switch to: Text-Only<belajar-excel-traditional@yahoogroups.com ?subject=Change%20Delivery%20Format:%20Traditional>,
>> Daily Digest<belajar-excel-digest@yahoogroups.com ?subject=Email%20Delivery:%20Digest>•
>> Unsubscribe<belajar-excel-unsubscribe@yahoogroups.com ?subject=Unsubscribe>• Terms
>> of Use <http://docs.yahoo.com/info/terms/ > • Send us Feedback
>> <ygroupsnotifications@yahoogroups.com ?subject=Feedback%20on%20the%20redesigned%20individual%20mail%20v1>
>> .
>>
>> __,_._,__
>>
>>
>
Kan ada tuh yang bisa get all url lalu melakukan download.
Wassalam,
Kid.
2013/3/14 Mr. Kid <mr.nmkid@gmail.
> Wa'alaikumussal
>
> Untuk bypass save dialog bawaan inet belum pernah nyoba. maaf ya.
> Mungkin winapi bisa bisa kali ya. Tahapnya kira-kira dapatkan handle
> window save dialog, lalu dapatkan handle tombol save dalam window tersebut,
> kemudian send message untuk klik (mungkin butuh wndproc).
>
> Kalau boleh tahu, link untuk download file pertama seperti apa dan link
> untuk download file kedua seperti apa ?
>
> Wassalamu'
> Kid.
>
>
>
>
>
> 2013/3/14 cindhi dwi <cindhi.nouvie@
>
>> Assalamu'
>>
>> Mr, Mau nanya lagi yaa..
>>
>> Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi,
>> saya mencoba script ini :
>>
>> Dim HTMLDoc As HTMLDocument
>> Dim oBrowser As InternetExplorer
>>
>> Sub Login_2_Website(
>>
>> Dim oHTML_Element As IHTMLElement
>> Dim sURL As String
>>
>>
>> On Error GoTo Err_Clear
>> sURL = "
>> http://10.21.
>> "
>> Set oBrowser = New InternetExplorer
>> oBrowser.Silent = True
>> oBrowser.timeout = 60
>> oBrowser.Navigate sURL
>> oBrowser.Visible = True
>>
>> Do
>> ' Wait till the Browser is loaded
>> Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
>>
>> Set HTMLDoc = oBrowser.Document
>>
>> HTMLDoc.all.
>> HTMLDoc.all.
>>
>>
>>
>> For Each oHTML_Element In HTMLDoc.getElements
>> If oHTML_Element.
>> Next
>>
>> Err_Clear:
>> If Err <> 0 Then
>>
>> Err.Clear
>> Resume Next
>> End If
>>
>> End Sub
>>
>> Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di
>> bawah ini :
>>
>> [image: Inline image 1]
>>
>> Masalahnya, file yang akan saya download ratusan Mr..
>>
>> Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan
>> otomatis menggunakan macro ?
>>
>> Terima kasih atas pemecahannya ^^
>>
>>
>>
>> Wa'alaikumsalam wr wb*
>>
>> Regards,
>>
>>
>> Cindhi Dwi Novita*
>>
>>
>> *
>>
>> From:* Mr. Kid <mr.nmkid@gmail.
>> *To:* belajar-excel@
>> *Sent:* Friday, February 8, 2013 6:30 PM
>> *Subject:* Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari
>> Internet Explorer
>>
>>
>> *Coba script berikut :*
>> Public Sub DownloadFile(
>> String)
>> Dim objXMLHTTP As Object
>> Dim lFile As Long
>> Dim btFileRespon(
>>
>> 'init object dari class msxml2.xmlhttp
>> Set objXMLHTTP = CreateObject(
>> 'jika akan menggunakan referensi tetap ke MSXML, gunakan :
>> 'dim objXMLHTTP as msxml2.xmlhttp
>> 'set objxmlhttp=new msxml2.xmlhttp
>>
>> With objXMLHTTP
>> 'buka saluran ke alamat webfile dan kirim balik hasilnya (request)
>> .Open "GET"
>> .Send
>>
>> 'tunggu sampai status ready dari request bukan 4. Selama itu,
>> lakukan doevent supaya request tetap diproses
>> Do While .readyState <> 4
>> DoEvents
>> Loop
>>
>> 'jika sampai baris ini, artinya semua request telah selesai
>> 'jadi simpan hasil request (yang bertype byte) ke sebuah array
>> byte
>> 'array inilah file yang didownload
>> btFileRespon = .ResponseBody
>> End With
>>
>> 'file lama di hapus
>> If LenB(Dir$(sFileHasi
>> Kill sFileHasil
>> End If
>>
>> 'buat file output binary untuk menulis isi dari byte hasil request
>> lFile = FreeFile
>> Open sFileHasil For Binary As #lFile 'buka file dengan
>> tunjuk ke pointernya (akan dibuat jika belum ada)
>> Put #lFile, , btFileRespon 'isi byte datanya
>> Close #lFile 'tutup file
>>
>> 'lepaskan memory
>> Set objXMLHTTP = Nothing
>> End Sub
>>
>>
>> *Contoh cara pemakaian prosedur download file.
>> *Misal akan download sebuah file csv dari website berikut : (coba dibuka
>> link ke WHO nya)
>> http://www.who.
>>
>> Disana ada sebuah link download file csv bertuliskan :
>> » Download the data dictionary [csv 30kb]<https://extranet.
>>
>> Jika mouse di-hover ke atas link tersebut, akan tampak disudut kiri bawah
>> biasanya, alamat url link tersebut. Untuk link di atas, bunyinya adalah :
>> https://extranet.
>> Alamat inilah yang akan digunakan untuk download file csv.
>>
>> Berikut ini adalah sebuah prosedur untuk mendownload dari link :
>> https://extranet.
>> Public Sub ContohCaraPakai(
>> Dim sUrl As String, sFile As String
>>
>> sUrl = "https://extranet.
>> sFile = "G:\
>> di-download
>>
>> DownloadFile sUrl, sFile
>>
>> MsgBox "Done."
>> End Sub
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2013/2/8 cindhi dwi <cindhi.nouvie@
>>
>> http://10.17.
>>
>>
>>
>> Reply via web post<http://groups.
>> to sender
>> <mr.nmkid@gmail.
>> to group
>> <belajar-excel@
>> a New Topic<http://groups.
>> in this topic<http://groups.
>> Recent Activity:
>>
>> - New Members<http://groups.
>> 26
>>
>> Visit Your Group<http://groups.
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> [image: Yahoo! Groups]<http://groups.
>> Switch to: Text-Only<belajar-excel-
>> Daily Digest<belajar-excel-
>> Unsubscribe<belajar-excel-
>> of Use <http://docs.
>> <ygroupsnotification
>> .
>>
>> __,_._,__
>>
>>
>
Thu Mar 14, 2013 5:05 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Errornya karena tidak bisa melakukan paste.
Dim TgBrs As Integer
Dim wbTarget As Workbook
Dim cPath As String
Dim TinggiMaxBaris As Integer
dim wbkapp as workbook,rngSumber as range, rngTarget as range
set wbkapp=thisworkbook
cPath = "\\sbplg01b\Qcmntrng\6Sigma\QC_Time_Sheet_Input.xls"
TgBrs = Range(Range("C3"), Range("C3").End(xlDown)).Rows.Count + 2
set rngsumber=Range("A3:S" & TgBrs)
Set wbTarget = Workbooks.Open(Filename:=cPath, UpdateLinks:=False)
wbTarget.Activate
*wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas*
TinggiMaxBaris = Worksheets("January").Range("C1").CurrentRegion.Rows.Count
set rngtarget=Worksheets("January").Range("A" & TinggiMaxBaris).Offset(1, 0)
*'ActiveWindow.ActiveSheet.Paste ' Dibaris ini errornya*
rngsumber.cut rngtarget
Application.CutCopyMode = False
wbTarget.Close Savechanges:=True
Set wbTarget = Nothing
Wassalam,
Kid.
On Thu, Mar 14, 2013 at 9:10 AM, <tio.adjie@ptssb.co.id > wrote:
> **
>
>
>
> Ma'af sekali Be-Exceller, baru buka.
>
> Errornya berbunyi :
>
> Error run-time 1004
> Paste Methode of Worksheets class failed
>
> Ini code VBA yang gagal :
>
> Private Sub ExportData_Click()
> Dim TgBrs As Integer
> Dim wbTarget As Workbook
> Dim cPath As String
> Dim TinggiMaxBaris As Integer
> cPath = "\\sbplg01b\Qcmntrng\6Sigma\QC_Time_Sheet_Input.xls"
> TgBrs = Range(Range("C3"), Range("C3").End(xlDown)).Rows.Count + 2
> Range("A3:S" & TgBrs).Select
> Selection.Cut
> Set wbTarget = Workbooks.Open(Filename:=cPath, UpdateLinks:=False)
> wbTarget.Activate
> *wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas*
> TinggiMaxBaris = Worksheets("January").Range("C1").CurrentRegion.Rows.Count
> Worksheets("January").Range("A" & TinggiMaxBaris).Offset(1, 0).Select
> *ActiveWindow.ActiveSheet.Paste ' Dibaris ini errornya*
> Application.CutCopyMode = False
> wbTarget.Close Savechanges:=True
> Set wbTarget = Nothing
> End Sub
>
> Kira-kira kenapa errornya dan bagaimana solusinya ?
>
> Terima kasih jawabannya. Semoga Tuhan membalas.
>
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" <mr.nmkid@gmail.com >*
> Sent by: belajar-excel@yahoogroups.com
>
> 03/09/2013 03:08 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Re: Mencegah bentrok data di
> File Sharing
>
>
>
>
>
> Errornya dibaris apa ?
>
> Wassalam,
> Kid.
>
> 2013/3/9 tioali2011 <*tioali2011@yahoo.co.id * <tioali2011@yahoo.co.id >>
>
>
> Dear Be-Exceller,
>
> Saya sudah melakukan seperti Mr. Kid sarankan, yaitu setelah open file
> target, saya save, tapi error.
>
> Yaitu Setelah Open wb target, saya lakukan code VBA :
> wbTarget.save
> wbTarget.Worksheet("January").select
> wbTarget.Range("A2").select
> ActiveSheet.paste.
>
> Tapi code VBA tsb gagal. Kira-kira kenapa yah ? Apakah ada alternatif lain
> bagaimana mencegah data bentrok di file sharing ? Seperti bila ada
> peringatan, maka secara otomatis Code VBA memerintahkan untuk klik tombol
> Accept Others dan membatalkan perintah berikutnya.
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>
Dim TgBrs As Integer
Dim wbTarget As Workbook
Dim cPath As String
Dim TinggiMaxBaris As Integer
dim wbkapp as workbook,rngSumber as range, rngTarget as range
set wbkapp=thisworkbook
cPath = "\&#
TgBrs = Range(Range(
set rngsumber=Range(
Set wbTarget = Workbooks.Open(
wbTarget.Activate
*wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas*
TinggiMaxBaris = Worksheets("
set rngtarget=Worksheet
*'ActiveWindow.
rngsumber.cut rngtarget
Application.
wbTarget.Close Savechanges:
Set wbTarget = Nothing
Wassalam,
Kid.
On Thu, Mar 14, 2013 at 9:10 AM, <tio.adjie@ptssb.
> **
>
>
>
> Ma'af sekali Be-Exceller, baru buka.
>
> Errornya berbunyi :
>
> Error run-time 1004
> Paste Methode of Worksheets class failed
>
> Ini code VBA yang gagal :
>
> Private Sub ExportData_Click(
> Dim TgBrs As Integer
> Dim wbTarget As Workbook
> Dim cPath As String
> Dim TinggiMaxBaris As Integer
> cPath = "\&#
> TgBrs = Range(Range(
> Range("
> Selection.Cut
> Set wbTarget = Workbooks.Open(
> wbTarget.Activate
> *wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas*
> TinggiMaxBaris = Worksheets("
> Worksheets("
> *ActiveWindow.
> Application.
> wbTarget.Close Savechanges:
> Set wbTarget = Nothing
> End Sub
>
> Kira-kira kenapa errornya dan bagaimana solusinya ?
>
> Terima kasih jawabannya. Semoga Tuhan membalas.
>
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" <mr.nmkid@gmail.
> Sent by: belajar-excel@
>
> 03/09/2013 03:08 PM
> Please respond to belajar-excel
>
> To: belajar-excel@
> cc:
> Subject: Re: [belajar-excel] Re: Mencegah bentrok data di
> File Sharing
>
>
>
>
>
> Errornya dibaris apa ?
>
> Wassalam,
> Kid.
>
> 2013/3/9 tioali2011 <*tioali2011@
>
>
> Dear Be-Exceller,
>
> Saya sudah melakukan seperti Mr. Kid sarankan, yaitu setelah open file
> target, saya save, tapi error.
>
> Yaitu Setelah Open wb target, saya lakukan code VBA :
> wbTarget.save
> wbTarget.Worksheet(
> wbTarget.Range(
> ActiveSheet.
>
> Tapi code VBA tsb gagal. Kira-kira kenapa yah ? Apakah ada alternatif lain
> bagaimana mencegah data bentrok di file sharing ? Seperti bila ada
> peringatan, maka secara otomatis Code VBA memerintahkan untuk klik tombol
> Accept Others dan membatalkan perintah berikutnya.
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>
Thu Mar 14, 2013 5:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Permasalahan utamanya adalah mendapatkan unique list dari product yang
memenuhi kriteria tertentu.
Jika ingin dengan array formula unique list, coba jalan-jalan
kesini<http://excel-mr-kid.blogspot.com/2011/03/formula-penyusun-data-unique-dan.html >
.
Nanti, pada bagian Match dibentuk :
Match( 1 , (Countif( running_reference_hasil , seluruh_data_product )=0) *
(seluruh_data_order_id = order_id_pilihan_user) , 0 )
Kemudian, kolom lainnya bisa menggunakan SumIFs.
File terlampir memanfaatkan pivot table sebagai pembentuk data unique per
order_id. Kemudian formula Index bisa digunakan untuk mengambil data dari
pivot table untuk menyusun daftar produk di tabel hasil. Kolom lainnya
menggunakan SumIFs berdasar 2 kriteria, yaitu order_id dan nama_produk
Wassalam,
Kid.
2013/3/14 Budi Setiawan <vxspidy@hotmail.com >
> **
>
>
>
> Dear Master,
>
> Lanjut dari permasalahan kemarin..
> Maaf saya kesulitan untuk mengirimkan file attachment nya
>
> Untuk data detail transaksi tersebut (Produk, Qty, Price, Total) saya
> menggunakan formula dibawah ini :
>
> =IFERROR(INDEX(tblDetails, SMALL(IF(tblDetails[Order
> ID]=rngOrderId,ROW(tblDetails[Order
> ID])-ROW(tblDetails[#Headers])),ROW(1:1)),MATCH(C$11, tblDetails[#Headers],
> 0)), "")
>
> Tapi dengan menggunakan formula ini, saya masih bingung jika ingin
> menggabungkan data detail transaksi yang sama menjadi satu baris..
>
> Mohon bantuannya..
>
> Thanx
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: hendrikkarnadi@yahoo.com
> Date: Wed, 13 Mar 2013 17:30:19 +0700
> Subject: RE: [belajar-excel] Penggabungan Detail Transaksi (Master-Detail)
>
>
>
>
> Sesuai saran mod, kelihatannya paling cepat dan fleksible pake pivot.
> Caranya:
> - sorot data pada pojok kiri atas
> - insert pivot, ok
> - atur field dan formatnya.
> Selesai.
>
> Salam,
> HK
>
> Sent from Samsung Mobile
>
> Sayyid <vxspidy@hotmail.com > wrote:
>
> Dear Master,
>
> Mau tanya gimana caranya menggabungkan data detail transaksi yang sama
> pada satu form. Contohnya :
>
> Data sebelum penggabungan :
>
> Order No : 1
> Tgl : 13-03-2013
>
> Produk | Qty | Price | Total
> Nissin 1 1.000.000 1.000.000
> Nissin 3 1.000.000 3.000.000
> Nissin 5 1.000.000 5.000.000
> Peugit 4 500.000 2.000.000
>
> Hasil yang diinginkan :
>
> Order No : 1
> Tgl : 13-03-2013
>
> Produk | Qty | Price | Total
> Nissin 9 1.000.000 9.000.000
> Peugit 4 500.000 2.000.000
>
> Mohon bantuannya untuk mengisi formula nya..
>
> Matur Thx
>
> Iwan
>
> --- Mods ---
> Ada baiknya disertakan workbook sebagai media penjelasan yang lebih detil
> dan sebagai media ujicoba menyusun solusi bagi BeExceller yang ingin
> membantu.
> Agar bisa posting disertai attachment, buka akun email pribadi Anda,
> compose email seperti Anda mengirim email sehari-hari ke seluruh rekan
> kerja atau client Anda (termasuk menyertakan attachment file).
> Mungkin mau coba Pivot Table lebih dulu.
> ------------
>
>
>
>
memenuhi kriteria tertentu.
Jika ingin dengan array formula unique list, coba jalan-jalan
kesini<http://excel-
.
Nanti, pada bagian Match dibentuk :
Match( 1 , (Countif( running_reference_
(seluruh_data_
Kemudian, kolom lainnya bisa menggunakan SumIFs.
File terlampir memanfaatkan pivot table sebagai pembentuk data unique per
order_id. Kemudian formula Index bisa digunakan untuk mengambil data dari
pivot table untuk menyusun daftar produk di tabel hasil. Kolom lainnya
menggunakan SumIFs berdasar 2 kriteria, yaitu order_id dan nama_produk
Wassalam,
Kid.
2013/3/14 Budi Setiawan <vxspidy@hotmail.
> **
>
>
>
> Dear Master,
>
> Lanjut dari permasalahan kemarin..
> Maaf saya kesulitan untuk mengirimkan file attachment nya
>
> Untuk data detail transaksi tersebut (Produk, Qty, Price, Total) saya
> menggunakan formula dibawah ini :
>
> =IFERROR(INDEX(
> ID]=rngOrderId,
> ID])-ROW(tblDetails
> 0)), ""
>
> Tapi dengan menggunakan formula ini, saya masih bingung jika ingin
> menggabungkan data detail transaksi yang sama menjadi satu baris..
>
> Mohon bantuannya..
>
> Thanx
>
>
> ------------
> To: belajar-excel@
> From: hendrikkarnadi@
> Date: Wed, 13 Mar 2013 17:30:19 +0700
> Subject: RE: [belajar-excel] Penggabungan Detail Transaksi (Master-Detail)
>
>
>
>
> Sesuai saran mod, kelihatannya paling cepat dan fleksible pake pivot.
> Caranya:
> - sorot data pada pojok kiri atas
> - insert pivot, ok
> - atur field dan formatnya.
> Selesai.
>
> Salam,
> HK
>
> Sent from Samsung Mobile
>
> Sayyid <vxspidy@hotmail.
>
> Dear Master,
>
> Mau tanya gimana caranya menggabungkan data detail transaksi yang sama
> pada satu form. Contohnya :
>
> Data sebelum penggabungan :
>
> Order No : 1
> Tgl : 13-03-2013
>
> Produk | Qty | Price | Total
> Nissin 1 1.000.000 1.000.000
> Nissin 3 1.000.000 3.000.000
> Nissin 5 1.000.000 5.000.000
> Peugit 4 500.000 2.000.000
>
> Hasil yang diinginkan :
>
> Order No : 1
> Tgl : 13-03-2013
>
> Produk | Qty | Price | Total
> Nissin 9 1.000.000 9.000.000
> Peugit 4 500.000 2.000.000
>
> Mohon bantuannya untuk mengisi formula nya..
>
> Matur Thx
>
> Iwan
>
> --- Mods ---
> Ada baiknya disertakan workbook sebagai media penjelasan yang lebih detil
> dan sebagai media ujicoba menyusun solusi bagi BeExceller yang ingin
> membantu.
> Agar bisa posting disertai attachment, buka akun email pribadi Anda,
> compose email seperti Anda mengirim email sehari-hari ke seluruh rekan
> kerja atau client Anda (termasuk menyertakan attachment file).
> Mungkin mau coba Pivot Table lebih dulu.
> ------------
>
>
>
>
Thu Mar 14, 2013 5:32 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Leonard,
Tidak memungkinkan jika secara langsung melalui properti LinkedCell dengan
cara apapun.
Bagaimana kalau linked cell hanya merujuk ke sebuah cell saja. Cell lain
yang ingin diubah menggunakan link formula saja.
Misal :
linked cell diatur untuk link ke cell A5 sebagai cell yang akan berubah
setiap kali si control diubah nilainya.
Kemudian pada cell G7 yang juga harus berubah setiap kali control diubah
nilainya, diisi dengan formula :
=A5
Wassalam,
Kid.
2013/3/14 leonard merari <ari140583@yahoo.com >
> **
>
>
>
> Dear Master,
>
> Menanyakan sedikit untuk file terlampir apakah option buttin dalam 1 sheet
> bisa mempengaruhi 2 cell berbeda? Serta apakah output nomer yang
> dikeluarkan pada cell yang dipengaruhi option button bisa diatur atau harus
> urut?
>
> Terima Kasih :)
>
>
>
Tidak memungkinkan jika secara langsung melalui properti LinkedCell dengan
cara apapun.
Bagaimana kalau linked cell hanya merujuk ke sebuah cell saja. Cell lain
yang ingin diubah menggunakan link formula saja.
Misal :
linked cell diatur untuk link ke cell A5 sebagai cell yang akan berubah
setiap kali si control diubah nilainya.
Kemudian pada cell G7 yang juga harus berubah setiap kali control diubah
nilainya, diisi dengan formula :
=A5
Wassalam,
Kid.
2013/3/14 leonard merari <ari140583@yahoo.
> **
>
>
>
> Dear Master,
>
> Menanyakan sedikit untuk file terlampir apakah option buttin dalam 1 sheet
> bisa mempengaruhi 2 cell berbeda? Serta apakah output nomer yang
> dikeluarkan pada cell yang dipengaruhi option button bisa diatur atau harus
> urut?
>
> Terima Kasih :)
>
>
>
Thu Mar 14, 2013 5:36 am (PDT) . Posted by:
"belajar excell"
Dear Para pakar Excell,
Mohon bantuannya lagi dong,saya lagi comot sana comot sini VBA untuk pivot, terutama untuk calculted itemnya.
Namun saya masih menemui kendala, kendala saya adalah :
1. bagaimana agar untuk periodenya yang akan di kurangin nnti di calculated itemnya bisa di ganti2 di cell di excell ?
VBA yang saya coba susun adalah lngsung seperti ini :
objField.CalculatedItems.Add "Formula", "='2'-'1'", True
Namun saya bingung untuk mengarahkan '2'-'1' ke cell
2. Bagimana agar Sigma Values nya itu bisa di pindahin ke column di bawah periode ?
soalnya sytax yang saya coba susun ini setelah di run macronya, sigma valuesnya masih berada di row di bawah code of region
Sekali lagi terima kasih byk untuk bantuannya
RS
Mohon bantuannya lagi dong,saya lagi comot sana comot sini VBA untuk pivot, terutama untuk calculted itemnya.
Namun saya masih menemui kendala, kendala saya adalah :
1. bagaimana agar untuk periodenya yang akan di kurangin nnti di calculated itemnya bisa di ganti2 di cell di excell ?
VBA yang saya coba susun adalah lngsung seperti ini :
objField.Calculated
Namun saya bingung untuk mengarahkan '2'-
2. Bagimana agar Sigma Values nya itu bisa di pindahin ke column di bawah periode ?
soalnya sytax yang saya coba susun ini setelah di run macronya, sigma valuesnya masih berada di row di bawah code of region
Sekali lagi terima kasih byk untuk bantuannya
RS
Thu Mar 14, 2013 5:41 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Mungkin penjelasan lebih detil tentang makna setiap kolom dalam setiap
sheet akan membantu BeExceller.
Jika ada ide awal dan contoh hasil pengerjaan manualnya yang disertakan
dalam file lampiran akan lebih membantu.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/14 Aisyah Zahrah <aisyah_zahrah@ymail.com >
> **
>
>
> Assalamu`alaikum Wr. Wb.
>
> Dear Excell-er
> Saya mau minta saran dan solusi
> bagaimana untuk membuat Format Analisa pengeluaran material dari GUDANG
> dengan ACTUAL pemakaian di PRODUKSI
>
> untuk lebih jelasnya File terlampir
>
> Atas bantuannya saya ucapkan Terima Kasih
>
> Wassalamu`alaikum Wr..Wb..
>
>
>
>
Mungkin penjelasan lebih detil tentang makna setiap kolom dalam setiap
sheet akan membantu BeExceller.
Jika ada ide awal dan contoh hasil pengerjaan manualnya yang disertakan
dalam file lampiran akan lebih membantu.
Wassalamu'
Kid.
2013/3/14 Aisyah Zahrah <aisyah_zahrah@
> **
>
>
> Assalamu`alaikum Wr. Wb.
>
> Dear Excell-er
> Saya mau minta saran dan solusi
> bagaimana untuk membuat Format Analisa pengeluaran material dari GUDANG
> dengan ACTUAL pemakaian di PRODUKSI
>
> untuk lebih jelasnya File terlampir
>
> Atas bantuannya saya ucapkan Terima Kasih
>
> Wassalamu`alaikum Wr..Wb..
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar