[Polesoft Antispam][Polesoft Antispam]RE: excel

[Feca2]

Nagyon szépen köszönöm.
Ez igazán hasznos volt. Még egyszer hála és köszönet.

Pál Ferenc






Makrokészítés:
Állj az első átállítandó cellára
Eszközök/Makro/Új makro rögzítése
Állíts be gyorsbillentyűt (pl: ctrl+a - ebből csak az a-t kell beírni)
Mielőtt elkezded, nyomd be a Rögzítés eszköztáron a táblázatocskát (relatív
hivatkozás). A másikkal tudod majd leállítani a felvételt. (Ha nincs
Rögzítés eszköztár: Nézet/Eszköztárak/Rögzítés vége)

Csináld meg a cellaegyesítést (cellák kijelölése - célszerű billentyűzettel,
mert így kevesebbet "mászkálsz" feleslegesen; egyesítés)
Lépj az alatta levő cellára
Kattints a "Rögzítés vége" ikonra az eszköztáron.

A gyorsbillentyűt sűrűn nyomva futtasd ahányszor kell. Vagy:
Eszközök/Makro/Makrók... makrót kiválasztod, Szerkesztés
Megjegyzés sorok után
For i=1 to _ameddig akarod_
...
Next

**********

Ha nem megy, valamit rögzíts, és az alábbiakat próbáld meg a helyére tenni:

Sub Rögzítés1()
'
' Rögzítés1 Makró
' Rögzítette: ......
'
' Billentyűparancs: Ctrl+a
'
    For i = 1 To 20
    ActiveCell.Range("A1:B1").Select
    Selection.MergeCells = True
    ActiveCell.Offset(1, 0).Range("A1").Select
    Next
End Sub