Igor F.

Eu te recomendo pegar o da Acer mesmo, esse MTek já ouvi falar dele e vi uns vídeos na internet, parece ser bom. O problema é a garantia, creio eu que não possui aqui no Brasil, ai seria somente com o vendedor.

Rapaz pelo preço eu não pensava 2 vezes. É um excelente monitor!

@Kikeitu essas "algumas coisas" seria?

Bom dia, estou com um problema que está me irritando bastante, trabalho com leilões e uso 4 notebooks e 1 impressora, o meu problema é que sempre que vou para outro local e uso outro roteador tenho que configurar tudo de novo. Tem alguma solução para isso? Como por exemplo comprar um repetidor? Não faço ideia de como resolver. OBS.: Tem lugares que só estou autorizado a usar o Wifi, não tenho acesso ao roteador!

@André_Arruda a penúltima linha deu erro.

Opa, estou com uma dúvida. Quero selecionar sempre o A1 até a última linha vazia. Lembrando que a planilha está sempre sendo atualizada, para adição de novas despesas/receitas. Só isso mesmo rs

Já consegui resolver, obrigado!

Já consegui resolver, obrigado!

Não deu certo... Não deu certo... Pagamentos funcionários bouzada.rar

Estou fazendo uma planilha de pagamentos, diferente de outros pois aqui no serviço funciona assim, mas enfim. Gostaria de quando fosse "aplicado" um pagamento ele pegasse e confirma-se o nome do funcionário, se o nome bater ir até a parte RESTANTE e diminuir a quantidade "paga" de acordo com o valor do funcionário setado. A função que eu usei foi o SE: =SE(B10=I4;C4-C10;0) B10 = Nome do funcionário. I4 = Checa o nome do funcionário na parte restante. C4 = Salário do funcionário. C10 = Valor pago ao funcionário.

Tópico certo? kk

1. Estou tentando fazer com que o número 1 se transforme em 000001 ao ser gravado em uma planilha através do meu projeto VBA. Porém da um erro e não sei resolver kkk Como faço para passar o número para a planilha nesse formato? (IMAGEM 1) 2. Gostaria de quando fosse aberto a planilha o número do recibo fosse alterado conforme a formatação. (IMAGEM 2) Código: Private Sub UserForm_Initialize() Sheets(1).Activate Me.ctxtdata.Text = Range("G16") Me.txtcrecibo.Text = Range("G3") End Sub (imagem 1) (imagem 2)

Rapaz eu sou bem iniciante kk, queria mesmo é um código especifico para o que eu pedi. Mas valeu pela ideia!

