Cara 1 (dengan macro)
coba kode berikut ini:
Sub kopi()
Application.CutCopyMode = True
semua = Sheets.Count
For i = 1 To semua
Sheets("Sheet1").Range("A1").Copy
Sheets(i).Range("A2").PasteSpecial
Next i
Application.CutCopyMode = False
End Sub
Cara 2 (tanpa macro)
1.Klik kanan sheet > pilih select all sheets
2.Lakukan copy paste seperti biasa pada sheet1
3.Tekan F2
4.Tekan Ctrl+Enter
--- On Wed, 7/16/08, Iman Chandra <[EMAIL PROTECTED]> wrote:
From: Iman Chandra <[EMAIL PROTECTED]>
Subject: ]] XL-mania [[ Tanya Macro utk semua sheet
To: [email protected]
Date: Wednesday, July 16, 2008, 11:26 PM
Dear all,
Mohon bantuannya.
Di Sheet 1 cell A1 ada formula =B1+C1
Saya ingin copy formula itu ke cell A2 di Sheet1, Sheet2, Sheet3, dst
Inginnya sekali run macro tersebut otomatis berlaku utk Sheet1, Sheet2, Sheet3,
dst.
Saya coba buat dgn Dim dan For Each, tapi kok gak jalan otomatis ya. Mesti
masuk ke masing2 sheet dulu baru jalan.
Mohon bantuannya.. .
Ini code macro saya
Sub CopyFormula( )
Dim Bt As Worksheet
For Each Bt in Worksheets
Range ("A1").Copy Destination: =Range("A2")
Next Bt
End Sub
Salam,
Iman
