Kamis, 22 Agustus 2019

[belajar-excel] Digest Number 4826

13 Messages

Digest #4826
2b
Re: Share Aplikasi Laporan Keuangan VBA Excel by "hendrik karnadi" hendrikkarnadi
2e
Re: Share Aplikasi Laporan Keuangan VBA Excel by "hendrik karnadi" hendrikkarnadi
3
Kontrol inventory by "fadhil fachry gaming"
5
Pendalaman Power Query dan Power Pivot by "hendrik karnadi" hendrikkarnadi

Messages

Wed Aug 21, 2019 11:33 pm (PDT) . Posted by:

"Stephen Saputro"

Dear Rekan-rekan semuanya,

Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat untuk
menghapus row dengan 1 kriteria yang di input di sheet2 A1. Pertanyaan
saya, bagaimana script untuk menghapus row dengan banyak kriteria ?
kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30.
----------------------------------------------------------
Private Sub CommandButton1_Click()
Dim lastrow

lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row

For i = lastrow To 2 Step -1

If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1, 1).Value Then
ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
End If

Next i
End Sub

----------------------------------------------------------

Terima kasih

Thu Aug 22, 2019 6:53 am (PDT) . Posted by:

"Agus"

Dear Saputro,
kalau banyak kriteria dapat menggunakan dan, atau
kriteria 1 dan kerteria 2
kreteria 1 atau kriteria 2

If kriteria 1 and kriteria 2 Then
If kriteria 1 or kriteria 2 Then

Kira-kira begitulah ....
Regard
NangAgus
On 8/21/2019 11:30, Stephen Saputro stephensaputro@gmail.com
[belajar-excel] wrote:
> Dear Rekan-rekan semuanya,
>
> Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat
> untuk menghapus row dengan 1 kriteria yang di input di sheet2 A1.
> Pertanyaan saya, bagaimana script untuk menghapus row dengan banyak
> kriteria ? kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30.
> ----------------------------------------------------------
> Private Sub CommandButton1_Click()
> Dim lastrow
>
> lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row
>
> For i = lastrow To 2 Step -1
>
>     If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1,
> 1).Value Then
>         ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
>     End If
>
> Next i
> End Sub
>
> ----------------------------------------------------------
>
> Terima kasih
>

Thu Aug 22, 2019 8:09 am (PDT) . Posted by:

"Stephen Saputro"

Dear Rekan2 semuanya,

Barusan saya coba2 script di bawah ini, dan berhasil.. Hanya saja saya minta
masukan dari teman2 perihal script saya di bawah ini, apa lagi yang perlu
di tambahkan.

----------------------------------------------------------
Private Sub CommandButton1_Click()
On Error Resume Next

Dim lastrow
Dim C As Range

lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row

For i = lastrow To 2 Step -1
For Each C In Sheets(2).Range("A1:A50")

If ThisWorkbook.Sheets(1).Cells(i, 1) = C.Value Then
ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
End If

Next C
Next i

End Sub
----------------------------------------------------------

Terima kasih

On Thu, Aug 22, 2019 at 1:33 PM Stephen Saputro stephensaputro@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Dear Rekan-rekan semuanya,
>
> Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat untuk
> menghapus row dengan 1 kriteria yang di input di sheet2 A1. Pertanyaan
> saya, bagaimana script untuk menghapus row dengan banyak kriteria ?
> kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30.
>
> ----------------------------------------------------------
> Private Sub CommandButton1_Click()
> Dim lastrow
>
> lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row
>
> For i = lastrow To 2 Step -1
>
> If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1, 1).Value
> Then
> ThisWorkbook.Sheets(1).Rows(i)..EntireRow.Delete
> End If
>
> Next i
> End Sub
>
>
> ----------------------------------------------------------
>
> Terima kasih
>
>
>

Thu Aug 22, 2019 6:42 pm (PDT) . Posted by:

"Stephen Saputro"

Dear Pak Agus,

Terima kasih untuk masukannya, kalau misalkan yang di hapus ada ratusan
ribu row bagaimana ya Pak ? Saya coba seript terakhir yang saya kirim untuk
ratusan ribu row malah gak bisa.hehehe, kalau hanya ratusan row masih bisa
script di jalan kan.

Mohon bantuan nya ya

