cell yang tidak di copy value

  1. 5 bulan yang lalu

    Dear para agan master...,
    Mohon dapat dibantu, saya mau menambahkan statement pada module dibawah ini dimana apabila terdapat beberapa cell pada beberapa sheet yang saya beri arsir kuning tidak akan hilang rumusnya.

    mohon dapat pencerahannya...agan2

    terima kasih banyak.

    Sub Copas1(control As IRibbonControl)
    On Error Resume Next
    If Not Application.ActiveWorkbook Is Nothing Then
    Dim xlSheet As Worksheet

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    For Each xlSheet In ActiveWorkbook.Worksheets
    With xlSheet
    .Select
    .Range("A1:AZ5000").Copy
    .Range("A1:AZ5000").PasteSpecial xlPasteValues
    .Range("A1").Select
    End With
    Next

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    End If

    Err.Clear
    On Error GoTo 0
    End Sub

  2. manweljs_

    Jul 10 Terverifikasi + 6.118 Poin

    @nafis2006

    terlampir contoh yang mungkin sesuai
    saya tidak bisa menambahkan diskrip anda karena saya tidak tahu arsir kuning itu bahasa excelnya apa.. :D

  3. Makasih banyak mas......
    sudah saya coba berfungsi, sangat membantu

  4. mas manweljs,
    untuk jumlah row yang sedikit formulanya berfungsi mas.... tetapi kalau ada 5000row dan sheet nya banyak cukup lama juga jalan programnya mas......
    kalau saya mau gabung dengan script punya saya diatas harus saya edit dimana yah mas.....

    makasih

  5. manweljs_

    Jul 11 Terverifikasi + 6.118 Poin

    @nafis2006

    coba buat kalkulasinya jadi manual. contoh pada file terlampir

  6. makasih mas,
    rumus nya berfungsi lebih cepat......
    mau tanya lagi mas..... kalau perkecualian cell tersebut bukan tanda kuning..... bisa tidak dibuat rumus semisal
    data cell jangan di copy-values sbb;

    1. formula =sum
    2. link sub sumary (=)
    3. perkalian ( mis. a1 * b1 )

    apakah bisa seperti itu mas....
    terima kasih banyak

  7. manweljs_

    Jul 11 Terverifikasi + 6.118 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @nafis2006

    bisa aja contohnya :

    ...
    For Each sh In ThisWorkbook.Worksheets
        Set target = sh.Range("B2:E30")
        For Each rng In target
            If Left(rng.Formula, 4) <> "=SUM" And Left(rng.Formula, 3) <> "=IF" Then
            rng.Value = rng
            End If
        Next rng
    Next sh
    ...


    skrip diatas adalah merubah setiap sel menjadi value jika formulanya bukan =SUM dan bukan =IF. silahkan dikembangkan sendiri :)

  8. Makasih banyak atas info dan bantuannya...mas manweljs

    sukses selalu....

  9. mas manweljs...

    Mohon dapat pencerahan...
    Apabila Script diatas pada saat bekerja ketemu dengan sheet yang di protect muncul error terlampir.

    untuk melangkahinya saya harus bagaimana yah

    terima kasih

  10. manweljs_

    Jul 18 Terverifikasi + 6.118 Poin

    @nafis2006

    sudah coba On Error Resume Next ?

    letakan di bawah application.calculation = xlcalculationmanual

  11. mas manweljs...

    makasih mas sudah berfungsi....

    File terlampir mas..... cuma script copas3 saya sudah coba rubah bahwa cell "=sum" tidak akan ter values
    tetapi "SUB SUMMARY" masih ter values link nya dan "GRAND TOTAL" juga masih ter values link nya
    harus nya jangan ikut tervalues...

    saya harus rubah dimana yah mas...

    terima kasih

  12. manweljs_

    Jul 19 Terverifikasi + 6.118 Poin

    @nafis2006

    jika demikian maka gunakan fungsi =SUM untuk setiap cell yang tidak ingin dijadikan value. contohnya terlampir

  13. makasih banyak mas @manweljs_

    berarti saya rubah link nya jadi "=sum" yah....

    met sukses selalu

 

atau Mendaftar untuk ikut berdiskusi!