15 New Messages
Digest #2106
8a
Re: Sumif dua kriteria dengan range kriteria di kolom yang sama by "Mr. Kid" nmkid.family@ymail.com
Messages
Thu Feb 21, 2013 1:44 am (PST) . Posted by:
"Bagus" bagus4bls
Wa'alaykum salam warohmatullohi wabarokatuhu
File terlampir menggunakan fungsi edate, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: BhoneX
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 21, 2013 1:38 PM
Subject: [belajar-excel] penjumlahan Date
Assalamu'alaikum
Mohon bantuannya saya membuat penambahan tahun dan bulan
ada beberapa yang berdeser bulannya tidak sama dengan yang lainya
ketika tanggalnya mendekati akhir bulan
terima kasih
File terlampir menggunakan fungsi edate, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: BhoneX
To: belajar-excel@
Sent: Thursday, February 21, 2013 1:38 PM
Subject: [belajar-excel] penjumlahan Date
Assalamu'
Mohon bantuannya saya membuat penambahan tahun dan bulan
ada beberapa yang berdeser bulannya tidak sama dengan yang lainya
ketika tanggalnya mendekati akhir bulan
terima kasih
Thu Feb 21, 2013 1:45 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Katanya momods gini bu :
--- Mods ---
Cobo ikuti thread :
http://tech.groups.yahoo.com/group/belajar-excel/message/16097
-> kata Kid :: ini linknya
Bisa juga dilihat di (bisa unduh file lampiran) :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-User-Login-ctv-Login-v2-xls-First-In-Last-Row-td5537755.html
-> kata Kid :: ini linknya
------------
Wassalam,
Kid.
2013/2/21 Dunia Naana dunia.naana@yahoo.com >
> **
>
>
> link nya yang mana ya, bu jan
>
> --- Mods ---
> Mungkin buka emailnya langsung dari website milis.
> Coba lihat Inbox akun email pribadi Anda. Buka email dari milis dengan
> subject topik ini.
> Kemudian, arahkan mouse ke teks yang diwarna biru dan atau di garis bawah
> dalam body text yang ada.
> ------------
>
> --- On Wed, 2/20/13, Jan Raisin miss.jan.raisin@gmail.com > wrote:
>
> From: Jan Raisin miss.jan.raisin@gmail.com >
> Subject: Re: [belajar-excel] cara membuat login khusus admin dan user
> tersendiri
> To: belajar-excel@yahoogroups.com
> Date: Wednesday, February 20, 2013, 6:08 PM
>
>
>
>
> coba buka dulu dan pelajari link yang sudah diberikan oleh om momod, nanti
> progressnya dishare lagi di sini.
> -Jan Raisin-
>
> Pada 21 Februari 2013 08.47, s. munawaroh munawaroh.gp@gmail.com > menulis:
>
>
>
> mau tanya nih,.gimana caranya kita membuat login khusus untuk admin dan
> user tersendiri, jadi fungsinya berbeda-beda tetapi dalam 1 dokumen,..
> mohon bantuanya! trimakasih
>
>
>
--- Mods ---
Cobo ikuti thread :
http://tech.
-> kata Kid :: ini linknya
Bisa juga dilihat di (bisa unduh file lampiran) :
http://milis-
-> kata Kid :: ini linknya
------------
Wassalam,
Kid.
2013/2/21 Dunia Naana dunia.naana@
> **
>
>
> link nya yang mana ya, bu jan
>
> --- Mods ---
> Mungkin buka emailnya langsung dari website milis.
> Coba lihat Inbox akun email pribadi Anda. Buka email dari milis dengan
> subject topik ini.
> Kemudian, arahkan mouse ke teks yang diwarna biru dan atau di garis bawah
> dalam body text yang ada.
> ------------
>
> --- On Wed, 2/20/13, Jan Raisin miss.jan.raisin@
>
> From: Jan Raisin miss.jan.raisin@
> Subject: Re: [belajar-excel] cara membuat login khusus admin dan user
> tersendiri
> To: belajar-excel@
> Date: Wednesday, February 20, 2013, 6:08 PM
>
>
>
>
> coba buka dulu dan pelajari link yang sudah diberikan oleh om momod, nanti
> progressnya dishare lagi di sini.
> -Jan Raisin-
>
> Pada 21 Februari 2013 08.47, s. munawaroh munawaroh.gp@
>
>
>
> mau tanya nih,.gimana caranya kita membuat login khusus untuk admin dan
> user tersendiri, jadi fungsinya berbeda-beda tetapi dalam 1 dokumen,..
> mohon bantuanya! trimakasih
>
>
>
Thu Feb 21, 2013 1:52 am (PST) . Posted by:
"Jan Raisin"
Hai Eka,
coba gunakan fungsi SumIf, syntaxnya sbb:
=SumIf( range_kriteria , kriterianya , range_yang_mau_dijumlah )
tulis di cell D8 dan copy ke kanan dan ke bawah
=SumIf( Sheet1!$C$8:$C$42 , Sheet2!$C8 , Sheet1!D$8:D$42 )
hati-hati terhadap perbedaan penulisan huruf yang akan mempengaruhi hasil
yang diinginkan
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 09.51, eka duma eka_ses@yahoo.com > menulis:
> **
>
>
> Dear BeExceller,
>
> Salam kenal, saya masih pemula banget,
>
> mau tanya cara menumlahkan dari sheet 1 ke sheet 2, caranya gimana?
>
> saya sudah gunakan = (IF dan bukan sheet 1, ttp ga bisa.
>
> mohon petunjukknya..filenya saya lampirkan.
>
> Thanks,
> Eka.
>
>
>
coba gunakan fungsi SumIf, syntaxnya sbb:
=SumIf( range_kriteria , kriterianya , range_yang_mau_
tulis di cell D8 dan copy ke kanan dan ke bawah
=SumIf( Sheet1!$C$8:
hati-hati terhadap perbedaan penulisan huruf yang akan mempengaruhi hasil
yang diinginkan
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 09.51, eka duma eka_ses@yahoo.
> **
>
>
> Dear BeExceller,
>
> Salam kenal, saya masih pemula banget,
>
> mau tanya cara menumlahkan dari sheet 1 ke sheet 2, caranya gimana?
>
> saya sudah gunakan = (IF dan bukan sheet 1, ttp ga bisa.
>
> mohon petunjukknya.
>
> Thanks,
> Eka.
>
>
>
Thu Feb 21, 2013 1:53 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ganti yang hapus data menjadi seperti ini :
Sub HAPUS_DATA()
'
' HAPUS_DATA Macro
' HAPUS DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.Activate
Sheet3.Range("A9:A2000").Clear
Sheet3.Range("P10:AR2000").Clear
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Untuk copy :
Sub COPY_DATA()
'
' COPY_DATA Macro
' COPY DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.Activate
Sheet3.Range("A7").Copy Sheet3.Range("A8:A2000")
Sheet3.Range("P9:AR9").Copy Sheet3.Range("P10:AR2000")
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Wassalam,
Kid.
2013/2/21 Yan Novianto yan.novianto@yahoo.com >
> **
>
>
> Salam Mr.Kid dan all
>
> berikut saya kirimkan ulang, kali ini saya coba untuk buat file yang baru,
>
> akan tetapi hasilnya tetap sama,
>
> saat paste nya tidak samapai ke baris 2000 kemungkinan masih aman, tapi
> jika sampai itu terjadi error seperti dulu
>
> dan saat saya debug, maka beberapa saat program excel minta di close
> seperti file terlampir
>
> mohon di bantu
>
> terimakasih
> ------------------------------
> *Dari:* Mr. Kid mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 12 Februari 2013 21:23
>
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Jika dengan script yang ada dalam file lampiran tempo lalu tanpa ada
> tambahan apapun, maka kemungkinan besar tidak error.
> Jika ada error, mesti ada script yang lain bunyinya.
> Coba run lagi dan ketika error tekan debug. Nanti akan muncul baris yang
> di kuning. Screenshot berjejeran dengan worksheetnya dan lampirkan.
> Mungkin hal ini akan lebih memudahkan dalam mencari penyebabnya.
>
> Wassalam,
> Kid.
>
> 2013/2/12 Yan Novianto yan.novianto@yahoo.com >
>
> **
>
> Miss Jan,
>
> keliatannya tetap saja tidak bisa jalan walaupun sudah saya coba pakai
> nama sheet seperti yang di sarankan
>
> kira kira ada saran yang lain ?
>
> saya tunggu,
>
> terimakasih
>
>
> ------------------------------
> *Dari:* Jan Raisin miss.jan.raisin@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 12 Februari 2013 11:44
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Semua berjalan normal di komputer Jan,
>
> tetapi coba cara berikut, mungkin berguna:
>
> sebelum range("range_sekian_sampai_dengan_range_sekian").select
> tambahkan
> sheets("nama_sheetnya")
>
> jadi hasil akhirnya adalah:
>
> sheets("nama_sheetnya").range("range_sekian_sampai_dengan_range_sekian
> ").select
>
> wassalam,
>
> -Miss Jan Raisin-
>
> Pada 12 Februari 2013 09.33, Yan Novianto yan.novianto@yahoo.com >menulis:
>
> **
>
> Salam be-exeller,
>
> Saya mau belajar soal macro
> tapi saat ini saya belajarnya di mulai dari record macro
> kemudian saya edit edit dikit dikit :)
> tapi sayangnya saat macro yang saya edit tadi saya jalankan muncul
> peringatan seperti di gambar
> akan tetapi saat saya jalan kan pada lembar kosong "Hapus_semua" atau pun
> macro paste tersebut berjalan tidak ada masalah atau peringatan seperti
> pada lampiran
> Kira kira mengapa bisa terjadi kendala seperti ini ya ?
> mohon di bantu
>
> terimakasih
>
>
>
>
>
>
>
>
>
Sub HAPUS_DATA()
'
' HAPUS_DATA Macro
' HAPUS DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.
Sheet3.Range(
Sheet3.Range(
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Untuk copy :
Sub COPY_DATA()
'
' COPY_DATA Macro
' COPY DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.
Sheet3.Range(
Sheet3.Range(
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Wassalam,
Kid.
2013/2/21 Yan Novianto yan.novianto@
> **
>
>
> Salam Mr.Kid dan all
>
> berikut saya kirimkan ulang, kali ini saya coba untuk buat file yang baru,
>
> akan tetapi hasilnya tetap sama,
>
> saat paste nya tidak samapai ke baris 2000 kemungkinan masih aman, tapi
> jika sampai itu terjadi error seperti dulu
>
> dan saat saya debug, maka beberapa saat program excel minta di close
> seperti file terlampir
>
> mohon di bantu
>
> terimakasih
> ------------
> *Dari:* Mr. Kid mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Selasa, 12 Februari 2013 21:23
>
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Jika dengan script yang ada dalam file lampiran tempo lalu tanpa ada
> tambahan apapun, maka kemungkinan besar tidak error.
> Jika ada error, mesti ada script yang lain bunyinya.
> Coba run lagi dan ketika error tekan debug. Nanti akan muncul baris yang
> di kuning. Screenshot berjejeran dengan worksheetnya dan lampirkan.
> Mungkin hal ini akan lebih memudahkan dalam mencari penyebabnya.
>
> Wassalam,
> Kid.
>
> 2013/2/12 Yan Novianto yan.novianto@
>
> **
>
> Miss Jan,
>
> keliatannya tetap saja tidak bisa jalan walaupun sudah saya coba pakai
> nama sheet seperti yang di sarankan
>
> kira kira ada saran yang lain ?
>
> saya tunggu,
>
> terimakasih
>
>
> ------------
> *Dari:* Jan Raisin miss.jan.raisin@
> *Kepada:* belajar-excel@
> *Dikirim:* Selasa, 12 Februari 2013 11:44
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Semua berjalan normal di komputer Jan,
>
> tetapi coba cara berikut, mungkin berguna:
>
> sebelum range("
> tambahkan
> sheets("
>
> jadi hasil akhirnya adalah:
>
> sheets("
> ").select
>
> wassalam,
>
> -Miss Jan Raisin-
>
> Pada 12 Februari 2013 09.33, Yan Novianto yan.novianto@
>
> **
>
> Salam be-exeller,
>
> Saya mau belajar soal macro
> tapi saat ini saya belajarnya di mulai dari record macro
> kemudian saya edit edit dikit dikit :)
> tapi sayangnya saat macro yang saya edit tadi saya jalankan muncul
> peringatan seperti di gambar
> akan tetapi saat saya jalan kan pada lembar kosong "Hapus_
> macro paste tersebut berjalan tidak ada masalah atau peringatan seperti
> pada lampiran
> Kira kira mengapa bisa terjadi kendala seperti ini ya ?
> mohon di bantu
>
> terimakasih
>
>
>
>
>
>
>
>
>
Thu Feb 21, 2013 2:04 am (PST) . Posted by:
"Aden S" adendum_81
Terima kasih atas pencerahannya miss Jan,
Berjalan sesuai dengan yang di inginkan
________________________________
From: Jan Raisin miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 21, 2013 4:25 PM
Subject: Re: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
Coba di cell E5 diisi dengan formula berikut lalu dicopy ke kanan dan ke bawah
=SumProduct((SDY!$C$5:$C$7=resume!$D5)*(SDY!$E$4:$F$4=resume!E$4)*SDY!$E$5:$F$7)
Wassalam,
-Miss Jan Raisin-
Pada 21 Februari 2013 14.57, Aden S adendum_81@yahoo.com > menulis:
>
>Dear Excellers,
>
>Mohon bantuan untuk membuat rumus seperti yang terlampir di email ini, dimana ada terdiri dari 2 sheet, masing-2 punya harga berdasar IDR dan USD, ketika saya membuat resume dengan vlookup saya bermaksud membuat rumus yang sudah mengakomodir masing2 vlookup, dimana ketika dia berada di IDR maka USD nya dalam keadaan kosong, ataupun sebaliknya kecuali di dua2nya (IDR-USD) ada harganya.
>
>Terima kasih atas bantuannya.
>
>Salam Hangat
>
>Aden
Berjalan sesuai dengan yang di inginkan
____________
From: Jan Raisin miss.jan.raisin@
To: belajar-excel@
Sent: Thursday, February 21, 2013 4:25 PM
Subject: Re: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
Coba di cell E5 diisi dengan formula berikut lalu dicopy ke kanan dan ke bawah
=SumProduct(
Wassalam,
-Miss Jan Raisin-
Pada 21 Februari 2013 14.57, Aden S adendum_81@yahoo.
>
>Dear Excellers,
>
>Mohon bantuan untuk membuat rumus seperti yang terlampir di email ini, dimana ada terdiri dari 2 sheet, masing-2 punya harga berdasar IDR dan USD, ketika saya membuat resume dengan vlookup saya bermaksud membuat rumus yang sudah mengakomodir masing2 vlookup, dimana ketika dia berada di IDR maka USD nya dalam keadaan kosong, ataupun sebaliknya kecuali di dua2nya (IDR-USD) ada harganya.
>
>Terima kasih atas bantuannya.
>
>Salam Hangat
>
>Aden
Thu Feb 21, 2013 2:04 am (PST) . Posted by:
"Aden S" adendum_81
Dear All,
Terima kasih pencerahanya, berjalan sesuai yang di harapkan dengan berbagai metode
Salam Hangat
Aden
________________________________
From: Bagus bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 21, 2013 4:35 PM
Subject: Re: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
Dear Aden;
File terlampir dengan beberapa cara, semoga sesuai
harapan
Wassalam
~ Bagus~
----- Original Message -----
>From: Aden S
>To: excel
>Sent: Thursday, February 21, 2013 2:57 PM
>Subject: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
>
>
>Dear Excellers,
>
>Mohon bantuan untuk membuat rumus seperti yang
terlampir di email ini, dimana ada terdiri dari 2 sheet, masing-2 punya harga
berdasar IDR dan USD, ketika saya membuat resume dengan vlookup saya bermaksud
membuat rumus yang sudah mengakomodir masing2 vlookup, dimana ketika dia
berada di IDR maka USD nya dalam keadaan kosong, ataupun sebaliknya kecuali di
dua2nya (IDR-USD) ada harganya.
>
>Terima kasih atas
bantuannya.
>
>Salam Hangat
>
>Aden
Terima kasih pencerahanya, berjalan sesuai yang di harapkan dengan berbagai metode
Salam Hangat
Aden
____________
From: Bagus bagus@kingjim.
To: belajar-excel@
Sent: Thursday, February 21, 2013 4:35 PM
Subject: Re: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
Dear Aden;
File terlampir dengan beberapa cara, semoga sesuai
harapan
Wassalam
~ Bagus~
----- Original Message -----
>From: Aden S
>To: excel
>Sent: Thursday, February 21, 2013 2:57 PM
>Subject: [belajar-excel] tanya rumus : vlookup untuk 2 kolom
>
>
>Dear Excellers,
>
>Mohon bantuan untuk membuat rumus seperti yang
terlampir di email ini, dimana ada terdiri dari 2 sheet, masing-2 punya harga
berdasar IDR dan USD, ketika saya membuat resume dengan vlookup saya bermaksud
membuat rumus yang sudah mengakomodir masing2 vlookup, dimana ketika dia
berada di IDR maka USD nya dalam keadaan kosong, ataupun sebaliknya kecuali di
dua2nya (IDR-USD) ada harganya.
>
>Terima kasih atas
bantuannya.
>
>Salam Hangat
>
>Aden
Thu Feb 21, 2013 2:13 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba buka kolom B yang dihide.
Sorot/perpanjang ke bawah sesuai kebutuhan, kemudian tekan tbl Ctrl Shift dan Enter sekaligus (array formula).
Copy No Urut 15 kolom C s/d F ke bawah sesuai kebutuhan.
Salam,
Hendrik Karnadi
________________________________
From: s. munawaroh munawaroh.gp@gmail.com >
To: belajar-excel belajar-excel@yahoogroups.com >
Sent: Thursday, 21 February 2013, 12:26
Subject: [belajar-excel] menindak lanjuti reminder ulta yang dulu
dulu pernah sy download reminder untuk ulta yang dibuat ctv,
kalau seandainya saya ingin menambahkan baris yang di situ hanya ada 15 pada displaysheetmenjadi 20/30/lebih bgaimana caranya ??
coding mana yang harus diubah,.. karena banyk nama2 yang ingin saya cantumkan , minimal pemberitahuan sebelum 30 hari ultah,.. mohon bantuanya... terimakasih
Sorot/perpanjang ke bawah sesuai kebutuhan, kemudian tekan tbl Ctrl Shift dan Enter sekaligus (array formula).
Copy No Urut 15 kolom C s/d F ke bawah sesuai kebutuhan.
Salam,
Hendrik Karnadi
____________
From: s. munawaroh munawaroh.gp@
To: belajar-excel belajar-excel@
Sent: Thursday, 21 February 2013, 12:26
Subject: [belajar-excel] menindak lanjuti reminder ulta yang dulu
dulu pernah sy download reminder untuk ulta yang dibuat ctv,
kalau seandainya saya ingin menambahkan baris yang di situ hanya ada 15 pada displaysheet
coding mana yang harus diubah,.. karena banyk nama2 yang ingin saya cantumkan , minimal pemberitahuan sebelum 30 hari ultah,.. mohon bantuanya... terimakasih
Thu Feb 21, 2013 2:21 am (PST) . Posted by:
"Jan Raisin"
ini masih nyambung dengan yang tadi ya?
kalo begitu coba script berikut ini:
Option Explicit
Sub GantiNama()
Dim iCol As Integer, i As Integer
Dim sTxt As String
iCol = Cells(3, Columns.Count).End(xlToLeft).Column
For i = 4 To iCol
sTxt = Cells(3, i).Value
Select Case sTxt
Case "W1"
Cells(3, i).Value = "Minggu ke satu"
Case "W2"
Cells(3, i).Value = "Minggu ke dua"
Case "W3"
Cells(3, i).Value = "Minggu ke tiga"
End Select
Next i
MsgBox ("OK")
End Sub
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 11.42, tio.adjie@ptssb.co.id > menulis:
> **
>
>
>
> Terima kasih miss Jan, Saya mau ganti isi textnya jadi dengan pakai code
> VBA ini, tapi kok gak berhasil yah ?
>
> Dim MyWeekku As Variant
> For Each MyWeekku In Selection
> If MyWeekku.Value = "W1" Then
> MyWeekku.Value = "Minggu ke-satu"
> ElseIf MyWeekku.Value = "W2" Then
> MyWeekku.Value = "Minggu ke-dua"
> ElseIf MyWeekku.Value = "W3" Then
> MyWeekku.Value = "Minggu ke-tiga"
> Else
> MsgBox ("OK")
> End If
> Next MyWeekku
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
> *Jan Raisin miss.jan.raisin@gmail.com >*
> Sent by: belajar-excel@yahoogroups.com
>
> 02/21/2013 09:02 AM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Memblock data yang di merge
>
>
>
>
>
> Wa'alaikumsalam wr. wb.,
>
> coba script berikut:
>
>
> Range(Cells(3, 4), Cells(3, Columns.Count).End(xlToLeft)).Select
>
>
> Wassalamu'alaikum wr. wb.,
>
> -Miss Jan Raisin-
>
>
> Pada 21 Februari 2013 08.14, *tio.adjie@ptssb.co.id *tio.adjie@ptssb.co.id >>
> menulis:
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, bagaimana memblock data yang di merge. Di picture di
> bawah, ada 3 range yang diblock yaitu W1, W2, W3.
>
> Saya pakai formula :selection,selection.end(xlToRight) kok gak berhasil
> yah ?
>
> Saya tidak mau pakai currentregion karena baris atas dan bawahnya ada
> data.
>
> Ini datanya dinamis, bisa 4 range yang di merge atau 5, jadi tidak tentu.
>
>
>
>
> Terima kasih jawabannya.
>
> Wassalam,
> Tio
>
>
>
>
>
kalo begitu coba script berikut ini:
Option Explicit
Sub GantiNama()
Dim iCol As Integer, i As Integer
Dim sTxt As String
iCol = Cells(3, Columns.Count)
For i = 4 To iCol
sTxt = Cells(3, i).Value
Select Case sTxt
Case "W1"
Cells(3, i).Value = "Minggu ke satu"
Case "W2"
Cells(3, i).Value = "Minggu ke dua"
Case "W3"
Cells(3, i).Value = "Minggu ke tiga"
End Select
Next i
MsgBox ("OK"
End Sub
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 11.42, tio.adjie@ptssb.
> **
>
>
>
> Terima kasih miss Jan, Saya mau ganti isi textnya jadi dengan pakai code
> VBA ini, tapi kok gak berhasil yah ?
>
> Dim MyWeekku As Variant
> For Each MyWeekku In Selection
> If MyWeekku.Value = "W1" Then
> MyWeekku.Value = "Minggu ke-satu"
> ElseIf MyWeekku.Value = "W2" Then
> MyWeekku.Value = "Minggu ke-dua"
> ElseIf MyWeekku.Value = "W3" Then
> MyWeekku.Value = "Minggu ke-tiga"
> Else
> MsgBox ("OK"
> End If
> Next MyWeekku
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
> *Jan Raisin miss.jan.raisin@
> Sent by: belajar-excel@
>
> 02/21/2013 09:02 AM
> Please respond to belajar-excel
>
> To: belajar-excel@
> cc:
> Subject: Re: [belajar-excel] Memblock data yang di merge
>
>
>
>
>
> Wa'alaikumsalam wr. wb.,
>
> coba script berikut:
>
>
> Range(Cells(
>
>
> Wassalamu'
>
> -Miss Jan Raisin-
>
>
> Pada 21 Februari 2013 08.14, *tio.adjie@ptssb.
> menulis:
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, bagaimana memblock data yang di merge. Di picture di
> bawah, ada 3 range yang diblock yaitu W1, W2, W3.
>
> Saya pakai formula :selection,selectio
> yah ?
>
> Saya tidak mau pakai currentregion karena baris atas dan bawahnya ada
> data.
>
> Ini datanya dinamis, bisa 4 range yang di merge atau 5, jadi tidak tentu.
>
>
>
>
> Terima kasih jawabannya.
>
> Wassalam,
> Tio
>
>
>
>
>
Thu Feb 21, 2013 2:22 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Thu Feb 21, 2013 3:27 am (PST) . Posted by:
"Bagus" bagus4bls
Wa'alaykum salam warohmatullohi wabarokatuhu
File terlampir menggunakan sumproduct, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Dunia Naana
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 21, 2013 9:28 AM
Subject: [belajar-excel] Sumif dua kriteria dengan range kriteria di kolom yang sama
Assalamualaikum All.
saya mau tanya untuk melakukan sumifs dua kriteria dalam range kriteria yang sama bagaimana jurusnya ya...
Saya memiliki sumber data seperti gambar dibawah ini
Pada gambar dibawah misalnya, saya akan menjumlahkan nilai nominal dari BARANG dengan criteria "GULING", seri dengan criteria "IF", barang = Guling, CODE dengan criteria "CN", maka saya menggunakan fungsi sumifs sebagai berikut.
=SUMIFS(SUMBER!$E$3:$E$30;SUMBER!$D$3:$D$30;"CN";SUMBER!$B$3:$B$30;"IF";SUMBER!$C$3:$C$30;$A4)
Sampai pada criteria terakhir "Telpon" di kolom barang, maka ketika saya jumlahkan akan mendapatkan nilai yang sama dengan memfilter seri = IF, code = CN (seperti contoh yang saya lampirkan di file sumifs.xlsx).
Yang menjadi masalah adalah ketika saya ingin mencari nilai nominal dari BARANG dengan criteria "GULING", seri dengan criteria "IF dan SP" dan CODE dengan criteria "CN", saya mencoba menggunakan fungsi seperti dibawah ini;
=IF(AND(SUMBER!$B$3:$B$30="IF";SUMBER!$B$3:$B$30="SP");SUMIFS(SUMBER!$E$3:$E$30;SUMBER!$D$3:$D$30;"CN";SUMBER!$C$3:$C$30;$A4);0)
Harapannya jika serinya memiliki criteria IF dan SP saja, maka akan menjumlahkan nominal pada barang dengan criteria guling, ternyata formula yang saya buat tidak bias/ tidak sama dengan filter seri = IF dan SP, barang = Guling, code = CN.
Pertanyaan: apakan memang kasus saya diatas tidak bisa di selesaikan dengan menggunakan fungus sumifs seperti yang saya buat, jika tidak bisa, mohon bantuannya untuk saya mencoba menggunakan formula yang lain atau fungsi macro.
saya sampaikan juga lampiran file excel yang sudah saya coba
Terima kasih.
Nana
File terlampir menggunakan sumproduct, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Dunia Naana
To: belajar-excel@
Sent: Thursday, February 21, 2013 9:28 AM
Subject: [belajar-excel] Sumif dua kriteria dengan range kriteria di kolom yang sama
Assalamualaikum All.
saya mau tanya untuk melakukan sumifs dua kriteria dalam range kriteria yang sama bagaimana jurusnya ya...
Saya memiliki sumber data seperti gambar dibawah ini
Pada gambar dibawah misalnya, saya akan menjumlahkan nilai nominal dari BARANG dengan criteria "GULING", seri dengan criteria "IF", barang = Guling, CODE dengan criteria "CN", maka saya menggunakan fungsi sumifs sebagai berikut.
=SUMIFS(SUMBER!
Sampai pada criteria terakhir "Telpon" di kolom barang, maka ketika saya jumlahkan akan mendapatkan nilai yang sama dengan memfilter seri = IF, code = CN (seperti contoh yang saya lampirkan di file sumifs.xlsx)
Yang menjadi masalah adalah ketika saya ingin mencari nilai nominal dari BARANG dengan criteria "GULING", seri dengan criteria "IF dan SP" dan CODE dengan criteria "CN", saya mencoba menggunakan fungsi seperti dibawah ini;
=IF(AND(SUMBER!
Harapannya jika serinya memiliki criteria IF dan SP saja, maka akan menjumlahkan nominal pada barang dengan criteria guling, ternyata formula yang saya buat tidak bias/ tidak sama dengan filter seri = IF dan SP, barang = Guling, code = CN.
Pertanyaan: apakan memang kasus saya diatas tidak bisa di selesaikan dengan menggunakan fungus sumifs seperti yang saya buat, jika tidak bisa, mohon bantuannya untuk saya mencoba menggunakan formula yang lain atau fungsi macro.
saya sampaikan juga lampiran file excel yang sudah saya coba
Terima kasih.
Nana
Thu Feb 21, 2013 2:26 am (PST) . Posted by:
"Jan Raisin"
coba dishare ke sini sampel workbooknya.. dikasih penjelasan maunya seperti
apa
mungkin akan sedikit memperjelas BeExceler yang ingin berbagi solusi
Wassalamu'alaikum wr. wb.,
-Miss Jan Raisin-
Pada 21 Februari 2013 15.28, tio.adjie@ptssb.co.id > menulis:
> **
>
>
>
>
> Dear Be-Exceller,
>
> Saya punya data looping, setelah saya pakai for next, kok gak berhasil yah
> ?
>
> Ini code VBA awal :
>
> Range("R9").Select
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 18).Value
> Selection.Copy
> ActiveSheet.Cells(9, 18).Select
> ActiveSheet.Paste
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 20).Value
> Selection.Copy
> ActiveSheet.Cells(9, 20).Select
> ActiveSheet.Paste
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 22).Value
> Selection.Copy
> ActiveSheet.Cells(9, 22).Select
> ActiveSheet.Paste
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 24).Value
> Selection.Copy
> ActiveSheet.Cells(9, 24).Select
> ActiveSheet.Paste
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 26).Value
> Selection.Copy
> ActiveSheet.Cells(9, 26).Select
> ActiveSheet.Paste
>
>
> Ini code VBA setelah pakai for next :
>
> Dim i As integer
> i=1
>
> Range("R9").Select
>
> For i=1 to 9
> Range("L3:M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 17+i).Value
> Selection.Copy
> ActiveSheet.Cells(9, 17+i).Select
> ActiveSheet.Paste
> i=i+2
> Next
>
> Tapi kok gagal yah ?
>
> Ada yang salah dengan code looping saya ?
>
> Terima kasih,
> Wassalam,
> Tio
>
>
apa
mungkin akan sedikit memperjelas BeExceler yang ingin berbagi solusi
Wassalamu'
-Miss Jan Raisin-
Pada 21 Februari 2013 15.28, tio.adjie@ptssb.
> **
>
>
>
>
> Dear Be-Exceller,
>
> Saya punya data looping, setelah saya pakai for next, kok gak berhasil yah
> ?
>
> Ini code VBA awal :
>
> Range("
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
>
>
> Ini code VBA setelah pakai for next :
>
> Dim i As integer
> i=1
>
> Range("
>
> For i=1 to 9
> Range("
> Range(Selection, Selection.End(
> Selection.AutoFilte
> Selection.AutoFilte
> Selection.Copy
> ActiveSheet.
> ActiveSheet.
> i=i+2
> Next
>
> Tapi kok gagal yah ?
>
> Ada yang salah dengan code looping saya ?
>
> Terima kasih,
> Wassalam,
> Tio
>
>
Alhamdulillah, sudah ketemu. Ternyata pakai step, jadi seharusnya :
For j = 0 To 11 Step 2
Range("L2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 18 +
j).Value
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Cells(9, 18 + j).Select
ActiveSheet.Paste
Next
Wassalam,
Tio
Tio Adi Bayu Adjie
02/21/2013 03:28 PM
To: belajar-excel@yahoogroups.com
cc:
Subject: Kode looping yang gagal
Dear Be-Exceller,
Saya punya data looping, setelah saya pakai for next, kok gak berhasil yah
?
Ini code VBA awal :
Range("R9").Select
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 18).Value
Selection.Copy
ActiveSheet.Cells(9, 18).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 20).Value
Selection.Copy
ActiveSheet.Cells(9, 20).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 22).Value
Selection.Copy
ActiveSheet.Cells(9, 22).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 24).Value
Selection.Copy
ActiveSheet.Cells(9, 24).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 26).Value
Selection.Copy
ActiveSheet.Cells(9, 26).Select
ActiveSheet.Paste
Ini code VBA setelah pakai for next :
Dim i As integer
i=1
Range("R9").Select
For i=1 to 9
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 17+i).Value
Selection.Copy
ActiveSheet.Cells(9, 17+i).Select
ActiveSheet.Paste
i=i+2
Next
Tapi kok gagal yah ?
Ada yang salah dengan code looping saya ?
Terima kasih,
Wassalam,
Tio
For j = 0 To 11 Step 2
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
j).Value
Selection.SpecialCe
Selection.Copy
ActiveSheet.
ActiveSheet.
Next
Wassalam,
Tio
Tio Adi Bayu Adjie
02/21/2013 03:28 PM
To: belajar-excel@
cc:
Subject: Kode looping yang gagal
Dear Be-Exceller,
Saya punya data looping, setelah saya pakai for next, kok gak berhasil yah
?
Ini code VBA awal :
Range("
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
Ini code VBA setelah pakai for next :
Dim i As integer
i=1
Range("
For i=1 to 9
Range("
Range(Selection, Selection.End(
Selection.AutoFilte
Selection.AutoFilte
Selection.Copy
ActiveSheet.
ActiveSheet.
i=i+2
Next
Tapi kok gagal yah ?
Ada yang salah dengan code looping saya ?
Terima kasih,
Wassalam,
Tio
Thu Feb 21, 2013 3:27 am (PST) . Posted by:
"Trio Duo" trio_bimbo
Dear Para Master..
Mohon bantuan bagaimana caranya mencari jumlah kali transaksi dan nilai penjualannya yang dilakukan seorang salesman dalam satu bulan dalam sebuah rekapan data transaksi penjualan...untuk file terlampir..
Terimakasih....
Mohon bantuan bagaimana caranya mencari jumlah kali transaksi dan nilai penjualannya yang dilakukan seorang salesman dalam satu bulan dalam sebuah rekapan data transaksi penjualan...
Terimakasih.
Thu Feb 21, 2013 3:56 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir.
Disediakan tabel nama-nama bulannya, kemudian dirujuk oleh Data Validation
dan fungsi SumProduct untuk menentukan nomor bulan (1 sampai 12)
Dengan diketahui nomor bulan (1 sampai 12), maka bisa dibandingkan dengan
Month( data tanggal di sumber data )
Wassalam,
Kid.
2013/2/21 Trio Duo trio_bimbo@yahoo.co.id >
> **
>
>
> Dear Para Master..
> Mohon bantuan bagaimana caranya mencari jumlah kali transaksi dan nilai
> penjualannya yang dilakukan seorang salesman dalam satu bulan dalam sebuah
> rekapan data transaksi penjualan...untuk file terlampir..
> Terimakasih....
>
>
>
Disediakan tabel nama-nama bulannya, kemudian dirujuk oleh Data Validation
dan fungsi SumProduct untuk menentukan nomor bulan (1 sampai 12)
Dengan diketahui nomor bulan (1 sampai 12), maka bisa dibandingkan dengan
Month( data tanggal di sumber data )
Wassalam,
Kid.
2013/2/21 Trio Duo trio_bimbo@yahoo.
> **
>
>
> Dear Para Master..
> Mohon bantuan bagaimana caranya mencari jumlah kali transaksi dan nilai
> penjualannya yang dilakukan seorang salesman dalam satu bulan dalam sebuah
> rekapan data transaksi penjualan...
> Terimakasih.
>
>
>
Thu Feb 21, 2013 4:14 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau boleh bertanya sedikit,
Apakah yang menyebabkan user melakukan Underline di sebagian teks tersebut
? Padahal untuk meng-underline sebagian itu saja sudah repot loh
Pasti user punya alasan hingga bagian itu harus di-underline.
Nah... bagaimana jika alasan itu ditulis di kolom baru disampingnya.
Jika sebenernya ingin menghilangkan dari sleuruh data bagian yang dikurung,
dan bagian dikurung itu selalu di bagian paling belakang data, bisa
menggunakan formula yang diletakkan di kolom G berbunyi (misal G4)
=Trim( Left( c4 , Find( "(" , c4 ) -1 ) )
Jika tidak ingin dengan formula, pada xl2007 ke atas bisa memanfaatkan
fitur Text To Columns
1. blok datanya
2. ribbon (menu) Data -> Text to columns -> pilih Delimited -> Next ->
pilih opsi Other -> isi karakter buka kurung di texbox di kanan opsi other
-> Next
-> lihat Data Preview -> klik kolom ke-2 (yang ada tutup kurungnya)
hingga jadi terblok hitam -> lihat Column Data Format (atasnya data
preview)
-> pilih Do not import -> Destination : isi dengan cell pertama kolom
data yang di blok (nomor 1) -> Finish
Wassalam,
Kid.
2013/2/20 nandang arifin nndang_arifin@yahoo.com >
> **
>
>
> Dear Master
>
> Saya ingin mengajukan pertanyaan yang sekira nya sukar bagi saya
> mohon pencerahan nya
> file terlampir
>
>
> Terima kasih
> wassalam
>
> Arif
>
>
>
Apakah yang menyebabkan user melakukan Underline di sebagian teks tersebut
? Padahal untuk meng-underline sebagian itu saja sudah repot loh
Pasti user punya alasan hingga bagian itu harus di-underline.
Nah... bagaimana jika alasan itu ditulis di kolom baru disampingnya.
Jika sebenernya ingin menghilangkan dari sleuruh data bagian yang dikurung,
dan bagian dikurung itu selalu di bagian paling belakang data, bisa
menggunakan formula yang diletakkan di kolom G berbunyi (misal G4)
=Trim( Left( c4 , Find( "(" , c4 ) -1 ) )
Jika tidak ingin dengan formula, pada xl2007 ke atas bisa memanfaatkan
fitur Text To Columns
1. blok datanya
2. ribbon (menu) Data -> Text to columns -> pilih Delimited -> Next ->
pilih opsi Other -> isi karakter buka kurung di texbox di kanan opsi other
-> Next
-> lihat Data Preview -> klik kolom ke-2 (yang ada tutup kurungnya)
hingga jadi terblok hitam -> lihat Column Data Format (atasnya data
preview)
-> pilih Do not import -> Destination : isi dengan cell pertama kolom
data yang di blok (nomor 1) -> Finish
Wassalam,
Kid.
2013/2/20 nandang arifin nndang_arifin@
> **
>
>
> Dear Master
>
> Saya ingin mengajukan pertanyaan yang sekira nya sukar bagi saya
> mohon pencerahan nya
> file terlampir
>
>
> Terima kasih
> wassalam
>
> Arif
>
>
>
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