Idézet: Root_Kiskacsa - Dátum: 2006. júl. 20., csütörtök - 17:00
Első kérdésre:
Columns(1).Find("Y").Insert xlDown
Ha az N-ből és Y-ból álló oszlop nem az első oszlop lenne, hanem pl. a második, akkor Coulumns(2)-re módosítsd a fenti kódot. Más oszlopszámnál értelemszerűen.
Második kérdésre:
Cells(1, 1).End(xlDown).Offset(1, 0).Row
Ez visszaadja neked az első szabad sor számát. Ha rögtön ki is akarod jelölni a sort, akkor a Row helyett Selectet írj. Ez igazából csak az első oszlopban keresi meg az első szabad cellát, de jelenleg a célra ez is megfelel. Egyetlen hibája, hogy ha az
első sor (ill. cella) üres, akkor hülyeséget ad vissza. Célszerű erre az esetre egy feltételt írni.
Végre sikerült még egy kis tudást magamra szedni, hogy tovább tudjak lépni (soha nem makróztam ezelőtt
). Eljutottam ahhoz a problémás részhez amihez írtál megoldást. Sajnos a függvényed csak a megtalált cella elé szúr be egy másik cellát, nem sort. Végül sikerült eszkábálni egy megoldást:
Columns(6).Find("Y").Select
Rows(ActiveCell.Row).Insertauto_activ
A második jó volt, egészen addig míg bele nem futottam néhány munkafüzetbe, ahol fejlécek voltak (üres sorokkal). A netről sikeresen kiollóztam ezt:
Sub FindLastCell()
Dim LastColumn As Integer
Dim LastRow As Long
Dim LastCell As Range
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Search for any entry, by searching backwards by Columns.
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
MsgBox Cells(LastRow, LastColumn).Address
End If
End Sub
Ez tökéletesen visszaadja az utolsó használt cellát.
Remélem nem gond, hogy ezeket így beírtam, hátha másnak is jól jön majd
Root_Kiskacsának meg egy nagy köszi még1x!
Jah, véletlenül nem tudtok valami e-book-ot alap excel makrózásról?!
Súgó
A téma zárva.
