[belajar-excel] Digest Number 1537

Milis Belajar Microsoft Excel

Messages In This Digest (3 Messages)

1a.

Re: menggabungkan 2 tabel From: jkssxls Sudarsono

1b.

Re: menggabungkan 2 tabel From: jkssxls Sudarsono

2.

User Login (ctv_Login_v2.xls) First In - Last Row From: Harry

View All Topics | Create New Topic

Messages

1a.

Re: menggabungkan 2 tabel

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Mon Mar 5, 2012 1:04 am (PST)

Saya gunakan macro sbb: Sub Gabung()
Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 2
jumlahkolom = 4
Set tujuan = Sheets("Hasil").Range("A" & barisawal)
' jika sel A2 kosong , berarti tak ada data
If tujuan.Value <> "" Then
tujuan.Select
' menuju akhir baris
Range(Selection, Selection.End(xlDown)).Select
' pilih sampai selebar kolom
Selection.Resize(, jumlahkolom).Select
' hapus isinya
Selection.ClearContents
End If
Sheets("tabel1").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select' range berisi data
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' ke sel tujuan
asal.Copy tujuan
' hitung jumlah baris data
If tujuan.CurrentRegion.Row < barisawal Then
' misal baris awal 2 , maka yg dihitung 2,3,4,5
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
' ke akhir baris data
Set tujuan = Sheets("Hasil").Range("a" & barisawal).Offset(jumlahbaris - 1)
lab_Tabelkedua:
Sheets("tabel2").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' menuju data terakhir
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' copy mulai 1 baris setelah baris data terakhir
asal.Copy tujuan.Offset(1)
lab_selesai:
' tujuan dari A2 sampai baris terakhir ( jumlahbaris )
' ke kolom sesuai jumlah kolom
If tujuan.CurrentRegion.Row < barisawal Then
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
Set tujuan = Range("A" & barisawal)
' melingkupi baris sebanyak jumlahbaris
' kolom sebanyak jumlahkolom
Set tujuan = tujuan.Resize(jumlahbaris, jumlahkolom)
' hapus sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Clear
' tambahkan sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Add Key:=Range("A:A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sort sesuai dengan daerah tujuan
With ActiveWorkbook.Worksheets("hasil").Sort
.SetRange tujuan
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

To: belajar-excel@yahoogroups.com
From: afdhol_marthoni@yahoo.co.id
Date: Mon, 5 Mar 2012 10:26:36 +0700
Subject: [belajar-excel] menggabungkan 2 tabel

Selamat Siang, Mohon bantuan dari pakar excel semua, bagaimana formula untuk menggabungkan dua tabel yaitu tabel 1 dan tabel 2 menjadi table 3 dan tersusun berurutan berdasarkan tanggalnya. Terimakasih Afdhol

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

1b.

Re: menggabungkan 2 tabel

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Mon Mar 5, 2012 7:24 pm (PST)

Jika macro sebelumnya pada sel B4 di Sheet Tabel1 kosong maka mengabaikan isi tabel2 . Maka untuk macro berikut , pengecekan data di tabel2 dilakukan. Sub Gabung_2()

Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 4
jumlahkolom = 4
Sheets("Hasil").Activate
Set tujuan = Range("A" & barisawal)
' jika sel A2 kosong , berarti tak ada data
If tujuan.Value <> "" Then
Sheets("Hasil").Activate
tujuan.Select
' menuju akhir baris
Range(Selection, Selection.End(xlDown)).Select
' pilih sampai selebar kolom
Selection.Resize(, jumlahkolom).Select
' hapus isinya
Selection.ClearContents
End If
Sheets("tabel1").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_Tabelkedua
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' range berisi data
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
asal.Copy tujuan
lab_Tabelkedua:
Sheets("tabel2").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_sort
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' menuju data terakhir
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' Belum Ada Data di tujuan , jadi julahbaris = 0
If tujuan.Value = "" Then
jumlahbaris = 0
GoTo Lab_TujuanTakAda
End If
' hitung jumlah baris data
If tujuan.CurrentRegion.Row < barisawal Then
' misal baris awal 2 , maka yg dihitung 2,3,4,5
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
Lab_TujuanTakAda:
' ke baris kosong untuk data berikutnya
Set tujuan = Sheets("Hasil").Range("a" & barisawal).Offset(jumlahbaris)
' asal.Copy tujuan.Offset(0)
asal.Copy tujuan
lab_sort:
If tujuan.Value = "" Then
GoTo lab_Selesai
End If
' tujuan dari A2 sampai baris kosong setelah data terakhir ( jumlahbaris )
' ke kolom sesuai jumlah kolom
If tujuan.CurrentRegion.Row < barisawal Then
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
Set tujuan = Range("A" & barisawal)
' melingkupi baris sebanyak jumlahbaris
' kolom sebanyak jumlahkolom
Set tujuan = tujuan.Resize(jumlahbaris, jumlahkolom)
' hapus sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Clear
' tambahkan sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Add Key:=Range("A:A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sort sesuai dengan daerah tujuan
With ActiveWorkbook.Worksheets("hasil").Sort
.SetRange tujuan
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
lab_Selesai:
End Sub'--------------
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Mon, 5 Mar 2012 08:56:54 +0000
Subject: RE: [belajar-excel] menggabungkan 2 tabel