On Thu, Aug 22, 2019 at 8:53 PM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Dear Saputro,
> kalau banyak kriteria dapat menggunakan dan, atau
> kriteria 1 dan kerteria 2
> kreteria 1 atau kriteria 2
>
> If kriteria 1 and kriteria 2 Then
> If kriteria 1 or kriteria 2 Then
>
> Kira-kira begitulah ....
> Regard
> NangAgus
> On 8/21/2019 11:30, Stephen Saputro stephensaputro@gmail.com
> [belajar-excel] wrote:
>
>
> Dear Rekan-rekan semuanya,
>
> Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat untuk
> menghapus row dengan 1 kriteria yang di input di sheet2 A1. Pertanyaan
> saya, bagaimana script untuk menghapus row dengan banyak kriteria ?
> kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30..
>
> ----------------------------------------------------------
> Private Sub CommandButton1_Click()
> Dim lastrow
>
> lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row
>
> For i = lastrow To 2 Step -1
>
> If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1, 1).Value
> Then
> ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
> End If
>
> Next i
> End Sub
>
>
> ----------------------------------------------------------
>
> Terima kasih
>
>
>
>

Wed Aug 21, 2019 11:52 pm (PDT) . Posted by:

y.roni35

Dear All,


Bagi yang punya Aplikasi Laporan Keuangan VBA Excel.

Share dong. Terimakasih






Regards,
Roni

Thu Aug 22, 2019 1:00 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Sudah saya share melalui dropbox (3 buku, msg2 ada Cd bonus aplikasinya)Jangan lupa instal dulu dropboxnya.
Salam,HK

Pada Kamis, 22 Agustus 2019 13.53.06 WIB, y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Dear All,

Bagi yang punya  Aplikasi Laporan Keuangan VBA Excel.

Share dong. Terimakasih

Regards,

Roni

Thu Aug 22, 2019 8:09 am (PDT) . Posted by:

y.roni35

Dear Mas Hendrik,

Saya sudah download, Terimaksih.


Dear All,


Mungkin ada yang lain dengan 1 Workbook aja namun sudah complete.
Terimakasih




Regards,
Roni

Thu Aug 22, 2019 8:29 am (PDT) . Posted by:

y.roni35

Dear Mas Hendrik,

Caranya bagaimana downloadnya?
Terimakasih




REgards,
ROni

Thu Aug 22, 2019 7:54 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Instal dropboxnya lebih dahulu.
Pada Kamis, 22 Agustus 2019 22.29.52 WIB, y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 
Dear Mas Hendrik,

Caranya bagaimana downloadnya?Terimakasih

REgards,ROni

Thu Aug 22, 2019 8:09 am (PDT) . Posted by:

"fadhil fachry gaming"

Selamat malam master2 excel dan rekan exceler..

Adakah contoh aplikasi untuk mengontrol persediaan (spt kartu stok barang
gudang) yg dpt memonitor in out persediaan. Dalam bentuk excel atau VBA.

Terima kasih atas bantuan

Thu Aug 22, 2019 8:10 am (PDT) . Posted by:

"HAIRUL ALAM"

Salam rekan - rekan BeExcel
semoga selalu dalam keadaan sehat wal,afiat
Terlampir tampilan excel input dan hasil, adakah cara dengan menggunakan rumus dengan hasil dari input selain menggunakan pivot table
Maaf dan Terimaksih
AssalamualaikumHairul Alam

Thu Aug 22, 2019 7:22 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear BeExcel,
Selamat pagi teman - teman Be Excel.
Dalam tugas sehari - hari sering kita dihadapkan atau harus mengelola database dalam jumlah yang besar. Mngkin kita tahu atau pernah mendengar bahwa Excel telah menyediakan toolsnya untuk keperluan tersebut, berupa Power Query dan Power Pivot.Namun sayangnya pemahaman sebagian dari kita (termasuk saya) belum cukup mendalam sehingga belum dapat memanfaatkan tools tersebut secara maksimal.
Untuk itu, saya mohon bantuan dan telah menghubungi Mr. Kid guna memberikan pencerahan/pendalaman khusus mengenai kedua topik tersebut. Bagi teman - taman yang berminat sila menghubungi saya di alamat email hendrikkarnadi@yahoo.com untuk kita koordinasikan (diharapkan sebelum akhir bulan Agustus ini).
Rencananya akan diadakan di Hotel Grand Tropik, Jl. Letjen S. Parman (sebelah Universitas Tarumanagara pada hari Sabtu atau Minggu selama 1 hari dari jam 8 - 17 (waktu dan biaya akan ditentukan kemudian).
Agar tercapai skala ekonomis, diharapkan target peserta sekitar 40 orang.
Demikian informasi dari saya, dan sebelumnya saya mengucapkan terima kasih kepada Mr. Kid atas kesediaan beliau menyisihkan waktu disela- sela kesibukannya untuk memberikan pencerahan kepada kita semua.
Salam,HK

Thu Aug 22, 2019 9:10 pm (PDT) . Posted by:

y.roni35

Dear All,


Mohon dibantu untuk Double Klik Path untuk 2 Cell.
Pada D5 didouble klik untuk mendapatkan path bisa. Mohon dibantu untuk script pada E5?
Terlampir Filenya
Terimakasih






Regards,
Roni
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 22.19

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)