Jose Herique Santos

Caros colegas, boa tarde. Tenho um formulário onde tem um listview, porém, na minha guia, tem mais de 4 mil cadastros. Ao fazer o listview trazer esses cadastros dá este erro: Erro em tempo de execução '13': Tipo incompatíveis. Segue abaixo o código que estou utilizando: Dim valor_pesq As String Dim linha1 As Long Dim coluna1 As Long Dim valor_celula Dim id valor_pesq = TextBox1.Text coluna1 = 2 linha1 = 2 id = TextBox1 ListView1.ListItems.Clear Plan4.Select With Plan4 While .Cells(linha1, coluna1).Value <> Empty valor_celula = .Cells(linha1, coluna1).Value If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) Then Set li = ListView1.ListItems.Add(Text:=Plan4.Cells(linha1, 1).Value) 'Matrícula li.ListSubItems.Add Text:=Plan4.Cells(linha1, 2).Value 'Colaborador li.ListSubItems.Add Text:=Plan4.Cells(linha1, 3).Value 'Função li.ListSubItems.Add Text:=Plan4.Cells(linha1, 4).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 5).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 6).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 7).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 8).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 9).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 10).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 11).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 12).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 13).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 14).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 15).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 16).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 17).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 18).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 19).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 20).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 21).Value li.ListSubItems.Add Text:=Plan4.Cells(linha1, 22).Value End If Label271 = Me.ListView1.ListItems.Count Set Lv = Nothing linha1 = linha1 + 1 Wend End With Um abraço.

Olá pessoal, Estou tentando extrair da diferença de datas (Col A e Col B ) quantos dias caíram em cada mês. Segue em anexo o arquivo. Desde já o meu muito obrigado. EXTRAIR DIAS_DATA.xlsx

@CasaDoHardware, bom dia. Consegui!!! No código onde salvo a data do meu textbox para o excel, usei este comando: CDATE(Textbox1). Agradeço a sua ajuda. Um abraço.

@CasaDoHardware Já fiz isso, e mesmo assim não funciona.

Olá, pessoal. Estou tentando salvar um valor da minha textbox no excel em formato de data, para ser contabilizado através de fórmulas, o que não estou conseguindo. Como o código que estou utilizando, estou conseguindo salvar no formato de texto "dd/mm/yyyy", ao utilizar filtros e fórmulas o valor não é reconhecido como data. O valor inserido pelo meu formulário no campo data, se der dois cliques, automaticamente o excel o transforma em data. Estou utilizando este código: textbox1.value = format(textbox1.value, "dd/mm/yyyy"). Desde já, o meu muito obrigado.

Estou tentando mensurar dinâmicamente todos os colaboradores ainda trabalhando até o fechamento do mês anterior ao mês da coluna G. (ex em janeiro contabilizamos os colaboradores ativos de dezembro do mês anterior) Não contabilizando admissões e demissões posterior ao período, para que não haja novo resultado após admissão ou demissão impactando no resultado. O resultado esperado para janeiro seriam todos os colaboradores ativos (não demitidos) até antes de iniciar janeiro/17. que neste caso seriam os colaboradores destacados de cor vermelha. *Em anexo arquivo de exemplo. Desde já agradeço. pA.xlsx

Olá pessoal, bom dia. Estou precisando criar uma macro (módulo) que deverá contar quantas pessoas estão em cada faixa, porém, a macro deverá levar em consideração que eu posso usar faixas etárias com limites diferentes dos atuais e que a quantidade de pessoas e a quantidade de faixas são fixas. O resultado deve aparecer na coluna D (frequência), ao clicar no botão Relatório. Segue em anexo a planilha. Lembrando que, não posso utilizar a função workbook.function. Desde já agradeço. Faixa etaria.xlsx