Boa noite!!

Por favor leia as regras do fórum antes de postar!!!
Nossas Regras
viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

Seu anexo será excluído!!

Att

tá aí o anexo certinho ^^

já resolvi, se alguém quiser saber, dá o grito ^^

Boa noite!!

Ao resolver um questão lembre se de marcar como resolvido!!

Veja como em:
viewtopic.php?f=7&t=3784

Mostre sua solução, alguém pode ter a mesma dúvida....

Obrigado!!!

ok (:

usei

Private Sub CbCadastrar_Click()
     Dim i As Integer
         
    
    
      
    lastrow = Plan2.Range("A1048576").End(xlUp).Row              'confere a última linha preenchida
    lastrow = lastrow + 1                                                         ' começa a escrever depois da última preenchida
    
    For i = lastrow To lastrow
    
        
    Plan2.Range("A" & i).Value = CmbCandidato.Value              'valor da célula será o da combobox 
    Plan2.Range("C" & i).Value = LbaIdade.Caption
    Plan2.Range("D" & i).Value = LbSexo.Caption
    Plan2.Range("E" & i).Value = CmbData.Value
    Plan2.Range("F" & i).Value = CmbCategoria.Value
        

é isso ^^