Code vba macro untuk transpose khusus variasi saja

  1. 6 minggu lalu

    Permisi kak,,,, adakah yg bisa membantu saya..

    Saya membutuhkan kode vba macro untuk mengcopy data dengan berbagai variasi
    yang saya inginkan :

    1. Mengcopy data sesuai dgn jumlah variasi < copy menurun >

    untuk lebih jelasnya , saya lampirkan file yg dimaksud.

    @anggun123

    coba edit :

    If n = 1 Then

    menjadi

    If n = 0 Then

    kolom 12 (kolom L) jika di MOD dengan angka 3 hasilnya 0, sebelumnya kolom 10 (kolom J) jika di MOD dengan angka 3 hasilnya 1

    kemudian bagian ini :

    If Len(Var) = 0 And j = 10 Then

    karena j dimulai dari 12 maka 10 juga harus diganti jadi 12

    demikian

  2. manweljs_

    Jun 3 Terverifikasi + 10.044 Poin

    @anggun123 ... saya lampirkan file yg dimaksud.

    sepertinya filenya belum terlampir

  3. @manweljs_ ini kak,,, maaf ketinggalan ternyata

  4. manweljs_

    Jun 4 Terverifikasi + 10.044 Poin

    @anggun123

    coba cek lampiran, apakah demikian yang di maksud?

  5. Ya allah terima kasih mas,, sudah membantu,,,,

    Iya mas,,, itu yg saya harapkan
    smga mas nya lancar rezekinya,,, amin3x ya allah

  6. Di sunting 6 minggu lalu oleh anggun123

    Maaf kak @manweljs_

    ini saya coba tambahi beberapa kolom dan sya coba edit dikit2 ...
    tapi untuk hasilnya sedikit berantakan yaa kak,, kira2 salahnya dimana yaa kak :)

    sya taruh di sheet 1 kak

    terus untuk hasilnya ,, tidak bisa langsung wraptext yaaa kak
    jadinya antar baris,, jaraknya renggang2 :)

  7. manweljs_

    Jun 6 Terverifikasi + 10.044 Poin

    @anggun123

    ... kira2 salahnya dimana yaa...

    pada baris skrip :

    ...
           For j = 4 To 100
    ...


    edit menjadi :

    ...
           For j = 10 To 100
    ...

    nilai 4 adalah nilai kolom start untuk kolom "variasi1", jadi karena kolomnya pindah ke kolom J (kolom ke 10) jadi nilai 4 harus dirubah jadi 10

    nilai 100 adalah nilai kolom terakhir, sebenarnya kolom terakhir adalah kolom ke 69 tapi untuk jaga2 ada tambahan variasi, nilainya sengaja saya buat lebih, kalo kedepannya ada tambahan kolom lagi yang lebih dari kolom ke 100 tinggal di update aja menjadi 200 misalnya (terserah aja)

    ...terus untuk hasilnya ,, tidak bisa langsung wraptext yaaa...

    bisa aja, pada baris akhir tambahkan :

    ...
    Range("A5:O" & i).WrapText = True
    Rows("5:1000").EntireRow.AutoFit
    ...

  8. Terima kasih kak @manweljs_

  9. Maaf kak @manweljs_

    ini kalau variasinya kosong / tidak ada
    ternyata gk bisa jalan yaaa kak

    supaya bisa tetep jalan meskipun seumpama variasinya tidak ada.. kira2 edit di bagian mananya yaa kak

  10. manweljs_

    Jun 6 Terverifikasi + 10.044 Poin

    @anggun123 ...supaya bisa tetep jalan meskipun seumpama variasinya tidak ada.. kira2 edit di bagian mananya...

    kalo gak ada variasi SKU nya diisi apa? kan SKU berdasarkan variasi

  11. Bisa tidak kak yaa,,,
    kalau seumpama Variasinya kosong,, yg kosong tersebut diseting terisi "Multi warna" di Variasi1 nya saja

  12. manweljs_

    Jun 6 Terverifikasi + 10.044 Poin
    Di sunting 6 minggu lalu oleh manweljs_

    @anggun123

    mulai dari baris For j = 10 To 100 sampai baris Next j edit menjadi :

    ...
            For j = 10 To 100
                n = j Mod 3
                If n = 1 Then
                    Var = .Cells(i, j)
                    If Len(Var) = 0 And j = 10 Then
                        x = Range("A" & Rows.Count).End(xlUp).Row + 1
                        Cells(x, 1) = i - 1
                        Cells(x, 2) = produk
                        Cells(x, 3) = harga
                        Cells(x, 4) = berat
                        Cells(x, 5) = deskripsi
                        Cells(x, 6) = gbr1
                        Cells(x, 7) = gbr2
                        Cells(x, 8) = gbr3
                        Cells(x, 9) = gbr4
                        Cells(x, 10) = gbr5
                        Cells(x, 11) = SKU & "-" & "Multi Warna" 
                        Cells(x, 12) = SKU & "-" & "Multi Warna"
                        Cells(x, 13) = SKU & "-" & "Multi Warna"
                        Cells(x, 14) = 0
                        Cells(x, 15) = 0
                    ElseIf Len(Var) Then
                        x = Range("A" & Rows.Count).End(xlUp).Row + 1
                        Cells(x, 1) = i - 1
                        Cells(x, 2) = produk
                        Cells(x, 3) = harga
                        Cells(x, 4) = berat
                        Cells(x, 5) = deskripsi
                        Cells(x, 6) = gbr1
                        Cells(x, 7) = gbr2
                        Cells(x, 8) = gbr3
                        Cells(x, 9) = gbr4
                        Cells(x, 10) = gbr5
                        Cells(x, 11) = AssSKU
                        Cells(x, 12) = SKU & "-" & Var
                        Cells(x, 13) = .Cells(i, j)
                        Cells(x, 14) = .Cells(i, j + 1)
                        Cells(x, 15) = .Cells(i, j + 2)
                    End If
                End If
            Next j
    ...

    pada baris

    ...
                        Cells(x, 11) = SKU & "-" & "Multi Warna" 
                        Cells(x, 12) = SKU & "-" & "Multi Warna"
                        Cells(x, 13) = SKU & "-" & "Multi Warna"
                        Cells(x, 14) = 0
                        Cells(x, 15) = 0
    ...


    disesuaikan sj apa yang mau diisi

  13. Di sunting 6 minggu lalu oleh anggun123

    makasih kak,, @manweljs_
    sudah jalan,,,,
    cuman ada kurang dikit ini kak,,,,

    u/ Kolom M / Variasi

    keluar SKU001 Multi Warna >>> Harapannya " Multi Warna" saja kak

    u/ kolom Harga,,, harapannya mengikuti harga yg sdh ada atau tidak 0
    u/ stock,,, di buat 1000 supaya tidak 0

    sebelumnya saya ucapkan terima kasih kak sudah bersedia membantu..

  14. manweljs_

    Jun 6 Terverifikasi + 10.044 Poin
    Di sunting 6 minggu lalu oleh manweljs_

    @anggun123

    itu yang saya maksud dengan ini

    pada baris

    ...
    Cells(x, 11) = SKU & "-" & "Multi Warna"
    Cells(x, 12) = SKU & "-" & "Multi Warna"
    Cells(x, 13) = SKU & "-" & "Multi Warna"
    Cells(x, 14) = 0
    Cells(x, 15) = 0
    ...

    disesuaikan sj apa yang mau diisi

    jadi silahkan disesuaikan sendiri, toh sebelumnya sudah bisa edit sendiri skripnya :)

  15. ohhh iy kak @manweljs_ ,,, maaf baru ngeh,,,,

    alhamdulillah berhasil kak,,,
    makasih banget kak,,, :)

  16. 5 minggu lalu

    kak @manweljs_

    Kalau error gini knpa yaa.... ini setelah baris ke 1000

  17. manweljs_

    Jun 8 Terverifikasi + 10.044 Poin

    @anggun123 kak @manweljs_

    Kalau error gini knpa yaa.... ini setelah baris ke 1000

    karena baris ini :

    ...
     SKU = "SKU" & WorksheetFunction.Rept("0", 3 - Len(i - 1)) & i - 1
    ...


    Fungsi Rept disini hanya mengakomodir untuk 3 digit, sementara 1000 itu sudah 4 digit.

  18. Terima kasih kak @manweljs_ sudah bisa .. angka 3 saya edit menjadi 4
    tapi ini ada sedikit kendala kak...

    Ketika contoh variasi ada di kolom Tengah kosong, maka menjadi variasi duplikat kak,,, yg diharapkan kalau kolomnya kosong,,, maka mengikuti kosong juga kak

    Kira2 edit dibagian mana yaa kak :)
    sebelumnya saya ucapkan terima kasih kak @manweljs_ atas bantuannya

  19. @anggun123

    coba tambahkan baris skrip yg saya tandai di gambar ini
    nextj.PNG

    bisa gak?

  20. @manweljs_ masih sama kak,, hasilnya :)

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!