tag:blogger.com,1999:blog-17723799582770515512011-04-21T17:25:10.722-07:00Andrei Ignathttp://www.blogger.com/profile/07052187195005186020noreply@blogger.comBlogger31100tag:blogger.com,1999:blog-1772379958277051551.post-48712282745423128652008-05-12T16:13:00.001-07:002008-05-12T16:19:05.001-07:00

Public Sub Copiaza(GotoNewSheet as string)Dim GotoNewSheet As String Dim i As Integer i = ActiveCell.Row Dim rangeToCopy As Range Set rangeToCopy = Rows(i & ":" & i) 'selecteaza tot rindulDim r As Range Set r = Sheets(GotoNewSheet).UsedRange Sheets(GotoNewSheet).Select Sheets(GotoNewSheet).Range("A" & (r.Rows.Count + 1)).Select rangeToCopy.Copy

Andrei Ignathttp://www.blogger.com/profile/07052187195005186020noreply@blogger.com0tag:blogger.com,1999:blog-1772379958277051551.post-91570078645973866332008-04-15T13:52:00.000-07:002008-04-22T14:02:00.706-07:00

Vreti sa adaugati o luna la o data, dar nu stiti cite zile poate avea luna respectiva - 27 ? 30 ? 31 ?Folositi urmatorul macro:Function AdaugaData(r As Range, NumarLuni As Long) AdaugaData = DateAdd("M", NumarLuni, r)End FunctionNu uitati sa formatati celula ca data (CTRL+1,alegeti date)

Andrei Ignathttp://www.blogger.com/profile/07052187195005186020noreply@blogger.com0tag:blogger.com,1999:blog-1772379958277051551.post-81934515849206308942008-04-15T12:34:00.000-07:002008-12-09T02:24:49.585-08:00

Daca aveti Excel 2007, aveti noroc - este deja prevazut in filtre .Daca aveti Excel 2003, una din posibilitati este sa creeati un macro de forma urmatoare:Function Culoare(ByVal Rind As Range, CelulaCuloareDefault As Range) As String Dim v As Range, DefColor As Variant DefColor = CelulaCuloare.Interior.Color For Each r In CelRange.Cells If r.Interior.Color <> DefColor Then

Andrei Ignathttp://www.blogger.com/profile/07052187195005186020noreply@blogger.com0