Utolsó cella vizsgálata Excel makró

Utolsó cella vizsgálata Excel makró
2019-05-28T09:38:33+02:00
2019-05-28T16:16:23+02:00
2022-12-06T00:25:36+01:00
Nerich
Adott egy excel melyben van 10 munkalap ezek a munkalapok folyamatosan frissülnek, ezt a 10 munkalapot szeretném egy excel 1 munkalapján összesíteni. Ehhez azt találtam ki, hogy az excel futtatása előtt megvizsgálja az 1. munkalap "A" celláját megnézi, hogy melyik az utolsó cella és addig betölti egy tömbbe, majd a tömb értékét bemásolja az összesítő excel "A" cellájába. 

Csakhogy, a vannak olyan cellák ahol képlet van, melyben van egy olyan feltétel, hogy ha nincs kiválasztva semmi a listából akkor "" dob vissza, ez pedig 1500 celláig le van húzva, így mindig 1500 cellát ismer fel.

Dim lRow As Long On Error Resume Next lRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0
Hogy tudom ezt kiküszöbölni?

Köszönöm szépen a segítséget.

Nerich
Mutasd a teljes hozzászólást!
Szia!

Ne formulára, hanem értékre keress.
xlFormulas helyett xlValues.

Üdv.
Ps. Csak a pontosítás kedvéért: "A" cella nem létezik, csak "A1" és így tovább.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd