SIMPAN DATA ANTAR FILE EXCEL VB

  1. 4 minggu lalu

    Mohon pencerahannya, mau nyimpan data dari file form ke file data tidak bisa
    berikut perintahnya
    Sub SaveDataMasterWorkbook()
    Dim wbMaster As Workbook
    Dim wbLocal As Workbook
    Dim masterNextRow As Long

    Set wbLocal = ThisWorkbook
    Set wbMaster = Workbooks.Open("D:\AUDIT\Data_Anggota.xlsx")
    masterNextRow = wbMaster.Worksheets("Data").Range("A" & wbMaster.Worksheets("Data").Rows.Count).End(x1Up).Offset(1).Row

    wbMaster.Worksheets("Data").Cells(masterNextRow, 1).Value = wbLocal.Wooksheets("Input").Range("F3").Value
    wbMaster.Worksheets("Data").Cells(masterNextRow, 2).Value = wbLocal.Wooksheets("Input").Range("F4").Value

    wbMaster.Close True
    MsgBox "Input Save"

    End Sub

    mohon pencerahannya para master, klo mau namabh tombol edit kira2 seperti apa ya caranya
    berikut datanya :

  2. mumuskh

    Agu 29 Jawaban Terpilih + 431 Poin

    mohon pencerahannya para master, klo mau namabh tombol edit kira2 seperti apa ya caranya
    berikut datanya :

  3. Caton

    Agu 31 Terverifikasi Indonesia + 18.913 Poin

    @mumuskh ...

    ... mau nyimpan data dari file form ke file data tidak bisa ...

    Maksud tidak bisa itu bagaimana? Tidak bisa yang Anda maksud bisa saja terjadi karena file yang akan dibuka tidak ada, atau nama filenya tidak sesuai, atau filenya sedang dibuka secara exclusive dsb. Kalaupun bisa dibuka, masalahnya bisa saja muncul karena sheetnya diproteksi, nama sheetnya salah, tidak ada datanya (kosong), dsb. Terlalu banyak kemungkinanya!

    Dan biasanya, VBA akan menampilkan pesan kesalahan (Error) jika ada baris script yang bermasalah. Coba pelajari kesalahannya dari informasi (pesan) tersebut.

    Lain kali upload file macro yang bermasalah agar dipahami masalahnya dimana.

    ... klo mau namabh tombol edit kira2 seperti apa ya caranya ...

    Bisa seperti yang Anda buat, pake Shape Object terus dikaitkan (assign) ke macro yang Anda buat. Atau bisa juga pake UserForm, agar proses editnya lebih fokus disatu jendela. Untuk mengambil data, caranya bisa beragam. Bisa pakai ListBox, ComboBox, Spin Button dsb.

    Demikian.

  4. terima kasih pencerahannya, sy coba- coba lagi mudah2an bisa

  5. Di sunting 4 minggu lalu oleh mumuskh

    setelah sy coba berkali2, nama file sudah sy ganti dengan nama Data masih tetap, kira2 dimana cara memperbaikinya mas @Caton, terima kaish banyak sblumnya

  6. Caton

    Sep 1 Terverifikasi Indonesia + 18.913 Poin

    @mumuskh ...

    Subscript Out of Range muncul antara lain disebabkan karena :

    — jumlah Worksheet hanya 3, tapi indeks sheet yang diakses lebih dari jumlah Worksheet, misalkan :

    Worksheets(4).Range("A1").Value = "Test"

    — Array yang diakses tidak sesuai dengan dimensi Array yang ditetapkan :

    Dim vData(1 To 3) As String
    
    vData(1) = "AAA"
    vData(2) = "BBB"
    vData(3) = "CCC"
    
    '+-- Error!
    vData(4) = "DDD"

    — dsb!

    Sebagaimana yang sudah saya sampaikan, upload file macro yang bermasalah agar dipahami masalahnya dimana.

    Demikian.

  7. 3 minggu lalu

    Mohon maaf master, sy coba cek kok belum ketemu masalahnya yang di maksud workhsetnya 3 dan index sheetnya lebih dari 3 yang mana ya, mohon ditunjukin, teirma kasih

  8. Di sunting 3 minggu lalu oleh mumuskh

    sy coba seperti ini sukses, tapi tidak bisa pindah ke baris berikutnya dan ketika terimpan masih buka file, kira2 gimanara supata bsia tersimpan ke baris berikutnya seta tidak usah membuka file databasenya(Data.xlsx). mohon pencerahannya
    Sub Oval1_Click()

    Dim a As String, b As String, c As Currency
    Dim wb As Workbook
    Dim wlocal As ThisWorkbook

    a = Range("A2").Value
    b = Range("A3").Value
    c = Range("A4").Value

    Set wb = Workbooks.Open("D:\AUDIT\Data.xlsx")
    'Set b_akhir = .Cells(.Rows.Count, 1).End(xlUp).Row

    With wb
    Range("A2").Value = a
    Range("B2").Value = b
    Range("C2").Value = c
    End With
    MsgBox "Data Berhasi Disimpan"
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!