Hai Kesi.. semangat pagi.. ini slogannya siapa ya? lupa xixixixi ^_^
Jan bisanya kasih solusi pakai VBA aja ya.. solusi dengan formula atau cara
yang lain belum kepikiran..
script-nya ditulis di worksheet dengan event change
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgHd As Range, rgFind As Range
Dim sKrit As String
Dim lTbl As Long, lData As Long, i As Long
Dim iCol As Integer
With Target
If .Count = 1 Then
If .Column = 10 And .Row > 3 Then
Set rgHd = Range("d2:h2")
lTbl = Cells(Rows.Count, 2).End(xlUp).Row
sKrit = .Value
Set rgFind = rgHd.Find(sKrit, MatchCase:=False)
If rgFind Is Nothing Then
MsgBox "Tidak ada proses tersebut", vbOKOnly + vbCritical,
"Proses Tidak Ditemukan"
Exit Sub
End If
iCol = rgFind.Column
For i = 4 To lTbl
If Cells(i, iCol).Value > 0 Then
lData = Cells(Rows.Count, 11).End(xlUp).Row + 1
Cells(lData, 11).Value = Cells(i, 2).Value
End If
Next i
End If
End If
End With
End Sub
solusi file terlampir.. silakan dicoba disesuaikan untuk kondisi
sebenarnya..
jangan lupa, diaktifkan dahulu macronya ya..
Salam,
-Miss Jan Raisin-
Pada 4 Oktober 2013 08.32, KESI VIZZIANTI <[email protected]>menulis:
> **
>
>
> Selamat pagi
> Semoga di akhir hari kerja ini semua dalam kondisi sehat
> kali ini saya ada data yang lumayan banyak dan ingin merubah dalam bentuk
> susunan lain.
> Mohon pencerahan untuk kasus saya seperti terlampir
>
> Salam
> *Kesi*
>
MJR-proses.xlsb
Description: Binary data
