bekerja berpindah pindah di banyak sheet, penyebutan RANGE harus
tidak melupakan menyebut INDUKnya (lha vba nya kan binun')
setiap step loop mengunjungi ahhet tertentu
sheet tsb dianggap bernama BT
anda beum menuliskan nama sheetnya
coba dimodifikasi spt ini supaya jelas
mana yg mauk dicopy; mana pulak tempat menempelkan ...
Sub CopyFormula()
Dim Bt As Worksheet
For Each Bt in Worksheets
* Sheet1*.Range ("A1").Copy Destination:=*Bt.*Range("A2")
Next Bt
End Sub
2008/7/17 Iman Chandra <[EMAIL PROTECTED]>:
> 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
>