Olá, sou novato nessa área de programação VBA, e preciso desse "programa" de recibo para facilitar o trabalho aqui na empresa kk Já ta salvando tudo certinho, a parada é a formatação. Como por exemplo ao passar do userform (formpesquisa) para sheets(2) (DADOS) e passar com as formatações corretas de destino. Queria algumas coisas a serem alteradas: kk 1. No userform na parte do recibo fazer a formatação igual da planilha 2 (dados), de 6 para 000006 2. Formatação ao digitar do cpf 12365478920 para 123.654.789-20 3. Data 17051997 para 17/05/1997 4. Se possivel fazer uma caixa de seleção para o emitente, com o nome dos emitentes. 5. Se possível² fazer uma atualização automatica quando o recibo for gerado o numero do recibo será atualizado. Código do btnincluir: Private Sub btnincluir_Click() Sheets(1).Activate ' VALOR ActiveSheet.Range("J3").Select ActiveCell.Value = Me.ctxtvalor ' CLIENTE ActiveSheet.Range("E6").Select ActiveCell.Value = Me.ctxtcliente ' CPF ActiveSheet.Range("J6").Select ActiveCell.Value = Me.ctxtcpf ' VEICULO ActiveSheet.Range("E11").Select ActiveCell.Value = Me.ctxtveiculo ' PLACA ActiveSheet.Range("J11").Select ActiveCell.Value = Me.ctxtplaca ' EMITENTE ActiveSheet.Range("G15").Select ActiveCell.Value = Me.ctxtemitente linha = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets(2).Range("A" & linha) = Me.txtcrecibo Sheets(2).Range("B" & linha) = Me.ctxtcliente Sheets(2).Range("C" & linha) = Me.ctxtcpf Sheets(2).Range("D" & linha) = Me.ctxtveiculo Sheets(2).Range("E" & linha) = Me.ctxtplaca Sheets(2).Range("F" & linha) = Me.ctxtvalor Sheets(2).Range("G" & linha) = Me.ctxtemitente Sheets(2).Range("H" & linha) = Me.ctxtdata MsgBox "Recibo gerado com sucesso!", vbInformation, "" P_Range = "A1:L18" ActiveSheet.PageSetup.PrintArea = P_Range ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _ IgnorePrintAreas:=False ctxtvalor.Text = "" ctxtcliente.Text = "" ctxtcpf.Text = "" ctxtveiculo.Text = "" ctxtplaca.Text = "" ctxtemitente.Text = "" Me.Hide End Sub Comandos ao inicializar: Private Sub UserForm_Initialize() Me.txtcliente.Enabled = False Me.txtcpf.Enabled = False Me.txtdata.Enabled = False Me.txtemitente.Enabled = False Me.txtvalor.Enabled = False Me.txtveiculo.Enabled = False Me.txtplaca.Enabled = False Me.txtcrecibo.Enabled = False Me.ctxtdata.Enabled = False Sheets(1).Activate Me.ctxtdata.Text = Range("G16") Me.txtcrecibo.Text = Range("G3") End Sub

Valeu!

Rapaz, muito obrigado! Agora sobre formatação como eu faço para personalizar a numeração do CPF, tipo 10054685601 para 100.546.856-01, o mesmo para valor.

Deu mais ou menos certo, deu alguns bugs abaixo segue o arquivo exemplo. RECIBO (version 1).rar

@Basole Eu só preciso de um código que ao pressionar o botão pesquisar me dê as informações que eu quero. Em relação a textbox e essas coisas eu altero aqui... (: @Edit Achei esse código na internet e fiz, antes tinha dado certo depois fui abrir a planilha e deu erro... O que tem de errado? Private Sub btnpesquisar_Click() With Worksheets(2).Range("A:A") Set c = .Find(txtcodigo.Value, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing Then c.Activate txtcodigo.Value = c.Value txtcliente.Value = c.Offset(0, 1).Value txtcpf.Value = c.Offset(0, 2).Value txtveiculo.Value = c.Offset(0, 3).Value txtplaca.Value = c.Offset(0, 4).Value txtvalor.Value = c.Offset(0, 5).Value txtemitente.Value = c.Offset(0, 6).Value txtdata.Value = c.Offset(0, 7).Value Else MsgBox "Digite o número do recibo!", vbCritical, "" End If End With End Sub

@Basole Obrigado, mas eu queria mesmo é os códigos para usar na minha planilha, não manjo muito! kk

Estou fazendo um recibo pelo excel, e pretendo facilitar as coisas kk, como por exemplo fazer um programa dentro do próprio excel para ser mais eficiente, pois no meu local de trabalho é muito movimentado. Queria um código que ao pesquisar o número do recibo gerasse as informações pedidas... Grato!

Ok, obrigado galera!

Me ajudaram demais! Valeu mesmo. Irei pegar uma 400w da PCYes! Essa fonte aguenta essa config?: GTX 1050 TI PENTIUM G4560 4GB DDR4 2400 1TB HD 120GB SSD

Entendi. Mas sobre a fonte, essas da pcyes e essa xfx são "bombas" ou pela config quebra um galho? E entre essas duas qual é a melhor?

A configuração que estou montando é: Pentium G4560 Ram 4gb ddr4 2400 placa-mãe gigabyte LGA 1151 GA-H110M-H 1tb SEAGATE Placa de vídeo não escolhi ainda, mas estou entre alguma 1050 ou uma r7 360, se quiserem me recomendem alguma placa de vídeo boa. Será que vale a pena pega essa pcyes 430?