Ir ao conteúdo
  • Cadastre-se

c.reboucas

Membro Júnior
  • Posts

    8
  • Cadastrado em

  • Última visita

Reputação

0
  1. Patropi, A planilha está muito pesada. Você poderá acessar através do link https://www.sendspace.com/file/27d66q
  2. Prezados, Estou tentando fazer uma fórmula se com um lista e não consigo. para que vocês entendam é uma planilha para controle de horas. O que desejo é que em uma determinada coluna gere, de maneira automática a informação de feriado, haja visto que em outra planilha já cadastrei os feriados do ano. Caso não seja feriado, gostaria que aparecesse a opção para selecionar uma lista com 3 opções: Folha BH Atestado É possível fazer essa composição?
  3. Tentei mas os dados não estão sendo enviados para a planilha controle que deveria manter o histórico de cadastro do formulário. Rearrumei e ficou conforme abaixo. Você consegue me ajudar a transferir esses dados?? Não está dando erro agora, mas tb não transfere!! Como sou nova nesse negócio de VBA estou tendo dificuldades.... Private Sub btnSALVAR_Click() Dim iLin As Long Dim ws As Worksheet Set ws = Worksheets("CONTROLE") iLin = 1 'Descobre qual é a primera linha em branco, a partir da linha do cabeçalho (nº 1) e _ da coluna B onde você diz que começam os dados. IMPORTANTE: A coluna B não poderá ter _ células em branco, pois o código para ao encontrar uma célula em branco. Do While Range("B" & iLin).Value <> "" iLin = iLin + 1 Loop 'Cadastra as informações Dim iRow_1 As Long Dim ws_1 As Worksheet Set ws_1 = Worksheets.Application.Sheets("CONTROLE") iRow_1 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_1.Cells(iRow_1, 1).Value = TXT_NUMERO.Value ws_1.Cells(iRow_1, 2).Value = ComboBox1.Value ws_1.Cells(iRow_1, 3).Value = TextEspec1.Value ws_1.Cells(iRow_1, 4).Value = TextInsumo1.Value ws_1.Cells(iRow_1, 5).Value = TextQuant1.Value Dim iRow_2 As Long Dim ws_2 As Worksheet Set ws_2 = Worksheets.Application.Sheets("CONTROLE") iRow_2 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_2.Cells(iRow_2, 1).Value = TXT_NUMERO.Value ws_2.Cells(iRow_2, 2).Value = ComboBox2.Value ws_2.Cells(iRow_2, 3).Value = TextEspec2.Value ws_2.Cells(iRow_2, 4).Value = TextInsumo2.Value ws_2.Cells(iRow_2, 5).Value = TextQuant2.Value Dim iRow_3 As Long Dim ws_3 As Worksheet Set ws_3 = Worksheets.Application.Sheets("CONTROLE") iRow_3 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_3.Cells(iRow_3, 1).Value = TXT_NUMERO.Value ws_3.Cells(iRow_3, 2).Value = ComboBox3.Value ws_3.Cells(iRow_3, 3).Value = TextEspec3.Value ws_3.Cells(iRow_3, 4).Value = TextInsumo3.Value ws_3.Cells(iRow_3, 5).Value = TextQuant3.Value Dim iRow_4 As Long Dim ws_4 As Worksheet Set ws_4 = Worksheets.Application.Sheets("CONTROLE") iRow_4 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_4.Cells(iRow_4, 1).Value = TXT_NUMERO.Value ws_4.Cells(iRow_4, 2).Value = ComboBox4.Value ws_4.Cells(iRow_4, 3).Value = TextEspec4.Value ws_4.Cells(iRow_4, 4).Value = TextInsumo4.Value ws_4.Cells(iRow_4, 5).Value = TextQuant4.Value Dim iRow_5 As Long Dim ws_5 As Worksheet Set ws_5 = Worksheets.Application.Sheets("CONTROLE") iRow_5 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_5.Cells(iRow_5, 1).Value = TXT_NUMERO.Value ws_5.Cells(iRow_5, 2).Value = ComboBox5.Value ws_5.Cells(iRow_5, 3).Value = TextEspec5.Value ws_5.Cells(iRow_5, 4).Value = TextInsumo5.Value ws_5.Cells(iRow_5, 5).Value = TextQuant5.Value Dim iRow_6 As Long Dim ws_6 As Worksheet Set ws_6 = Worksheets.Application.Sheets("CONTROLE") iRow_6 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_6.Cells(iRow_6, 1).Value = TXT_NUMERO.Value ws_6.Cells(iRow_6, 2).Value = ComboBox6.Value ws_6.Cells(iRow_6, 3).Value = TextEspec6.Value ws_6.Cells(iRow_6, 4).Value = TextInsumo6.Value ws_6.Cells(iRow_6, 5).Value = TextQuant6.Value Dim iRow_7 As Long Dim ws_7 As Worksheet Set ws_7 = Worksheets.Application.Sheets("CONTROLE") iRow_7 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_7.Cells(iRow_7, 1).Value = TXT_NUMERO.Value ws_7.Cells(iRow_7, 2).Value = ComboBox7.Value ws_7.Cells(iRow_7, 3).Value = TextEspec7.Value ws_7.Cells(iRow_7, 4).Value = TextInsumo7.Value ws_7.Cells(iRow_7, 5).Value = TextQuant7.Value Dim iRow_8 As Long Dim ws_8 As Worksheet Set ws_8 = Worksheets.Application.Sheets("CONTROLE") iRow_8 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_8.Cells(iRow_8, 1).Value = TXT_NUMERO.Value ws_8.Cells(iRow_8, 2).Value = ComboBox8.Value ws_8.Cells(iRow_8, 3).Value = TextEspec8.Value ws_8.Cells(iRow_8, 4).Value = TextInsumo8.Value ws_8.Cells(iRow_8, 5).Value = TextQuant8.Value Dim iRow_9 As Long Dim ws_9 As Worksheet Set ws_9 = Worksheets.Application.Sheets("CONTROLE") iRow_9 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_9.Cells(iRow_9, 1).Value = TXT_NUMERO.Value ws_9.Cells(iRow_9, 2).Value = ComboBox9.Value ws_9.Cells(iRow_9, 3).Value = TextEspec9.Value ws_9.Cells(iRow_9, 4).Value = TextInsumo9.Value ws_9.Cells(iRow_9, 5).Value = TextQuant9.Value Dim iRow_10 As Long Dim ws_10 As Worksheet Set ws_10 = Worksheets.Application.Sheets("CONTROLE") iRow_10 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_10.Cells(iRow_10, 1).Value = TXT_NUMERO.Value ws_10.Cells(iRow_10, 2).Value = ComboBox10.Value ws_10.Cells(iRow_10, 3).Value = TextEspec10.Value ws_10.Cells(iRow_10, 4).Value = TextInsumo10.Value ws_10.Cells(iRow_10, 5).Value = TextQuant10.Value Dim iRow_11 As Long Dim ws_11 As Worksheet Set ws_11 = Worksheets.Application.Sheets("CONTROLE") iRow_11 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_11.Cells(iRow_11, 1).Value = TXT_NUMERO.Value ws_11.Cells(iRow_11, 2).Value = ComboBox11.Value ws_11.Cells(iRow_11, 3).Value = TextEspec11.Value ws_11.Cells(iRow_11, 4).Value = TextInsumo11.Value ws_11.Cells(iRow_11, 5).Value = TextQuant11.Value Dim iRow_12 As Long Dim ws_12 As Worksheet Set ws_12 = Worksheets.Application.Sheets("CONTROLE") iRow_12 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_12.Cells(iRow_12, 1).Value = TXT_NUMERO.Value ws_12.Cells(iRow_12, 2).Value = ComboBox12.Value ws_12.Cells(iRow_12, 3).Value = TextEspec12.Value ws_12.Cells(iRow_12, 4).Value = TextInsumo12.Value ws_12.Cells(iRow_12, 5).Value = TextQuant12.Value Dim iRow_13 As Long Dim ws_13 As Worksheet Set ws_13 = Worksheets.Application.Sheets("CONTROLE") iRow_13 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_13.Cells(iRow_13, 1).Value = TXT_NUMERO.Value ws_13.Cells(iRow_13, 2).Value = ComboBox13.Value ws_13.Cells(iRow_13, 3).Value = TextEspec13.Value ws_13.Cells(iRow_13, 4).Value = TextInsumo13.Value ws_13.Cells(iRow_13, 5).Value = TextQuant13.Value Dim iRow_14 As Long Dim ws_14 As Worksheet Set ws_14 = Worksheets.Application.Sheets("CONTROLE") iRow_14 = ws_1.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row ws_14.Cells(iRow_14, 1).Value = TXT_NUMERO.Value ws_14.Cells(iRow_14, 2).Value = ComboBox14.Value ws_14.Cells(iRow_14, 3).Value = TextEspec14.Value ws_14.Cells(iRow_14, 4).Value = TextInsumo14.Value ws_14.Cells(iRow_14, 5).Value = TextQuant14.Value MsgBox "DADOS GRAVADOS COM SUCESSO!" Muito Obrigada!
  4. Coloquei a planilha no endereço abaixo... http://www.sendspace.com/file/qommrx Obrigada!! Estou olhando a planilha que me enviou agora!!!
  5. Prezados, Estou desenvolvendo um programinha usando o VBA via excel para solicitação de pedido. Ocorre que no momento de transportar as informações só vai 1 linha e preciso que, de uma mesma coluna, sejam transportadas 14, já que por ser um formulário de solicitação de pedido, existem 14 campos para inclusão de materiais. Alguém poderia me ajudar disponibilizando um código que fizesse isso? OBS: Tenho que o incluir 5 colunas dessa forma. Usei o seguinte código, mas não funciona: U_L = Plan1.Range("B" & Rows.Count).End(xlUp).Row + 1 If Len(Me.txtQuant) = 0 Then MsgBox "VOCÊ NÃO DIGITOU NENHUMA QUANTIDADE", vbCritical, "SALVAR" Exit Sub Else Plan1.Cells(U_L, 1) = UCase(Me.TXT_NUMERO) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox1) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec1) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo1) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant1) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox2) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec2) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo2) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant2) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox3) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec3) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo3) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant3) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox4) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec4) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo4) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant4) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox5) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec5) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo5) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant5) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox6) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec6) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo6) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant6) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox7) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec7) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo7) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant7) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox8) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec8) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo8) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant8) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox9) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec9) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo9) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant9) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox10) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec10) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo10) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant10) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox11) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec11) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo11) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant11) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox12) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec12) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo12) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant12) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox13) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec13) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo13) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant13) Plan1.Cells(U_L, 2) = UCase(Me.ComboBox14) Plan1.Cells(U_L, 3) = UCase(Me.TextEspec14) Plan1.Cells(U_L, 4) = UCase(Me.TextInsumo14) Plan1.Cells(U_L, 5) = UCase(Me.TextQuant14) MsgBox "SOLICITAÇÃO ARQUIVADA COM SUCESSO" End If Obrigada,
  6. Prezados, Sou nova aqui no fórum e preciso de uma ajuda. Estou com uma planilha que, basicamente, será usada pelo Almoxarife para lançamento das solicitações de material relativos à obra. Fiz quatro planilhas, sendo que 3 delas estão vinculadas. Para facilitar o lançamento, pensei em formatar conforme a requisição da Obra, pois dessa forma as informações que já são lançadas atualmente continuam sendo lançadas, porém, com essa planilha, teremos o histórico de Lançamento e um resumo na planilha de nome Obra. Fiz uma tabela dinâmica para auxiliar os cálculos de saldo em estoque na planilha Lançamentos. O meu problema é o seguinte: 1. COMO CRIAR UMA MACRO PARA GERAR UM ARQUIVO NOVO E SALVAR (FAZER BACKUP) DE TODAS AS SOLICITAÇÕES FEITAS? 2. COMO TRANSFERIR AS INFORMAÇÕES QUE SERÃO LANÇADAS NA PLANILHA SOLICITAÇÕES PARA A PLANILHA LANÇAMENTO DE TAL FORMA QUE REGISTRE O HISTÓRICO DE LANÇAMENTOS (UM EMBAIXO DO OUTRO)? Preciso disso para finalizar, mas não tenho prática com VBA. Por isso a dificuldade. Será que vocês conseguem me ajudar?? Estou enviando o endereço onde coloquei a planilha para facilitar.... http://www.sendspace.com/file/lg0dg9 Muitíssimo Obrigada,

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...