Saya gunakan macro sbb:

Sub Gabung()
Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 2
jumlahkolom = 4
Set tujuan = Sheets("Hasil").Range("A" & barisawal)
' jika sel A2 kosong , berarti tak ada data
If tujuan.Value <> "" Then
tujuan.Select
' menuju akhir baris
Range(Selection, Selection.End(xlDown)).Select
' pilih sampai selebar kolom
Selection.Resize(, jumlahkolom).Select
' hapus isinya
Selection.ClearContents
End If
Sheets("tabel1").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' range berisi data
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' ke sel tujuan
asal.Copy tujuan
' hitung jumlah baris data
If tujuan.CurrentRegion.Row < barisawal Then
' misal baris awal 2 , maka yg dihitung 2,3,4,5
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
' ke akhir baris data
Set tujuan = Sheets("Hasil").Range("a" & barisawal).Offset(jumlahbaris - 1)
lab_Tabelkedua:
Sheets("tabel2").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' menuju data terakhir
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' copy mulai 1 baris setelah baris data terakhir
asal.Copy tujuan.Offset(1)
lab_selesai:
' tujuan dari A2 sampai baris terakhir ( jumlahbaris )
' ke kolom sesuai jumlah kolom
If tujuan.CurrentRegion.Row < barisawal Then
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
Set tujuan = Range("A" & barisawal)
' melingkupi baris sebanyak jumlahbaris
' kolom sebanyak jumlahkolom
Set tujuan = tujuan.Resize(jumlahbaris, jumlahkolom)
' hapus sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Clear
' tambahkan sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Add Key:=Range("A:A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sort sesuai dengan daerah tujuan
With ActiveWorkbook.Worksheets("hasil").Sort
.SetRange tujuan
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

To: belajar-excel@yahoogroups.com
From: afdhol_marthoni@yahoo.co.id
Date: Mon, 5 Mar 2012 10:26:36 +0700
Subject: [belajar-excel] menggabungkan 2 tabel

Selamat Siang,
Mohon bantuan dari pakar excel semua, bagaimana formula untuk menggabungkan dua tabel yaitu tabel 1 dan tabel 2 menjadi table 3 dan tersusun berurutan berdasarkan tanggalnya. Terimakasih Afdhol

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2.

User Login (ctv_Login_v2.xls) First In - Last Row

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Mon Mar 5, 2012 6:57 am (PST)

Dear Be Exceller,
 
Belajar dari materi sebelumnya
mengenai User Login (ctv_Login_v2.xls), bersama ini saya ingin menanyakan 3 (tiga)
pertanyaan sebagai berikut:
1.            Bagaimana cara dan rumusnya jika
Pendaftaran New User yang bertama kali berada pada posisi paling bawah
sedangkan New User yang baru saja didaftarkan berada paling atas…???
Situasi
yang sekarang posisi User yang baru didaftarkan selalu pada posisi C4 & D4 (diatas)
sedangkan User yang sudah didaftarkan sebelumnya berada dibawahnya.
2.     Pada output pendaftaran tersebut
di kodekan kata sandi. Bagaimana caranya jika kata sandi tersebut dibuang.
Misalnya User dengan nama "EKA" dengan password "eka" hasilnya outputnya adalah
User Nama "EKA" dan Password "eka".
3.             Bagaimana caranya jika output
pendaftaran user tersebut di dikirimkan ke file yang berbada, Mis. ctv_Login_v2.database.xls…???
Tapi tetap bisa mengakses "UBAH PASSWORD", "ADD NEW USER", dll.
 
Terima kasih atas berkenan
informasinya.
Semoga bermanfaat

 
Regards,
 
 
Harry
 
N/B:
Terlampir file ctv_Login_v2.xls

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Recent Activity

•  19
  New Members

Visit Your Group

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

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

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe