Strona: [  << <   1   > >>  ]  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: 468
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
Pokaż profil karolinavb  Wy¶lij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1