megoldást keresek erre a problémára
-
#2160
A Columns.Count a lapon (füzetben) lévő oszlopok száma, a Rows.Count pedig a soroké. 2007-es verziótól kezdve ezek az értékek 1024-szeresükre nőttek az előző verziókhoz képest.
![]()
1 oszlop=cells(1,"F").end(xltoleft).column
2 oszlop=cells(4,"A").end(xltoright).column
3 oszlop=cells(1,columns.count).end(xltoleft).column
4 oszlop=cells(4,"D").end(xltoright).column
5 sor=cells(4,"D").end(xldown).row
6 sor=cells(9,"D").end(xldown).row
7 sor=cells(1,"H").end(xldown).row
8 sor=cells(rows.count,"H").end(xlup).row
Állíts össze a kép szerinti kis táblákat – akár többet –, valamelyikben állva nyomj Ctrl+nyilat (fel, le, jobbra, balra). A hatásukból azonnal megérted a választ.
Az If-es kérdésedhez: a 2. a jó. Akkor hajtódik végre az If és End If közötti utasítás, ha az E14 cellába vittél be adatot a billentyűzetről. 1 cella helyett tartományt is megadhatsz.
if Not Intersect(Target, Range("E14:H20")) Is Nothing then
