Ada pertanyaan? Masuk ke Forum atau klik di sini..!

requestHalo, Pembaca Klinik Excel.. Bantu kami tetap online yuk..

Jika artikel-artikel kami dirasa memberikan manfaat, mohon bantu kami agar website ini tetap online ya.. Caranya gampang, cukup klik iklan yang tampil aja kok.. Terima kasih sebelumnya dan do'a kan agar kami dapat terus menulis artikel yang bermanfaat..

Macro & VBA, Hits: 10, Comments: 0, Bookmarked: 0, Followers: 4

Saya sudah Membuat script untuk mencari nilanya tapi yang menjadi maslah ;
1. jika ada nama barang yang tidak ada dilist muncul nilai yang salah , seharusnya yg muncul 0

2. jika malah no 1 selesai , ingin dijumlakan dengan harga ( dala posisi tetap )

Terima kasih

Sub cumacontoh(ByVal target As Range)
Dim sh As Worksheet, sel As Range, xsel As Range
Set sh = Sheets("Tahun " & Cells(1, target.Column))

n = Cells(2, target.Column)

On Error Resume Next
For Each sel In Range("A3:A10")
    With sh
        For Each xsel In .Range("B2:K2")
            dari = Left(xsel, InStr(1, xsel.Value, "s/d") - 1) * 1
            sampai = Mid(xsel, InStr(1, xsel.Value, "s/d") + 3, 100) * 1
            If n >= dari And n <= sampai Then
                r = .Range("A:A").Find(sel, , xlValues, xlWhole).Row
                c = xsel.Column
                Cells(sel.Row, target.Column) = .Cells(r, c)
                Exit For
            End If
        Next
    End With
Next
Err.Clear
End Sub

oh ya , bagaiman cara attch file nya ya ?

 


DianChris
Tuesday, September 15, 2020
0% of 0 votes