Lisandro Oliveira

Olá pessoal, dessa forma funciona, não é a melhor mais é mais prática. =PROCV(B10;A1:H6;A10+1;0) Abraços, Lisandro Oliveira

pessoal, utilizando a função abaixo eu consigo verificar se um radio está selecionado, porém, agora eu estou precisando saber como eu faço para tirar a seleção de um radio quando por exemplo eu escolher uma opção dentro de um combo (onChange). function verify(nome) { var test = false; var objRadio = document.forms[0].elements[nome]; for(i=0; i < objRadio.length; i++ ) { if (objRadio.checked == true) test = true; } if (test == false) alert("Você deve preencher o campo 'tal'"); } // no formulário os rádios <input type="radio" name="sexo" value="F"> Feminino <input type="radio" name="sexo" value="M"> Masculino <input type="button" name="verif" value="Verificar" onclick="verify('sexo')"> já tentei colocar objRadio.checked == false form.nome.checked == false mas não consegui obrigado.

Faleu pessoal!!!! Abraços, Lisandro Oliveira.

<input type=radio value="40" name="tipo">TESTE <input type=radio value="41" name="tipo">TESTE2 Pessoal, gostaria de saber como eu posso verificar se está selecionado um campo radio em um formulário usando javascript. Já tentei assim, mas não deu certo. r=document.form.tipo.value if (r=="") { Alert("Selecione uma opção."); return; } Grato.

Olá pessoal, segue: =PROCV(A1;Plan2!A:B;2;1) Abraços, Lisandro Oliveira.

Olá Beber, eu não sei como estão os dados na sua planilha, mas caso você queira tentar fazer utilizando VBA, segue: Dados na Horizontal: Sub arquivo_txt() Open "C:\FUNCIONARIOS.txt" For Output As #1 Print #1, "01 " & "LISANDRO OLIVEIRA " & "R$ 100,00 " & "10/10/2006" Print #1, "02 " & "ANA PAULA " & "R$ 6.030,00 " & "10/11/2006" Print #1, "03 " & "JOAO DA SILVA COSTA " & "R$ 7.450,00 " & "10/11/2006" Close #1 End Sub Dados na Vertical: Sub gera_arquivo_txt() Open "C:\FUNCIONARIOS.txt" For Output As #1 Print #1, "01" Print #1, "LISANDRO OLIVEIRA" Print #1, "R$ 100,00 " Print #1, "10/10/2006" Print #1, "02" Print #1, "ANA PAULA" Print #1, "R$ 6.030,00" Print #1, "10/11/2006" Print #1, "03" Print #1, "JOAO DA SILVA COSTA " Print #1, "R$ 7.450,00 " Print #1, "10/11/2006" Close #1 End sub Abraços, Lisandro Oliveira.

Puxa, realmente eu não tenho idéia, mas fica em aberto pra galera colocar aí. Abraços, Lisandro Oliveira.

Beber, tem como você jogar para um arquivo txt, e tem como você abrir esse arquivo, mas, ele será aberto pelo excel e será impresso no excel. Abraços, Lisandro Oliveira.

Valeu sim Bruno!!, dá pra fazer do seu jeito tb. Abraços, Lisandro Oliveira.

Não consegui simular.

Olá Malwee, faça assim No seu procv, coloque no final "0", veja: =PROCV(A1;Plan2!A:B;2;0) beleza??? Abraços, Lisandro Oliveira.

Falow, Até mais.

Falow, Até mais.

Falow, Até mais.

Olá beber, tente deixar na font "Courier". Abraços, Lisandro Oliveira.

Olá pessoal, existe uma outra forma vejam: Criar uma consulta no modo Estrutura; Adicione a sua tabela / Adicionar Clique no menu Consulta / Consulta Acréscimo Adicione a sua tabela novamente / Ok Agora clique no Menu Exibir / Modo SQL e coloque esse codigo: INSERT INTO Tabela2 ( numero, nome ) VALUES (79454, 'teste'); É lógico que nesse insert aonde está Tabela2 você irá colocar o nome da sua tabela e onde esta (numero, nome), você irá colocar os campos da sua tabela. Pronto, Feche, salve e clique duas vezes na consulta que será adicionado um registro com o valor 79454, e apartir daí, a autonumeração será apartir do do valor 79454. Abraços, Lisandro Oliveira.

