Ir para conteúdo
Fórum Script Brasil

jean jonathas

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre jean jonathas

jean jonathas's Achievements

0

Reputação

  1. olá, com muitas pesquisas consegui criar uma planilha que tem um formulário que gera um arquivo pdf com o nome de acordo com o valor de uma celula e outras coisinhas, um dos problemas é que na hora de gerar o arquivo, se o arquivo já existe com esse nome ele é substituido, gostaria que fosse possivel adicionar uma numeração tipo (2).pdf se o arquivo existir. Sub salvar() ' ' salvar Macro ' Dim nome As String nome = "C:\Users\Jean\Desktop\exames pdf\" & Range("E5") & " - " & Range("k7") & ".pdf" ' Sheets("Exame").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _ , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Sheets("PREENCHER").Select Range("E5:G5").Select End Sub o outro problema é que eu consegui fazer a maioria das coisas gravando macros, e como o formulário está em uma aba, e o modelo a ser preenchido está em outra, quando roda o macro a tela fica piscando porque para o codigo funcionar precisa ficar alternando entre as abas, gostaria de saber se é possível rodar a macro na aba 2 sem precisar de sair da aba onde está o formulário. Sub ocultar() ' ' ocultar Macro ' ' Sheets("Exame").Select Range("A34:O42").Select Selection.EntireRow.Hidden = True Sheets("PREENCHER").Select Range("C25:C31").Select With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = -4.99893185216834E-02 End With Range("F25,F27,F29,F31").Select Range("F31").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -4.99893185216834E-02 .PatternTintAndShade = 0 End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select Selection.ShapeRange.ZOrder msoBringToFront Range("E5:G5").Select End Sub fiquem À vontade para sugerir qualquer mudança, com muito esforço a planilha está ficando com um resultado bem legal. vou deixala em anexo. obrigado. https://drive.google.com/file/d/0BynkAckdgWiOTXI1V0VkQndobk0/view?usp=sharing Preencher Hemograma.xlsm
  2. ola, eu uso o joomla e ele tem um formulario de cadastro padrão, eu pensei em adicionar um bombo cidade/estado na hora do cadastro, mas infelizmente não consigo fazer a conexão com o banco de dados para puxar o nome das cidades e dos estados. alguém tem uma luz? baixei aqui mesmo o sistema de cidade-estados mas não consigo inserir no formulário. de uma forma que funcione no joomla. por favor me ajudem. o formulário é este anexado <!-- K2 user register form --> <?php if(isset($this->message)) $this->display('message'); ?> <form action="<?php echo JRoute::_('index.php'); ?>" enctype="multipart/form-data" method="post" id="josForm" name="josForm" class="form-validate"> <?php if($this->params->def('show_page_title',1)): ?> <div class="componentheading<?php echo $this->escape($this->params->get('pageclass_sfx')); ?>"> <?php echo $this->escape($this->params->get('page_title')); ?> </div> <?php endif; ?> <div id="k2Container" class="k2AccountPage"> <table class="admintable" cellpadding="0" cellspacing="0"> <tr> <th colspan="2" class="k2ProfileHeading"> <?php echo JText::_('K2_ACCOUNT_DETAILS'); ?> </th> </tr> <tr> <td class="key"> <label id="namemsg" for="name"><?php echo JText::_('K2_NAME'); ?></label> </td> <td> <input type="text" name="<?php echo (K2_JVERSION=='16')?'jform[name]':'name'?>" id="name" size="40" value="<?php echo $this->escape($this->user->get( 'name' )); ?>" class="inputbox required" maxlength="50" /> * </td> </tr> <tr> <td class="key"> <label id="usernamemsg" for="username"><?php echo JText::_('K2_USER_NAME'); ?></label> </td> <td> <input type="text" id="username" name="<?php echo (K2_JVERSION=='16')?'jform[username]':'username'?>" size="40" value="<?php echo $this->escape($this->user->get( 'username' )); ?>" class="inputbox required validate-username" maxlength="25" /> * </td> </tr> <tr> <td class="key"> <label id="emailmsg" for="email"><?php echo JText::_('K2_EMAIL'); ?></label> </td> <td> <input type="text" id="email" name="<?php echo (K2_JVERSION=='16')?'jform[email1]':'email'?>" size="40" value="<?php echo $this->escape($this->user->get( 'email' )); ?>" class="inputbox required validate-email" maxlength="100" /> * </td> </tr> <?php if(K2_JVERSION == '16'): ?> <tr> <td class="key"> <label id="email2msg" for="email2"><?php echo JText::_('K2_CONFIRM_EMAIL'); ?></label> </td> <td> <input type="text" id="email2" name="jform[email2]" size="40" value="" class="inputbox required validate-email" maxlength="100" /> * </td> </tr> <?php endif; ?> <tr> <td class="key"> <label id="pwmsg" for="password"><?php echo JText::_('K2_PASSWORD'); ?></label> </td> <td> <input class="inputbox required validate-password" type="password" id="password" name="<?php echo (K2_JVERSION=='16')?'jform[password1]':'password'?>" size="40" value="" /> * </td> </tr> <tr> <td class="key"> <label id="pw2msg" for="password2"><?php echo JText::_('K2_VERIFY_PASSWORD'); ?></label> </td> <td> <input class="inputbox required validate-passverify" type="password" id="password2" name="<?php echo (K2_JVERSION=='16')?'jform[password2]':'password2'?>" size="40" value="" /> * </td> </tr> <tr> <th colspan="2" class="k2ProfileHeading"> <?php echo JText::_('K2_PERSONAL_DETAILS'); ?> </th> </tr> <!-- K2 attached fields --> <tr> <td class="key"> <label id="gendermsg" for="gender"><?php echo JText::_('K2_GENDER'); ?></label> </td> <td> <?php echo $this->lists['gender']; ?> </td> </tr> <tr> <td class="key"> <label id="descriptionmsg" for="description"><?php echo JText::_('K2_DESCRIPTION'); ?></label> </td> <td> <?php echo $this->editor; ?> </td> </tr> <tr> <td class="key"> <label id="imagemsg" for="image"><?php echo JText::_( 'K2_USER_IMAGE_AVATAR' ); ?></label> </td> <td> <input type="file" id="image" name="image"/> <?php if ($this->K2User->image): ?> <img class="k2AdminImage" src="<?php echo JURI::root().'media/k2/users/'.$this->K2User->image; ?>" alt="<?php echo $this->user->name; ?>" /> <input type="checkbox" name="del_image" id="del_image" /> <label for="del_image"><?php echo JText::_('K2_CHECK_THIS_BOX_TO_DELETE_CURRENT_IMAGE_OR_JUST_UPLOAD_A_NEW_IMAGE_TO_REPLACE_THE_EXISTING_ONE'); ?></label> <?php endif; ?> </td> </tr> <tr> <td class="key"> <label id="urlmsg" for="url"><?php echo JText::_('K2_URL'); ?></label> </td> <td> <input type="text" size="50" value="<?php echo $this->K2User->url; ?>" name="url" id="url"/> </td> </tr> <?php if(count(array_filter($this->K2Plugins))): ?> <!-- K2 Plugin attached fields --> <tr> <th colspan="2" class="k2ProfileHeading"> <?php echo JText::_('K2_ADDITIONAL_DETAILS'); ?> </th> </tr> <?php foreach ($this->K2Plugins as $K2Plugin): ?> <?php if(!is_null($K2Plugin)): ?> <tr> <td colspan="2"> <?php echo $K2Plugin->fields; ?> </td> </tr> <?php endif; ?> <?php endforeach; ?> <?php endif; ?> </table> <?php if($this->K2Params->get('recaptchaOnRegistration') && $this->K2Params->get('recaptcha_public_key')): ?> <label class="formRecaptcha"><?php echo JText::_('K2_ENTER_THE_TWO_WORDS_YOU_SEE_BELOW'); ?></label> <div id="recaptcha"></div> <?php endif; ?> <div class="k2AccountPageNotice"><?php echo JText::_('K2_REGISTER_REQUIRED'); ?></div> <div class="k2AccountPageUpdate"> <button class="button validate" type="submit"> <?php echo JText::_('K2_REGISTER'); ?> </button> </div> </div> <input type="hidden" name="option" value="<?php echo (K2_JVERSION=='16')?'com_users':'com_user'?>" /> <input type="hidden" name="task" value="<?php echo (K2_JVERSION=='16')?'registration.register':'register_save'?>" /> <input type="hidden" name="id" value="0" /> <input type="hidden" name="gid" value="0" /> <input type="hidden" name="K2UserForm" value="1" /> <?php echo JHTML::_( 'form.token' ); ?> </form>
  3. eu fiz dois blogs, cada um tem um slide diferente, o que eu terminei de fazer agora o slide dele é mt simples e eu queria da um up nele entende? oia como ele ta aqui eu queria que ficace +- igual a este outro meu blog aqui se alguém puder me dizer como eu arrumo ele pra ficar melhor, ou passar um outro que seja facil de por no lugar do atual eu agradeço muito
×
×
  • Criar Novo...