Lisandro_Oliveira
-
Total de itens
2 -
Registro em
-
Última visita
Tudo que Lisandro_Oliveira postou
-
Excel VBA - Textxbox - data por extenso
pergunta respondeu ao Rodrigo Lugão de Lisandro_Oliveira em Microsoft Office
Olá, você pode usar: Textbox1 = FormatDateTime(Now(), vbLongDate) ou Textbox1 = Format(Now(), "DD MMMM YYYY") abs, Lisandro Oliveira -
Olá, você pode fazer Via VBA com o codigo abaixo: Sub Test() Dim Col_A As String Dim Col_B As Date Dim Col_C As Date Dim l As Integer l = 1 Range("A1:C11").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _ , Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending, Orientation:=xlTopToBottom While Cells(l, 1) <> "" If Str(Cells(l, 1)) = Col_A Then Col_C = Cells(l, 3) Cells(l2, 7) = Col_C l = l + 1 Else Col_A = Str(Cells(l, 1)) Col_B = Cells(l, 2) Col_C = Cells(l, 3) l2 = l2 + 1 Cells(l2, 5) = Col_A Cells(l2, 6) = Col_B Cells(l2, 7) = Col_C l = l + 1 End If Wend End Sub ou se quiser pode tentar usar o SUBTOTAL agrupando por MAXIMO. abs, Lisandro Olivera