Melakukan copy paste sesuai dengan barus kolom tertentu

  1. 6 tahun lalu

    Permisi agan, ane mau tanya script untuk paste sesuai dengan row tertentu, mis ane ada data nilai a (a1:d1) dan nilai b (a3:d10) pingin di copy dan paste di k1 untuk nilai a dan o1 untuk nilai b, jumlah row untuk nilai a sama dengan jumlah row nilai b (hasilnya sejajar rownya), mohon bantuannya

  2. Di sunting 6 tahun lalu oleh manweljs_

    @ardi bens

    coba dilampirkan contoh filenya

    atau coba skrip berikut:

    Sub tes()
    a = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("A1:D1").Copy Range("K1:N" & a - 2)
    Range("A3:D" & a).Copy Range("O1")
    
    End Sub

  3. iya om, maaf masih amatiran ane.. :D
    terlampir ya om

  4. Di sunting 6 tahun lalu oleh manweljs_

    @ardi bens

    nah kan, penjelasannya beda dengan file contohnya :D

    edit skripnya menjadi :

    Private Sub CommandButton1_Click()
    a = Range("C" & Rows.Count).End(xlUp).Row
    b = Range("A1:A4")
    
    Range("K1:N" & a) = Application.Transpose(b)
    Range("C1:E" & a).Copy Range("O1")
    
    End Sub

    Option Explicit nya di hapus aja

  5. tq bgt om, berhasil ane jadiin paste value nilai b

    a = Sheets("Form RCSA").Range("b" & Rows.Count).End(xlUp).Row
    b = Sheets("Form RCSA").Range("m4:m7")
    Range("a4:d" & a) = Application.Transpose(b)
    Sheets("Form RCSA").Range("b11:p" & a).Copy
    Range("e4").PasteSpecial Paste:=xlPasteValues

    maaf terkadang tangan ane sama otak ga singkron. . hihihhii

  6. Di sunting 6 tahun lalu oleh manweljs_

    @ardi bens

    ...maaf terkadang tangan ane sama otak ga singkron. . hihihhii

    bisa jadi :P

    soalnya pertanyaan, contoh file dan skrip final semuanya beda2. dan sepertinya skrip tersebut membuat datanya tumpang tindih, berbeda dengan penjelasan dan contoh file

 

atau Mendaftar untuk ikut berdiskusi!