Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: pls HELP anonim Typ: Nie zarejestrowany pls HELP Mam bardzo duzy problem, ktory pewnie dla wielu z Was jest trywialny. Zalozmy ze mam w excelu parenascie wierszy danych. Potrzebuje napisac macro ktore znajdowaloby mi pierwsza pusta komorke w kolumnie A i ja uaktywnialo. Bede bardzo wdzieczny za pomoc.Dzieki 30-01-2005 12:20 karolinavb Typ: neutral Postów: 467 Zarejestrowany: Jan 2003 Nie napisałe¶ czy chcesz tej pustej komórki szukać na końcu tabeli (pierwszy nie wypełniony wiersz) czy może gdzie¶ w ¶rodku tabeli, spróbuj więc poniższe....(SpecialCells Method) Sub Puste() Dim iLastRow As Long Dim oWS As Worksheet Set oWS = Worksheets("test" ) With oWS '''' obliczenie ostatniego wypełnionego wiersza w kolumnie A '''' w ¶rodku zakresu mog± byc dziury iLastRow = .Cells(Rows.Count, "A" ).End(xlUp).Row .Cells(iLastRow + 1, 1).Select MsgBox iLastRow '''' pierwszy pusty (dziura)w kolumnie A dalsze mog± być np wypełnione iLastRow = .Range("A:A" ).SpecialCells(xlCellTypeBlanks)(1).Row .Cells(iLastRow, 1).Select MsgBox iLastRow '''' ostatni wiersz do którego kiedykolwiek zostały wpisane jakie¶ dane iLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row .Cells(iLastRow + 1, 1).Select MsgBox iLastRow End With End Sub _____________________________________________ Karolina 30-01-2005 15:39 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |