[jorgerod]

wagner,

ainda bem que ficou resolvido!!!

um abraço.

[jorgerod]

wagner,

sem ter experimentado e, por isso, sem saber se poderá dar certo, podes tentar no private sub textbox1_exit(byval cancel as msforms.returnboolean:

if test “teste” then ‘ em que test será a tua variável para onde irá o valor da leitura
‘ aqui colocas o teu código relacionado com o que pretendes na planilha
cancel = true
end if

ora, como o valor em test será sempre diferente do valor “teste”, faz o que pretendes e volta sempre a efectuar o foco no teu textbox1.

bom, não sei se me fiz explicar… 😉

diz qq coisa, ok?

fica bem.

[jorgerod]

wagner,

outro código, que podes testar, alterando o path onde se encontrará o ícone, em vez de um ficheiro exe, como te referi no último post:

http://www.vbforums.com/showthread.php?285959-excel-program-icon&p=1670104#post1670104

depois diz qq coisa, ok?

[jorgerod]

wagner,

quanto à questão: gostaria que o logo que fica aparecendo na barra de tarefas abaixo na tela tb trocasse o logo. seria possível?

experimenta o seguinte código num módulo e tenta adaptar:

‘option explicit

declare function getactivewindow32 lib “user32” alias _
“getactivewindow” () as integer

declare function sendmessage32 lib “user32” alias _
“sendmessagea” (byval hwnd as long, byval wmsg as long, _
byval wparam as long, byval lparam as long) as long

declare function extracticon32 lib “shell32.dll” alias _
“extracticona” (byval hinst as long, _
byval lpszexefilename as string, _
byval niconindex as long) as long

‘modification of code from excel experts e-letter archives.
‘original code by jim rech can be found by following this
‘link > http://www.j-walk.com/ss/excel/eee/eee020.txt

sub changeapplicationicon()

dim icon&

‘*****change icon to suit*******
const newicon$ = “fontview.exe” ‘ pode-se alterar o ícone aqui, proveniente de um ficheiro exe qualquer…
‘*****************************

icon = extracticon32(0, newicon, 0)
sendmessage32 getactivewindow32(), &h80, 1, icon ‘< 1 = big icon
sendmessage32 getactivewindow32(), &h80, 0, icon '< 0 = small icon

end sub

diz qq coisa, ok?

fica bem!!! 🙂

[jorgerod]

na barra do titulo do arquivo, aparece “microsoft excel – ‘nome do arquivo'”, será que conseguimos eliminar esse “microsoft excel”?

será isto que pretendes? experimenta e diz qq coisa, ok?

private sub workbook_open()

‘change the caption from excel and file name to whatever you want
application.caption = “teste”

end sub

private sub workbook_beforeclose(cancel as boolean)

‘reset caption to standard caption.
application.caption = “”

end sub

[jorgerod]

wagner,

talvez aqui? – http://www.cpearson.com/excel/seticon.aspx

diz qq coisa, ok?

fica bem.

[jorgerod]

🙂

sempre ao dispor!!!!!! umas para as outras…. 🙂 🙂

[jorgerod]

boas, wagner,

utilizando vírgula no userform: talvez este código te dê o resultado que pretendes. experimenta e diz qq coisa, ok?

private sub commandbutton1_click()
dim indice as long
indice = 1
dim h as integer

for h = 0 to 3
with wsteste

.cells(indice + h, 1).value = me.controls(“txtquantidade” & h + 1).value
.cells(indice + h, 1).value = cdbl(.cells(indice + h, 1).value)
.cells(indice + h, 2).value = me.controls(“txtpreco” & h + 1).value
.cells(indice + h, 2).value = cdbl(.cells(indice + h, 2).value)
.cells(indice + h, 3).value = me.controls(“txtsubtotal” & h + 1).value
.cells(indice + h, 3).value = cdbl(.cells(indice + h, 3).value)

end with
next h

end sub

[jorgerod]

boa, wagner!!!!! obrigado por colocares aqui a solução!!!!

um abraço!

[jorgerod]

boas, normanog,

vê o que está escrito em: http://www.k2e.com/tech-update/tips/166-getting-the-green-light-conditional-format-in-excel-worksheets

pode ser que te ajude.

fica bem e diz qq coisa, ok?

[jorgerod]

albino,

vê tenta adaptar: http://www.vbaexpress.com/kb/getarticle.php?kb_id=512

acho que te dará o resultado pretendido. e tiveres dificuldade, diz. de qq modo, diz se resultou, ok?

fica bem.

[jorgerod]

albino,

experimenta colocar logo no início do código, o seguinte pedaço:

dim sheetname as string
sheetname = activesheet.name

depois, em vez de escreveres o nome da folha (ex. jan, fev, etc…) escreves:

sheets(sheetname).select

para perceberes se a folha é aquela em que estás activo, podes utilizar, em termos de depuração temporária o seguinte, logo a seguir ao pedaço que te disse:

msgbox sheetname
experimenta e depois diz qq coisa, ok?

fica bem.

[jorgerod]

albino,

como diz (e bem…) o allen wyatt, – http://excelribbon.tips.net/t008189_multiple_print_areas_on_a_single_printed_page.html

a melhor possibilidade, é a utilização de uma printsheet, ou seja, copias para uma nova folha os ranges a7:as24 e as45:as55, de modo contínuo, para ser apenas uma printarea (ficaria, para impressão, por exemplo: a7:as34) e imprimes. depois, podes fazer o mesmo para o range a25:as55.

bom, não sei se me fiz entender… 🙂

[jorgerod]

boas,

vê em http://www.mrexcel.com/forum/excel-questions/450900-multi-level-dependent-lists.html.

depois acede a: https://sites.google.com/a/madrocketscientist.com/jerrybeaucaires-excelassistant/files e escolhe a planilha dependentlists3.xls – 3 levels. está lá tudo mais ou menos explicado. outros locais onde poderás ler sobre listas dependentes: http://www.contextures.com/xldataval02.html
http://www.contextures.com/xldataval15.html

fica bem e diz qq coisa, ok?

[jorgerod]

o ficheiro de que falei, foi o que coloquei aqui há 5 dias… no teu novo que enviaste, ainda não mexi, porque me dá sempre aquele erro que referi…

[Autor]

Artigos