RE: [belajar-excel] Menggabung isi beberapa cell

'prazt' [email protected] [belajar-excel] Thu, 02 Oct 2014 21:23:33 -0700

Saya ikutan nimbrung ni, boleh ya tanya master..

Gimana agar macronya bisa jalan otomatis, jika nilai diubah maka
kata-katanya juga otomtis langsung ikut berubah..

From: [email protected] [mailto:[email protected]] 
Sent: 26 September 2014 19:02
To: belajar-excel@yahoogroups com
Subject: Re: [belajar-excel] Menggabung isi beberapa cell [1 Attachment]

Ini sudah selesai .

cara

yg berwarna biru untuk mengisi kolom yg sudah saya warnai orange. 

Bila mau di pakai . tanda petik depan nya di hapus saja (dihilangkan)

Sub Menggabungkan_cell1_pengetahuan()
Dim sh1, sh2 As Worksheet
Dim c, r, s, t, u As Long
Dim ha1  As String
Set sh1 = Worksheets("PENGETAHUAN")
Set sh2 = Worksheets("tabel")

sh1.Activate

For r = 7 To Cells(Rows.Count, 1).End(xlUp).Row
'    For c = 7 To 45 Step 7
'        Cells(r, c).Value = (2 * Cells(r, c - 3) + Cells(r, c - 2) +
Cells(r, c - 1)) / 4
'        Cells(r, c + 1).Value = Cells(r, c) / 25
'        Cells(r, c + 2).Value =
Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
                sh2.Range("I3:J12"), 2)
'        Cells(r, c + 3).Value =
Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
                sh2.Range("I16:J19"), 2) & " pada " & Cells(2, c - 3)
'    Next c

    For s = 19 To 16 Step -1
    With Application.WorksheetFunction
        u = 1
    For c = 10 To 45 Step 7

        If sh2.Cells(s, 10) = Left(Cells(r, c), Len(sh2.Cells(s, 10))) Then
            If u = 1 Then
                ha1 = ha1 & sh2.Cells(s, 10) & " pada " & Cells(2, c - 6) &
", "
            ElseIf u > 1 Then
                ha1 = ha1 & Cells(2, c - 6) & ", "
            End If
        Cells(r, 52).Value = ha1
            u = u + 1
        End If
    Next c
    End With

    Next s
    Cells(r, 52) = Left(Cells(r, 52), Len(Cells(r, 52)) - 2)
    ha1 = ""
Next r
End Sub

2014-09-25 18:39 GMT+07:00 lkm jktind <[email protected]>:

Pak .

sudah saya kerjakan . dengan hasil contoh di lampiran dibawah ini .

memang ada kelebihan spasi , dan ada 2 spasi .  dan yg paling akhir pun ada
komanya .

baru untuk satu siswa saja . 

saya tidak mengurutkan data dari nilai .  

apakah juga mau di urut berdasarkan nilai angkanya ?

seandainya sudah sesuai -- dan mau tinggal di pakai langsung .  tinggal
dikasih Tau saja --- 

Hasilnya mau di letakan di mana  range apa ? 

datanya  sangat bagus  ada di mana ? 

Salam 

Lukman

2014-09-19 19:26 GMT+07:00 Syamsudin Rasyid [email protected]
[belajar-excel] <[email protected]>:

Yth. para master excell dan rekan rekan dalam group

Saya mengalami kesulitan dalam menggabung cell di excell, saya inginnya
kata-kata yang sama hanya muncul sekali. file terlampir

--

RE: [belajar-excel] Menggabung isi beberapa cell

Kirim email ke