mengambil data otomatis di vba

  1. 7 bulan yang lalu

    selamat pagi kakak abang semua.. jadi saya sedang buat database aset IT gt, jadi di excel ingin buat tampilan untuk cek apakah garansi dari aset itu sudah habis atau belum, nah mau ditampilkan di satu halaman gt, jd ketika di klik tombol check aset yang masih bergaransi, data"nya muncul gt di tabel.. ada yg taukah gimana buatnya kaka abang ?

  2. berikut saya lampirkan contohnya yg saya buat

  3. Caton

    26 Apr 2021 Terverifikasi Indonesia + 17.741 Poin

    Saya belum dapat memastikan, data paa sheet mana yang Anda maksud. Estimasi saya, sheet yang Anda maksud adalah sheet komputer_laptop. Sebagai rujukan batas garansi, saya asumsikan digunakan kolom O (REMAINING DAYS). Maka sederhananya dapat disusun script macro VBA seperti berikut:

    Option Explicit
    
    Sub DaftarGaransiBarang()
        Dim lR As Long, lX As Long, lY As Long
        Dim xData, xHasil
        
        With Sheet8
            lR = .Cells(Rows.Count, "C").End(xlUp).Row
            If lR > 18 Then
                lX = 1
                xData = .Range("C19:Q" & lR).Value
                ReDim xHasil(1 To UBound(xData, 1), 1 To UBound(xData, 2))
                For lY = 1 To UBound(xData, 1)
                    If xData(lY, 13) > 0 Then
                        For lR = 1 To UBound(xData, 2)
                            xHasil(lX, lR) = xData(lY, lR)
                        Next
                        lX = lX + 1
                    End If
                Next
                Sheet14.Range("A2:O" & lX).Value = xHasil
            End If
        End With
    End Sub

    Catatan: Sheet8 adalah sheet komputer_laptop, dan Sheet14 adalah sheet baru sebagai sheet tujuan hasil (ganti dengan sheet yang sudah ada jika diperlukan).

    Sekiranya bukan demikian yang dimaksud, coba jelaskan data (tabel) mana yang akan dijadikan data sumbernya, dan kolom apa yang dijadikan patokan kuerinya.

    Demikian, semoga sesuai.

  4. sudah benar hasilnya kak, wah keren
    tapi yang saya maksudkan yang di sheet home, ada tombol check
    nah kalau di klik maka muncul data seperti di sheet14 yang kakak buat, terimakasih kak

  5. Caton

    26 Apr 2021 Terverifikasi Indonesia + 17.741 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    Oh... gitu... Gak fokus sayanya... :D

    Tapi sheet untuk sumber datanya khan memang sheet komputer_laptop, benar khan? Okelah kalau begitu, tinggal sesuaikan saja saja scriptnya. Silahkan diskusikan lagi jika ada kendala.

  6. iyaa kak, makasih kak

 

atau Mendaftar untuk ikut berdiskusi!