Jumat, 21 Maret 2014

[belajar-excel] Digest Number 2840

7 Messages

Digest #2840
5a
Merangkum tanggal jadi satu by "Tjahya Hartono" tjahyahartono
5b
Re: Merangkum tanggal jadi satu [1 Attachment] by "WIRAnata Kemala 鄧又銘" kwiranata
6
formula sum by "Yusril Ramadani" yusrilramadani

Messages

Fri Mar 21, 2014 12:30 am (PDT) . Posted by:

"Jan Raisin"

Hai Liem,

berikutnya tolong disertakan sumber script yang digunakan karena hal
tersebut adalah salah satu bentuk akhlak yang baik.
Jan coba modifikasi script yang sudah ada.. Untuk Be-Exceller yang merasa
scriptnya digunakan, Jan izin modifikasi sedikit ya ^_^

Public Sub GabungData(Optional bState As Boolean = False)
Dim lSht As Long, lRec As Long
Dim rngRes As Range, rngDT As Range
' Dim bDifCol As Boolean

'Set rngRes = Range("q3")
Set rngRes = Range("a4")
With rngRes
.CurrentRegion.Offset(1).Delete xlShiftUp
lRec = 1
' bDifCol = False
For lSht = 1 To ActiveSheet.Index - 1
' Set rngDT = Sheets(lSht).Range("b4").CurrentRegion
Set rngDT = Sheets(lSht).Range("b4").CurrentRegion.Offset(1)
' rngDT.Offset(0, 1).Resize(, 1).Copy .Offset(lRec, 1)
' rngDT.Copy .Offset(lRec, 1)
rngDT.Copy .Offset(lRec)
' rngDT.Offset(0, 2).Copy .Offset(lRec, 2 + 6 -
rngDT.Columns.Count)
' bDifCol = bDifCol Or (rngDT.Columns.Count = 6)
lRec = .CurrentRegion.Rows.Count
Next lSht
If lRec - 1 > 0 Then
'.Offset(1).Resize(lRec - 1).Formula = "=row()-3"
.Offset(1).Resize(lRec - 1).Formula = "=row()-4"
' If bDifCol Then
' .CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1
= "=RC[1]"
' End If
ActiveSheet.Calculate
' .CurrentRegion.Copy
.CurrentRegion.Resize(, 1).Copy
.PasteSpecial xlPasteValues
End If
.Select
End With
Application.CutCopyMode = False
MsgBox "Done.", vbInformation, "GabungData"
End Sub

yang warna hitam adalah script asli yang tidak dimodifikasi
yang warna merah adalah script yang dihapus
yang warna hijau adalah script yang diganti
yang warna biru adalah pengganti script yang warna hijau

Wassalam,

-Miss Jan Raisin-

Pada 21 Maret 2014 13.58, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

>
>
> Hai Liem,
>
> Coba macro dalam file terlampir (Judul sdh disediakan).
>
> Salam,
> HK
>
>
> On Friday, 21 March 2014, 9:02, Liem Suliem <liemsuliem@yahoo.co.id>
> wrote:
>
> selamat pagi , salam be exceler.
>
> begini ceritanya..
> saya punya data di sheet by tanggal jadi ada sekitar 31 sheet saya ingin
> shet tersebut di gabung
> dalam 1 sheet.
> sudah coba makro yang pernah muncul di milis dan sudah saya otak atik tapi
> masih debug, debun soal offsetnya sepertinya.
> karena ketidak tauan saya tentang makro, akirrnya mentok dimilis.
>
> file terlampir
>
> salam
> liem
>
>
>

Fri Mar 21, 2014 1:36 am (PDT) . Posted by:

"Liem Suliem" liemsuliem

makasih pak HK..

sangat membantu sekali

salam

liem

Pada Jumat, 21 Maret 2014 13:58, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

 
Hai Liem,

Coba macro dalam file terlampir (Judul sdh disediakan).

Salam,
HK

On Friday, 21 March 2014, 9:02, Liem Suliem <liemsuliem@yahoo.co.id> wrote:

 
selamat pagi , salam be exceler.

begini ceritanya..
saya punya data di sheet by tanggal jadi ada sekitar 31 sheet saya ingin shet tersebut di gabung
dalam 1 sheet.
sudah coba makro yang pernah muncul di milis dan sudah saya otak atik tapi masih debug, debun soal offsetnya sepertinya.
karena ketidak tauan saya tentang makro, akirrnya mentok dimilis.

file terlampir

salam
liem

Fri Mar 21, 2014 2:42 am (PDT) . Posted by:

"Bagus" bagus4bls

Hai Nora;

Bagaimana kalo pada cekrip yang berbunyi:
.Offset(RekapCnt, 3) = Form.[H23]

diganti dengan:
.Offset(RekapCnt, 3).Formula = "=SumIf (PENJUALAN!I:I, A:A, PENJUALAN!L:L)"

Wassalam

~ Bagus ~

----- Original Message -----
From: Nora Ismanti
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 20, 2014 9:06 PM
Subject: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Bagaimana membuat sheet REKAP PENJUALAN yang otomatis? [1 Attachment]

Mohon bantuan kepada para master dan segenap anggota milis.

Saya punya invoice sederhana. Ada sedikit problem dalam invoice saya ini, yaitu pada kolom D (TOTAL PEMBELIAN) di sheet "REKAP PENJUALAN" tidak berubah secara otomatis mengikuti keadaan di sheet "PENJUALAN&quot;. Mungkin yang perlu diubah adalah kode VBA-nya. Selengkapnya mohon dilihat pada lampiran. Penjelasan masalah ada di sheet "PENJUALAN&quot;.

Atas perhatian dan bantuannya, saya ucapkan terima kasih.

Fri Mar 21, 2014 2:52 am (PDT) . Posted by:

"prazt" praztmath

Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Fri Mar 21, 2014 3:29 am (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono


Dear Master Excel,

Bagaimana ya rumusnya bila kasusnya terlampir.
Terima kasih

Wassalam

Fri Mar 21, 2014 4:25 am (PDT) . Posted by:

"WIRAnata Kemala 鄧又銘" kwiranata

bisa dicoba formula berikut:

=CONCATENATE(C2," ",DAY(B2),","," ",C3," ",DAY(B3),","," ",C4,"
",DAY(B4),","," ",C5," ",DAY(B5),","," ",C6," ",DAY(B6)," dan"," ",C7,"
",DAY(B7))

semoga membantu :)

2014-03-21 16:51 GMT+07:00 Tjahya Hartono <tjahyahartono@yahoo.co.id>:

>
>
>
> Dear Master Excel,
>
>
> Bagaimana ya rumusnya bila kasusnya terlampir.
> Terima kasih
>
>
> Wassalam
>
>
>
>

--
regards, Wira 鄧又銘
on desktop FireFox

Fri Mar 21, 2014 3:43 am (PDT) . Posted by:

"Yusril Ramadani" yusrilramadani

Dear para pakar

Mohon bantuannya untuk case terlampir
saya mau menjumlah dengan kriteria data tersebut memiliki beberapa kolom
yang akan dijumlah

case terlampir saya mencoba pake sumif tp kok tidak bisa lbh dr 1 kolom ya

terima kasih sebelumnya

Salam
YR
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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 04.30

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)