Shiftup cell VBA tanpa Menghapus link

  1. 4 minggu lalu
    Di sunting 4 minggu lalu oleh Shinzuriki

    Dear BEOrg master

    Gan sebelumnya saya sudah bertanya di link ini
    link text

    Tapi karena mungkin kurang nya info tentang excel yang terlampir,
    maka saya buat thread baru agar memudahkan pembaca unntuk mendapatkan infromasi.
    juga memudahkan master2 disini.

    sebelumnya terima kasih atas bantuannya.

    Jadi masalahnya disini adalah untuk meng-clear cell range tertentu (dinamik) dan shift up cell yang tidak diclear tadi dicopy ke posisi atas (bukan dengan cut, karena dapat merusak link yang akan digunakan)

    karena data yang didapat bisa berubah2 jumlahnya, (nama pembeli, dan barang yang dibeli). Jadi range data yang berlaku juga dinamis,

    Konsepnya atau tujuan utama nya ya itu dapat menuliskan 10 nama teratas untuk diprint datanya,
    Lalu, 10 nama selanjutnya, dan seterusnya

    Jika Master2 disini bisa bantu, saya akan sangat berterima kasih.

    Thank you

  2. manweljs_

    Jun 7 Terverifikasi + 9.747 Poin
    Di sunting 4 minggu lalu oleh manweljs_

    @Shinzuriki

    coba :

    Sub ambil10()
    Dim target As Range, x As Range
    Set x = Range("B1:B100").Find(11, LookIn:=xlValues, LookAt:=xlWhole)
    If Not x Is Nothing Then
        Set target = Range("B5:D" & x.Row - 1)
        Range("G5:I100").Rows.Delete (xlShiftUp)
        target.Copy Range("G5")
        target.Rows.Delete (xlShiftUp)
    Else
        Set target = Range("B5:D100")
        Range("G5:I100").Rows.Delete (xlShiftUp)
        target.Copy Range("G5")
        target.Rows.Delete (xlShiftUp)
    End If
    End Sub

  3. @manweljs_ @Shinzuriki

    coba :
    Sub ambil10() Dim target As Range, x As Range Set x = Range("B1:B100").Find(11, LookIn:=xlValues, LookAt:=xlWhole) If Not x Is Nothing Then Set target = Range("B5:D" & x.Row - 1) Range("G5:I100").Rows.Delete (xlShiftUp) target.Copy Range("G5") target.Rows.Delete (xlShiftUp) Else Set target = Range("B5:D100") Range("G5:I100").Rows.Delete (xlShiftUp) target.Copy Range("G5") target.Rows.Delete (xlShiftUp) End If End Sub

    Agan @manweljs_
    Terima kasih atas jawabannya..

    Setelah saya coba, hasilnya tidak seperti sesuai dengan konsep nya gan

    Tabel yang disisi kanan (Tabel B) jadinya dicopy sama seperti yang sebelumnya yah gan?

    klo dari konsep yang ingin saya terapkan, bisa diliat di tab sheet "hasil", di table B posisi Nama1 akan tergantikan dengan Nama11, jadi yang tadinya udah diclear posisi nya akan keswap sama data setelahnya..

    tapi mudahnya seperti ini gan penjelasannya:
    Dari Tabel A, 10 nama pertama akan terhapus, dan posisinya tergantikan dengan nama sisanya (nama setelahnya: nama11 dan seterusnya), di Table B udah terisi link (formula) untuk terkoneksi di tabel kiri,
    jadi kalau posisi nya ditimpa dengan sifat copy paste (bukan cut or delete cell) maka link yang udah terbentuk tidak akan bergeser.

    thank you yah gan, maaf nihh merepotkan

  4. manweljs_

    Jun 7 Terverifikasi + 9.747 Poin
    Di sunting 4 minggu lalu oleh manweljs_

    lha... :) intinya kan mau print 10, trus next print 10 berikutnya sampe habis. intinya kan gitu. apa salah ya?

    print10.gif

    kalo ikut keinginan anda, gak bisa selalu 10 item, contoh yg anda buat (yang anda sebut link) itu cuma sampe baris 17. dari bentuk data anda ada kemungkinan untuk mendapatkan 10 item diperlukan baris yang lebih banyak.

  5. @manweljs_ lha... :) intinya kan mau print 10, trus next print 10 berikutnya sampe habis. intinya kan gitu. apa salah ya?

    [attachment:5edcc7b0ea288]

    kalo ikut keinginan anda, gak bisa selalu 10 item, contoh yg anda buat (yang anda sebut link) itu cuma sampe baris 17. dari bentuk data anda ada kemungkinan untuk mendapatkan 10 item diperlukan baris yang lebih banyak.

    Oke gan makasih yahh.. udh kasih informasi yang sedetail ini..

    Nanti saya coba akalin.. mungkin dari code agan dan saya coba2 lagi..

    Makasih yahhh

 

atau Mendaftar untuk ikut berdiskusi!