Bom dia, boa tarde, boa noite!!
Pessoal estou precisando de um ajuda pois não estou conseguindo fazer gerar um relatorio pois a minha experiencia em VBA está limitada.
Estou enviando a planilha com os codigos se alguem puder me ajudar a formular o codigo para que possa gerar este relatorio ficarei muito agradecido.
o que desejo no codigo, enquanto o nome do gestor na TexTBox (txt_nome_gestor) for "ALEXANDRE" faça.
Do Until
If txt_nome_gestor = True Then
' gravar os dados para impressão no formulario entrada radio
var_linha1 = Sheets("Relatorio").Range("H1")
'gravar o nome do gestor no relatorio para impressão
Sheets("Documentos").Range("G2:G") = Sheets("Relatorio").Range("B4:B" & var_linha1)
'gravar numero da SE no relatorio para impressão
Sheets("Documentos").Range("A2:A") = Sheets("Relatorio").Range("C4:C" & var_linha1)
'gravar o ano no relatorio para impressão
Sheets("Documentos").Range("K2:K") = Sheets("Relatorio").Range("D4:D" & var_linha1)
'gravar o numedo DC no relatorio para impressão
Sheets("Documentos").Range("E2:E") = Sheets("Relatorio").Range("E4:E" & var_linha1)
'gravar o status no relatorio para impressão
Sheets("Documentos").Range("F2:E") = Sheets("Relatorio").Range("F4:E" & var_linha1)
'gravar o implantado no relatorio para impressão
Sheets("Documentos").Range("J2:J") = Sheets("Relatorio").Range("G4:G" & var_linha1)
Eu fiz assim só que não funciona é claro por falta de codigos me ajudem por favor
Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.
" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"
Atenciosamente.
Jason Romanha
Postado : 20/03/2017 5:55 am