Buat folder

  1. minggu lalu

    All bantuannya

    Saya ada makro untuk buat folder

    Sub folder()
    Dim i As Integer

    i = 2

    Do While Sheet3.Cells(i, 1).Value <> ""

    MkDir Sheet1.Range("j8") & "\" & Sheet3.Cells(i, 1).Value

    i = i + 1

    Loop

    End Sub

    Apa yg hrs saya ubah karena makro d atas jika folder sudah ada
    Makro error. Jadi tidak proses create folder selanjutnya yg belum ada foldernya

  2. Coba ditambahkan error handling aja @Meiby , contoh :

    Sub folder()
    Dim i As Integer

    On Error resume next
    i = 2
    Do While Sheet3.Cells(i, 1).Value <> ""
    MkDir Sheet1.Range("j8") & "\" & Sheet3.Cells(i, 1).Value
    i = i + 1
    Loop
    Next

    End Sub

  3. Mas @Dzakathar

    Compile error next without for

  4. Sorry mas @Dzakathar
    Sudah bisa mas, makasi bantuannya

    O ya "next" di bawa loop d hapus baru bs

  5. Makasi banyak ya mas @Dzakathar

 

atau Mendaftar untuk ikut berdiskusi!