Basole

Experimente: For i = 1 To 10 Me.Controls("Label" & i).Visible = True Next

Segue o codigo com as altereçoes: Dim x As Range, firstAddress As String For Each plan In Worksheets Set x = plan.Columns(1).Find(what:=Pnome) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select ActiveCell.Offset(0, 1).Select Pnomecurso = x.Text & " - " & ActiveCell Presultado.AddItem Pnomecurso Set x = plan.Columns(1).FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Nenhum resultado encontrado!" End If Next

Segue exemplo. Cole a função em um modulo padrão. Em seguida execute a macro Teste Os dados serão inseridos na coluna A Public Function Lista_Arquivos(ByVal sPath As String, Optional ByVal sFilter As String) Dim Arq As String If Right(sPath, 1) <> "\" Then sPath = sPath & "\" End If If sFilter = "" Then sFilter = "*.*" End If Arq = Dir(sPath & sFilter) Do Until Arq = "" With ActiveSheet .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row).Value = Arq Arq = Dir End With Loop End Function Sub Teste() Lista_Arquivos ThisWorkbook.Path, "*.xlsx" End Sub

@LeoDuraes peço desculpa caso se sinta constrangido. Não! @DJunqueira sua intenção é tumultuar e constranger, pois nem leu atentamente o que o autor discriminou, e ao contrario que afirma, não apresentou uma alternativa pratica, para que o autor pudesse analisar e aplicar o que convêm. O que fez foi apresentar uma critica ao autor a opção sobre a solução dada em vba. Percebi que gosta é de causar. Vide este topico: http://forum.clubedohardware.com.br/forums/topic/1178167-transpor-linha-para-coluna/#comment-6482968 Isso não acrescenta nada, só afasta as pessoas do fórum. Aos senhores moderadores e responsáveis por este fórum peço desculpa se quebrei alguma regra. E fiquem a vontade para me excluírem se necessário. Obrigado.

@LeoDuraes como diz o proprio titulo do tópico, voce quer ajuda com rotina VBA, Segue o codigo, ao inseri uma data na coluna E, a macro inseri os dados nas celulas anteriores: Cole o codigo no modulo da sua aba(planilha): Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long Lr = Cells(Rows.Count, 5).End(xlUp).Row If Target.Count > 1 Or Target.Value = "" Then Exit Sub If Not Intersect(Target, Range("E2:E" & Lr)) Is Nothing Then With ThisWorkbook Range("A" & Target.Row) = VBA.Format(Target.Value, "yyyy") Range("B" & Target.Row) = .Application.WorksheetFunction.Proper(VBA.Format(Target.Value, "mmmm")) Range("C" & Target.Row) = .Application.WorksheetFunction.Text(Target.Value, "mm") Range("D" & Target.Row) = .Application.WorksheetFunction.Text(Target.Value, "yyyy") & _ .Application.WorksheetFunction.Proper(VBA.Format(Target.Value, "mmmm")) End With End If End Sub End Sub

Discordo totalmente desta afrimação meu caro. Bastava inserir simplesmente uma formula de soma na coluna "I" O titulo do topico diz: "Somar horizontal vba" e os dados são inseridos atraves de um userform. Portanto o @LeoDuraes solicitou ajuda para somar os valores atraves do VBA, e segundo o autor do topico no post #3, a ajuda atendeu plenamente as suas expectativas. Nao quero discutir o motivo, mas talvez ele nao quer, ou nao possa utilizar formulas, pois neste forum todos tem a liberdade de fazer forma que quiserem, sem que alguém os intimidem.

Experimente usar: Application.Run "nomeDaMacro"

Esta meio confuso aqui pra mim, decifrar o que voce está querendo fazer. Acho que seira melhor explicar através de de um exemplo com alguns dados. De qq. forma veja se é isso: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Or Target.Value = "" Then Exit Sub If Not Intersect(Target, Range("C2:C999")) Is Nothing Then Cancel = True With Worksheets("Plan1") .Select .Range("$A$1:$AZ$10000").AutoFilter Field:=1, Criteria1:=Target.Value End With End If End Sub

Copie e cole o codigo abaixo no modulo da sua planilha (aba). Ao Clicar 2 vezes em qualquer celula, aparecera o autofiltro na coluna A Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True With Worksheets("Plan1") .Select .Range("A1").AutoFilter Field:=1, Criteria1:=Target.Value End With End Sub

Adiciona o seu arquivo para o *.ZIP. Se nao conseguir anexar, faça upload do seu arquivo a qualquer site gratuito (por exemplo link abaixo), em seguida coloque aqui o link. http://sendspace.com

Experimente desta forma: Range("A5").Select Selection.Formula = "=""Prozinco - "" & TEXTO(HOJE(),""mm-dd-aaaa"")"

@LuanaRoly Poste seu arquivo ou um exemplo com alguns dados fícticios.

Experimente esta alteração: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("D4") = "" Or Range("F4") = "" Or Range("K4") = "" Or Range("K6") = "" Or Range("G31") = "" Then MsgBox "Existem celulas em branco" & vbCrLf & _ "Verifique o preenchimento das células antes de Salvar!", vbCritical, "Verificando Dados Preenchidos" Cancel = True End If End Sub

Analisar sua planilha por imagens, fica complicado. Mas experimente alterar o intervalo da matriz F2:F1048576. acredito que neste intervalo tenha alguma informação que não seja "horario". Se alterar as linhas de F Altere tambem as do C.

Tamen uso 2010, e aqui pra mim funciona perfeitamente: Veja se não esta se equivocando em alguma coisa: Exemplo_Plutobinho_2.xlsx

Não precisa travar o intervalo. voce pode estender este intervalo, por exempo : ($A2:$A$1048576=$F$2)*($C2:$C$1048576) da 2ª a ultima linha do excel. Independente da qtd de login(s) na coluna, sem precisar ajustar a formula.

Veja este exemplo com matricial. Conforme disse o @Patropi todas as linhas devem ter o nome de quem logou Exemplo

O forum esta com algum problema para subir os arquivos. Segue o link Exemplo

Segue exemplo com procv max. min. Veja se atende Exemplo.xlsx

Poste seu arquivo ou um exemplo com alguns dados ficticios.

@Igor Cremonezi concordo em partes com voce. Mas imagine a situação. voce disponibiliza o seu tempo tentando entender o que faz um codigo de uma pessoa, e uma maneira de aperfeiçoa-lo, sendo que esta pessoa, já foi ajudada, em um outro Forum e já foi resolvido o problema, e voce não sabe disso. É o que acontece muito por aqui.

Baixei seu exemplo, mas infelizmente naço consegui entender o que voce esta tentando fazer. Seria bom se voce destacasse, os resultados desejados.

@Igor Cremonezi fica difícil querer ajudar quando. se pede ajuda em lugares diferentes, sem informar: Redução no tamanho do código (VBA)

@LeoDuraes segue exemplo: Sub Teste_Soma_Horizontal() Dim LR As Long With ActiveSheet LR = .Cells(Rows.Count, 1).End(xlUp).Row .Range("I" & LR).Value = Application.WorksheetFunction.Sum(.Range("B" & LR & ":H" & LR).Value) End With End Sub

@Adriano Delvali Desculpe, mas nao entendi exatamente o que quer fazer. Eu alterei a função (udf), para poder inserir + paramentros: Busca_Dados_Access("O_QUE_ESTA_ PROCURANDO";"NOME_TABELA";"CAMPO_PROCURA";CAMPO_RETORNA) Exemplo: =Busca_Dados_Access("5249";"Bonsucesso";"Análise";0) Laudo de Análise - Garantia da Qualidade.TESTE_4.xls