Scribd
Upload
4 views1 page

Script Copy Vba Excel

Uploaded by

asep.aris43
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
4 views1 page

Script Copy Vba Excel

Uploaded by

asep.aris43
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

(General)

Sub RectangleRoundedCorners1_Click()
Dim PathFile As String
PathFile = [Link] & "\" & "Destination" & ".xlsx"
[Link] (PathFile)
[Link]
End Sub

Sub RectangleRoundedCorners2_Click()
Dim WB As Workbook
For Each WB In Workbooks
If [Link] = "[Link]" Then
[Link]
MsgBox "Workbook berhasil di tutup"
End If
Next
End Sub

Sub RectangleRoundedCorners3_Click()
On Error Resume Next
Dim wsCopyData As Worksheet
Dim wsPasteData As Worksheet
Dim CpyIrow As Long
Dim RANGE1, RANGE2, RANGE3, RANGE4 As Range

Set wsCopyData = Workbooks("MASTER [Link]").Worksheets("SHEET1")


Set wsPasteData = Workbooks("[Link]").Worksheets("SHEET1")

CpyIrow = [Link]([Link], 1).End(xlUp).Row


Set RANGE1 = [Link]("A3:b" & CpyIrow)
Set RANGE2 = [Link]("F3:F" & CpyIrow)
Set RANGE3 = [Link]("G3:H" & CpyIrow)
Set RANGE4 = [Link]("J3:J" & CpyIrow)
Set Multirange = Union(RANGE1, RANGE2, RANGE3, RANGE4)
[Link] [Link]("A1")

End Sub

You might also like