COPY PASTE SESUAI CELL DAN KOLOM YANG DIINGINKAN

  1. 2 bulan yang lalu

    master saya punya file database seperti terlampir,,,bagaimana caranya membuat tombol copy ambil data dari sheet database +scriptnya ya,,,,kemudian otomatis paste pada sheet REKAP apabila diklik tombol copy otomatis tercopy sesuai cell dan kolom yang diinginkan. untuk kolom tanggal berangkat dan tgl kembali ingin formatnya menjadi date long di sheet REKAP contoh format paste pada sheet REKAP ...tolong dibantu ya para master,,, terima kasih

  2. manweljs_

    Sep 18 Terverifikasi + 5.830 Poin

    @wawan setiawan

    coba skrip berikut

    Sub CopyToRekap()
    Dim xSh As Worksheet
    Set xSh = Sheet7
    xSh.[A2:N1000].ClearContents
    
    With Sheet6
    j = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To j
        xDate = DateSerial(.Cells(i, 15), DatePart("M", .Cells(i, 14) & "/1/2018"), .Cells(i, 13))
        yDate = DateSerial(.Cells(i, 18), DatePart("M", .Cells(i, 17) & "/1/2018"), .Cells(i, 16))
        
        xSh.Cells(i, 1) = i - 1
        .Range("T" & i).Copy xSh.Cells(i, 2)
        .Range("V" & i & ":W" & i).Copy xSh.Cells(i, 3)
        .Cells(i, 11).Copy xSh.Cells(i, 5)
        .Cells(i, 24).Copy xSh.Cells(i, 6)
        xSh.Cells(i, 7) = Format(xDate, "dd mmmm yyyy")
        xSh.Cells(i, 8) = Format(yDate, "dd mmmm yyyy")
        .Cells(i, 12).Copy xSh.Cells(i, 9)
        .Cells(i, 28).Copy xSh.Cells(i, 10)
        .Range(.Cells(i, 25), .Cells(i, 27)).Copy xSh.Cells(i, 11)
        Next
    End With
    
    xSh.Activate
    End Sub

  3. mksh master

  4. oya sriptnya disisipin di modul apa di sheet master?

 

atau Mendaftar untuk ikut berdiskusi!