Vá no menu Exibir / Barras de Ferramentas / Personalizar Agora é só clicar no botãozinho da impressora e arrastar para a Janela que está aberta na tela, a mesma coisa no Menu, Clique no menu Arquivo e clique sobre a opção Imprimir e arraste tb. beleza?? Abraços, Lisandro Oliveira.

só é possível isso se você estiver cadastrando por um formulário. abraços Lisandro Oliveira

Para proteger e desproteger, o comando é esse: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.Unprotect eu já coloquei eles no meio do codigo: Sub Imprimir() Sheets(2).Select l = 1 Range("a" & l).Select While l <> 21 If Range("b" & l).Value <> "" Then If Range("a" & l).Value <> "" Then l = l + 1 Else If MsgBox("Existe uma célula vazia na Plan2, deseja continuar a Impressão?", vbCritical + vbYesNo) = vbYes Then ActiveSheet.Unprotect Range("A1:A20").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(Array("Plan1", "Plan2", "Plan3")).Select Sheets("Plan1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else Range("a" & l).Select Exit Sub End If End If Else If MsgBox("Existe uma célula vazia na Plan2, deseja continuar a Impressão?", vbCritical + vbYesNo) = vbYes Then ActiveSheet.Unprotect Range("A1:A20").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(Array("Plan1", "Plan2", "Plan3")).Select Sheets("Plan1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else Range("b" & l).Select Exit Sub End If End If Wend ActiveSheet.Unprotect Range("A1:A20").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(Array("Plan1", "Plan2", "Plan3")).Select Sheets("Plan1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Abraços, Lisandro Oliveira.

Melwee, a solução é colocar os dados em ordem crescente. você não pode ordenar eles??

Olá Beber, tudo bem?? Veja, pra verificar se está em ordem crescente ou não, é um processo bem mais detalhado, pra te explicar pelo scriptB. No script abaixo, é colocado em ordem alfabética os dados da plan2 desde A1:A20 antes de imprimir. Agora verificar se existe alguma célula vazia antes de imprimir, é mais facil, já está no codigo abaixo. O procedimento acho que você já sabe, Vá em Ferramentas / macros / Editor do Visual Basic, agora no menu inserir, escolha Módulo e cole o codigo lá. segue: Sub imprimir() Sheets(2).Select l = 1 Range("a" & l).Select While l <> 20 If Range("a" & l).Value <> "" Then l = l + 1 Else If MsgBox("Existe uma célula vazia na Plan2, deseja continuar a Impressão?", vbCritical + vbYesNo) = vbYes Then Range("A1:A20").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(Array("Plan1", "Plan2", "Plan3")).Select Sheets("Plan1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else Range("a" & l).Select Exit Sub End If End If Wend Range("A1:A20").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(Array("Plan1", "Plan2", "Plan3")).Select Sheets("Plan1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub beleza ?? Qualquer coisa retorne Abraços, Lisandro Oliveira.

Falow, Abraços.

Utilizando o Enterprise Manager, vá em management / Sql Server Agent / JOB Botão direito / New Job Dê um nome para ele, na guia STEP coloque o comando em Command, depois, coloque um horário e beleza! Abraços Lisandro Oliveira.

Daniel, você não precisa especificar a Taxa de Crescimento, lá nas propriedades do Database, você pode colocar "Automatically Grow File", assim, o banco cresce de acordo com o necessario. Caso seu filegroup Primary esteje cheio, você pode alterar o tamanho maximo dele no mesmo local, caso você queira, você pode colocar "Unrestricted file Growth", porém o banco irá crescer enquanto tiver espaço no HD. Você pode também especificar o filegroup em um HD diferente caso tenho outros HDs, isso pode melhorar um pouco a performance do banco, porque você tem outros cabeçotes de leitura e gravação que podem estar trabalhando em paralelo, e isso agiliza o processo de I/O do banco. Abraços, Lisandro Oliveira.

Caso interesse a mais alguém, Segue: Select pro.produto, mov.qtdmov from produtos pro left join Mov_produtos mov on pro.codigopro = mov.codigopro; Abraços, Lisandro Oliveira.