rodrigo.gaw

Olá vitorcdst, tente Isso... Coloca antes da tua Dim, ve se funciona 'Se você quiser fixar os títulos p/ imprimir. no caso esta selecionado a primeira linha'With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With Sheets("CAPA").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$E$50" 'Marca as linhas e colunas que correspondem as 08 páginas.'

Basole, consegui! Ufaaa!!! Não consegui exatamente como você mandou, mas foi de grande ajuda, consegui fazer alguns ajustes para adaptar a minha necessidade. segue código, vou postar a planilha teste que fiz se alguém mais precisar deste tipo de código. Abraçççç!!!! Sub Inserir_hora()On Error Resume Next Exibir = "Digite a hora ou Selecione uma Célula:" Título = "INSERT TEMPO/HORA" Tipo = 10 hora = Application.InputBox(Prompt:=Exibir, Title:=Título, Type:=Tipo, Default:="Formato Hora (hh:mm:ss) ex.:24:30:54") If Left(hora, 2) <= 23 Then Hr = Hour(hora) Mn = Minute(hora) SG = Second(hora) If SG > 0 Then Hora_tt = Format(SG, "00") & "s" End If If Mn > 0 Then Hora_tt = Format(Mn, "00") & "m" & Format(SG, "00") & "s" End If If Hr > 0 Then Hora_tt = Format((Hr * 60) + Mn, "00") & "m" & Format(SG, "00") & "s" End If End If If Left(hora, 2) > 23 Then Hr = Format((Left(hora, 2) * 60) + (Mid(hora, 4, 2)), "00") SG = Format(Mid(hora, 7, 2), "00") Hora_tt = Format(Hr, "00") & "m" & Format(SG, "00") & "s" End If Selection.Value = Hora_tt End Sub

Alguém consegue configurar via macro a hora para aparecer acima de 24h?

Amigo, me surgiu mais problema... Até aí tudo OK... Problema é que surgiu uma data maior que 24h... tipo "48:51:53" e ao invés de retornar o valor "2931m53s", esta retornando valor 51m53s... Vê se consegue me ajudar aí... valeu abraço!

Pô valeu Basole, resolveu certinho... Bem o que precisava.... Abraço!

Amigos, tenho a seguinte macro Sub Inserir_hora() Exibir = "Digite a hora ou Selecione uma Célula:" Título = "INSERT TEMPO/HORA" Tipo = 10 hora = Application.InputBox(Prompt:=Exibir, Title:=Título, Type:=Tipo, Default:="Formato Hora (hh:mm:ss) ex.:24:30:54") Hr = Hour(hora) Mn = Minute(hora) Sg = Second(hora) If Sg > 0 Then hora_tt = Hr & "s" End If If Mn > 0 Then hora_tt = Mn & "m" & Sg & "s" End If If Hr > 0 Then hora_tt = Hr & "h" & Mn & "m" & Sg & "s" End If Selection.Value = hora_tt End Sub Ela extrai os valores de Hora/Minuto/Segundo da inputbox selecionada, para ficar igual vemos nas contas de telefone cp, formato 01h20m08s, porém não consigo configurar para que o formato do tempo venha com dois dígitos igual ao exemplo... Da maneira que está ta retornando valor como 1h20m8s... Preciso que fique assim 01h20m08s... Alguém consegue me ajudar?