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 <nanga...@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 syaiful...@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
