Input data + nambah column baru

  1. tahun lalu

    Hai sepuh ada lagi ni case yang membuat saya heran
    Bagaimana nambahin column baru dan tidak mengganggu inputan lainnya
    Contoh field column nya a12:18
    Nah setelah kita input sampai 18 nanti secara otomatis nambahin column di line 19
    Dan kita input lgi di 19 nanti nambah column kosong di 20
    Dan seterusnya apakah bisa?

    Terimakasih

  2. @Petter Jo Hai sepuh ada lagi ni case yang membuat saya heran
    Bagaimana nambahin column baru dan tidak mengganggu inputan lainnya

    ini ngomong kolom apa row?

    kok kolom dibilang line?

  3. Kalau memang yg dimaksudkan kolom,

    coba file terlampir .

    dan please noted,kalaupun tdk bisa memberikan file terkait sbg sample,minimal tolong kirimkan screenshot/pict nya sbg gambaran yg dimaksudkan agar tdk membingungkan .kalau tdk,jangan salahkan yg menjawab jika tdk sesuai dg yg diinginkan .

    Input data + nambah column baru.png
    Input data + nambah column baru.xlsm

  4. Wah iya maaf sepuh yg saya maksud line row (baris) berikut gambarnya saya foto
    Lain kali saya bakal foto saja lgsung
    Seperti digambar kalo inputan sudah ke line 22 makan di 23 bakal muncul line baru.

    Mohon code nya saja sepuh soalnya saya cmn bisa buka di hp

  5. hadeuh...

    kutandai kau ya ....

    coba coding ini di sheet yg sedang dipakai(activesheet) :

    Private Sub Worksheet_Change(ByVal Target As Range)
    With Application.WorksheetFunction
    str1 = .Match("No.", Range("A1:A65536"), 0) + 1 ' to define where (row of target cell which has) : "No." word located
    Str2 = .Match("Accrual Requestor" & "*", Range("A1:A65536"), 0) - 1 ' to define where (row of target cell which has) "Accrual Requestor" word located
    Mycount = .CountBlank(Range("B" & str1 & ":B" & Str2)) ' to count blank data
    If Not Intersect(Target, Range("A" & str1 & ":I" & Str2)) Is Nothing And Mycount <= 1 Then ' it define that : if blank row between row 14 & row 26 has blank less or equal to 1 then it should add new row
    Myaddr = ActiveCell.Address 'to define latest activecell
    Rows(Str2 & ":" & Str2).Select
    Selection.Insert Shift:=xlDown
    Range(Myaddr).Select
    End If
    End With
    End Sub
    

    Input data + nambah row baru.xlsm

  6. Di sunting tahun lalu oleh Petter Jo

    Wahhh maaf sepuh
    Dan terimakasih banyak sangat worth it

 

atau Mendaftar untuk ikut berdiskusi!