cek data di sheet kemudia copy

  1. 2 tahun lalu

    Selamat malam teman teman semua, minta bantuannya dong.
    saya kesulitan ingin menempatkan sintaks macro untuk mengecek apakah di sheet yang bernama Hasil_Macro memiliki data, jika ia hapus data kemudian copy data , jika tidak lakukan perintah mencopy data. dibawah ini saya tampilkan sintaks saya, mohon bantuannya

    Private Sub CommandButton2_Click()
    Dim strFName As String
    strFName = Sheet1.Range("D10").Value
    NamaFileUtama = ActiveWorkbook.Name
    'Call clear_konten
    If FileExists(strFName) Then
    If Not BookOpen(Dir(strFName)) Then
    Application.DisplayAlerts = False
    For i = 1 To 1
    Workbooks.Open filename:=strFName
    With ActiveWorkbook.Worksheets(nama_sheet)
    BarisTerakhirFilePilihan = .Cells(.Rows.Count, 1).End(xlUp).Row
    BarisTerakhirFileUtama = Workbooks(NamaFileUtama).Worksheets("Hasil_Macro") _
    .Cells(Workbooks(NamaFileUtama).Worksheets("Hasil_Macro").Rows.Count, 1).End(xlUp).Row
    .Range("A1:V1" & BarisTerakhirFilePilihan).Copy _
    Destination:=Workbooks(NamaFileUtama).Worksheets("Hasil_Macro").Range("A" & BarisTerakhirFileUtama)
    End With
    ActiveWorkbook.Close
    Next i
    Worksheets("Hasil_Macro").Activate
    End If
    Else
    MsgBox "Maaf Letak File Anda Kurang Jelas"
    End If
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!