Maaf, cuplikan vba tertinggal..
Sub CreateSheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To Sheet1.UsedRange.Rows.Count
'copy sheet template
Sheets("Tmplt").Select
Sheets("Tmplt").Copy After:=Sheets(Sheets.Count)
Sheets("Tmplt (2)").Select
Sheets("Tmplt (2)").Name = Sheet1.Range("A" & i)
'isi data company
Sheet1.Activate
Sheet1.Range("A" & i & ":H" & i).Select
Selection.Copy
Sheets(Sheets.Count).Activate
'Sheets(Sheet1.Range("A" & i)).Select
Sheets(Sheets.Count).Range("B3:B10").PasteSpecial
Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
'isi data issue
baris_issue = 13
For j = 2 To Sheet2.UsedRange.Rows.Count
If Sheet2.Range("A" & j) = Sheet1.Range("A" & i) Then
Sheet2.Activate
Sheet2.Range("B" & j & ":G" & j).Select
Selection.Copy
Sheets(Sheets.Count).Activate
Sheets(Sheets.Count).Range("A" & baris_issue).PasteSpecial
Paste:=xlPasteValues, Transpose:=False
Application.CutCopyMode = False
baris_issue = baris_issue + 1
End If
Next j
'buat border
With Sheets(Sheets.Count).Range("A13:F" &
Sheets(Sheets.Count).UsedRange.Rows.Count)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlMedium
.Borders(xlInsideHorizontal).Weight = xlMedium
End With
Sheets(Sheets.Count).Range("A1").Select
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheet1.Activate
Sheet1.Range("A1").Select
MsgBox "Create customer card selesai", vbInformation, "Success.."
End Sub
Blessings
Fran'z
On 7/16/11, Tjahya Hartono <[email protected]> wrote:
> Dear master ex-cel
>
> Saya ingin membuat customer card in dalam sheet-sheet baru,tambahannya
> adalah saya perlu untuk menginput data "tanggal", "issue",pic &
> position,"cre","kmd" dan "comments" setiap saat. Adakah yang bisa membantu
> saya
>
>
>
> Regards
>
>
> Tjahya
>
