1 Message

Digest #3443

1.1

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data by "Ahmad Syaifullah Lubis" syaifullah

Message

1.1 Re: Menyatukan 2 atau 3 baris menjadi 1 baris data

Mon May 25, 2015 1:47 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Mr Nang Agus,ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.terima kasih,ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 13:07:02 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data

Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:

Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If

Next x

End Sub

2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x

2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear BeExceller,

Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL

Reply to sender . Reply to group . Reply via Web Post . All Messages (35) . Top ^

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

Visit Your Group