Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Jak wkleić łącze

bobol · Wysłany: 16-02-2007, 18:55 **Jak wkleić łącze**

Witam wszystkich!

Mam taki sobie skoroszyt który ma 160 ukrytych arkuszy i jeden aktywny.
Jak wkleić łącze obszaru np."A2:B150" z tego jednego do wszystkich pozostałych
adres np. "S5".
Zrobienie tego na piechotę znichęca mnie do życia.

Tajan · **Pomógł:** 5501 razy Posty: 11968

Chodzi Ci o wklejenie grupy formuł odwołujących się do kolejnych komórek w obszarze A2:B150? Jeżeli tak, to wypróbuj takie makro:

Kod:

Sub WklejFormuly()
Dim ark As Worksheet
Dim akt As Worksheet
Dim obsz As Range

Set akt = Worksheets("Arkusz1")
Set obsz = akt.Range("A2:B150")

For Each ark In Worksheets

If Not ark Is akt Then

With ark.Range("S5").Resize(obsz.Rows.Count, obsz.Columns.Count)

.Formula = "=" & _
obsz.Cells(1).Address(0, 0, external:=True)

End With

End If

Next
End Sub

Nazwę "arkusz1" zmień na właściwą nazwę aktywnego arkusza.

bobol · Wysłany: 16-02-2007, 21:55

Dzięki Tajan!

Właśnie to jest to.
Pozdrawiam