adriano944

KodornaRocks, O erro é apresentado na linha: Sheets(modelo).Select no codigo eu coloquei algumas ">>>>>" monstrando onde da o erro.

Pessoal Estou com mais um probleminha..pra variar ne..hehehe Bom..desta vez é o seguinte, eu tenho uma tabela com milhares de valores... onde eu faço algumas comparações e pego alguns valores. porem em uma determinada linha do codigo, está apresentando a msg de erro abaixo: Erro Tempo de Execução '9': Subscrito Fora do Intervalo. o que poderia ser? alguém faz ideia? Coloquei o codigo abaixo para vocês visualizares. ______________________________________________________________________________________________________________________________________________ Sub formatadataeconta() Dim cont As Integer Dim conti As Integer Dim mesatualref As String Dim contmes As Integer Dim contimes As Integer Dim ano As String Sheets("principal").Select mesatualref = Range("f19") ano = Range("b19") For x = 9 To 18 Sheets("Principal").Select If Cells(x, 2) = "SIM" And Cells(x, 1) <> "" Then modelo = Cells(x, 1) cont = 0 conti = 0 contmes = 0 contimes = 0 Sheets("Desenhos Novos").Select For i = 10476 To ActiveSheet.UsedRange.Rows.Count Sheets("Desenhos Novos").Select If ActiveSheet.Cells(i, 28) <> "" And ActiveSheet.Cells(i, 29) <> "" Then If mesatualref = ActiveSheet.Cells(i, 28) And ano = ActiveSheet.Cells(i, 29) Then modelo = Str(modelo) celula = Str(Sheets("Desenhos Novos").Cells(i, 4)) If celula = modelo Then ActiveSheet.Cells(i, 28).Select contmes = contmes + 1 ActiveSheet.Cells(i, 28).EntireRow.Select Selection.EntireRow.Copy Sheets(modelo).Select >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> O erro apresenta nesta linha. If activesheet.Cells(1, 1) = "" Then Sheets(modelo).Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select ActiveSheet.Paste ElseIf Sheets(modelo).Cells(1, 1) <> "" Then Sheets(modelo).Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select ActiveSheet.Paste Application.CutCopyMode = False End If Sheets("Desenhos Novos").Select Else End If End If Else ActiveSheet.Cells(i, 28).Select contimes = contimes + 1 End If ActiveSheet.Cells(i, 28).Select Next Sheets("Principal").Select For b = 8 To 13 If ActiveSheet.Cells(b, 1) <> "" And ActiveSheet.Cells(b, 1) = modelo And ActiveSheet.Cells(b, 2) = "SIM" Then ActiveSheet.Cells(b, 7).Select ActiveSheet.Cells(b, 7) = contmes End If Next End If Next End Sub ______________________________________________________________________________________________________________________________________________

KodornaRocks Obrigado por responder a minha pergunta, porem não consegui entender a sua resposta..poderia explica-la por gentileza?

Pessoal Estou com um problema aqui muito estranho para mim, mas acho que para vocês nem é tão estranho... O que está ocorrendo é o seguinte, eu tenho uma rotina, que realiza dversos calculos, e um deles e preencher em uma guia algumas informações para alimentar um grafico. O problema é o seguinte. Qando eu executo a rotina inteira sem pausas e nem nada, quando chega na parte do grafico algumas celulas ficam em branco, porem quando executo somente a parte do grafico, todas as celulas são preenchidas normalmente. Segue abaixo o codigo que insere as iformações no gráfico. Sub Contagem_Inicial() Dim A3270, A3310, A3260, A3701, A2234 As String Dim N3270, N3310, N3260, N3701, N2234 As String Dim F3270, F3310, F3260, F3701, F2234 As String Dim U3270, U3310, U3260, U3701, U2234 As String Dim ligado3270, ligado3310, ligado3701, ligado2234, ligado3260 As String Dim nligado3270, nligado3310, nligado3701, nligado2234, nligado3260 As String A3270 = 0 A3310 = 0 A3260 = 0 A3701 = 0 A2234 = 0 N3270 = 0 N3310 = 0 N3260 = 0 N3701 = 0 N2234 = 0 F3270 = 0 F3310 = 0 F3260 = 0 F3701 = 0 F2234 = 0 U3270 = 0 U3310 = 0 U3260 = 0 U3701 = 0 U2234 = 0 ligado3270 = 0 ligado3310 = 0 ligado3701 = 0 ligado2234 = 0 ligado3260 = 0 nligado3270 = 0 nligado3310 = 0 nligado3701 = 0 nligado2234 = 0 nligado3260 = 0 Sheets("Desenhos Novos").Select For i = 2 To ActiveSheet.UsedRange.Rows.Count If ActiveSheet.Cells(i, 1) <> "" Then If Cells(i, 4) = "3270" Then If ActiveSheet.Cells(i, 21) = "S" Then ligado3270 = ligado3270 + 1 ElseIf ActiveSheet.Cells(i, 21) = "N" Then nligado3270 = nligado3270 + 1 End If If ActiveSheet.Cells(i, 14) = "A" Then A3270 = A3270 + 1 ElseIf ActiveSheet.Cells(i, 14) = "U" Then U3270 = U3270 + 1 ElseIf ActiveSheet.Cells(i, 14) = "F" Then F3270 = F3270 + 1 ElseIf ActiveSheet.Cells(i, 14) = "N" Then N3270 = N3270 + 1 End If ElseIf Cells(i, 4) = "3310" Then If ActiveSheet.Cells(i, 21) = "S" Then ligado3310 = ligado3310 + 1 ElseIf ActiveSheet.Cells(i, 21) = "N" Then nligado3310 = nligado3310 + 1 End If If ActiveSheet.Cells(i, 14) = "A" Then A3310 = A3310 + 1 ElseIf ActiveSheet.Cells(i, 14) = "U" Then U3310 = U3310 + 1 ElseIf ActiveSheet.Cells(i, 14) = "F" Then F3310 = F3310 + 1 ElseIf ActiveSheet.Cells(i, 14) = "N" Then N3310 = N3310 + 1 End If ElseIf Cells(i, 4) = "3260" Then If ActiveSheet.Cells(i, 21) = "S" Then ligado3260 = ligado3260 + 1 ElseIf ActiveSheet.Cells(i, 21) = "N" Then nligado3260 = nligado3260 + 1 End If If ActiveSheet.Cells(i, 14) = "A" Then A3260 = A3260 + 1 ElseIf ActiveSheet.Cells(i, 14) = "U" Then U3260 = U3260 + 1 ElseIf ActiveSheet.Cells(i, 14) = "F" Then F3260 = F3260 + 1 ElseIf ActiveSheet.Cells(i, 14) = "N" Then N3260 = N3260 + 1 End If ElseIf Cells(i, 4) = "2234" Then If ActiveSheet.Cells(i, 21) = "S" Then ligado2234 = ligado2234 + 1 ElseIf ActiveSheet.Cells(i, 21) = "N" Then nligado2234 = nligado2234 + 1 End If If ActiveSheet.Cells(i, 14) = "A" Then A2234 = A2234 + 1 ElseIf ActiveSheet.Cells(i, 14) = "U" Then U2234 = U2234 + 1 ElseIf ActiveSheet.Cells(i, 14) = "F" Then F2234 = F2234 + 1 ElseIf ActiveSheet.Cells(i, 14) = "N" Then N2234 = N2234 + 1 End If ElseIf Cells(i, 4) = "3701" Then If ActiveSheet.Cells(i, 21) = "S" Then ligado3701 = ligado3701 + 1 ElseIf ActiveSheet.Cells(i, 21) = "N" Then nligado3701 = nligado3701 + 1 End If If ActiveSheet.Cells(i, 14) = "A" Then A3701 = A3701 + 1 ElseIf ActiveSheet.Cells(i, 14) = "U" Then U3701 = U3701 + 1 ElseIf ActiveSheet.Cells(i, 14) = "F" Then F3701 = F3701 + 1 ElseIf ActiveSheet.Cells(i, 14) = "N" Then N3701 = N3701 + 1 End If End If End If Next Dim qntdescda, qntdessda, qnttotal As String qntdescda = 0 qntdessda = 0 qnttotal = 0 lin = 41 ncol = Sheets(grf3270).Cells(50, 1) Sheets(grf3270).Select qntdescda = Sheets(prin).Cells(8, 5) qntdessda = Sheets(prin).Cells(8, 6) qnttotal = qntdescda + qntdessda Sheets(grf3270).Cells(lin, ncol) = qnttotal Sheets(grf3270).Cells(lin + 1, ncol) = qntdescda Sheets(grf3270).Cells(lin + 2, ncol) = qntdessda Sheets(grf3270).Cells(lin + 3, ncol) = ligado3270 Sheets(grf3270).Cells(lin + 4, ncol) = nligado3270 Sheets(grf3270).Cells(lin + 5, ncol) = U3270 Sheets(grf3270).Cells(lin + 6, ncol) = A3270 Sheets(grf3270).Cells(lin + 7, ncol) = F3270 Sheets(grf3270).Cells(lin + 8, ncol) = N3270 qntdescda = 0 qntdessda = 0 qnttotal = 0 qntdescda = Sheets(prin).Cells(9, 5) qntdessda = Sheets(prin).Cells(9, 6) qnttotal = qntdescda + qntdessda Sheets(grf3701).Select Sheets(grf3701).Cells(lin, ncol) = qnttotal Sheets(grf3701).Cells(lin + 1, ncol) = qntdescda Sheets(grf3701).Cells(lin + 2, ncol) = qntdessda Sheets(grf3701).Cells(lin + 3, ncol) = ligado3701 Sheets(grf3701).Cells(lin + 4, ncol) = nligado3701 Sheets(grf3701).Cells(lin + 5, ncol) = U3701 Sheets(grf3701).Cells(lin + 6, ncol) = A3701 Sheets(grf3701).Cells(lin + 7, ncol) = F3701 Sheets(grf3701).Cells(lin + 8, ncol) = N3701 qntdescda = 0 qntdessda = 0 qnttotal = 0 qntdescda = Sheets(prin).Cells(12, 5) qntdessda = Sheets(prin).Cells(12, 6) qnttotal = qntdescda + qntdessda Sheets(grf3260).Select Sheets(grf3260).Cells(lin, ncol) = qnttotal Sheets(grf3260).Cells(lin + 1, ncol) = qntdescda Sheets(grf3260).Cells(lin + 2, ncol) = qntdessda Sheets(grf3260).Cells(lin + 3, ncol) = ligado3260 Sheets(grf3260).Cells(lin + 4, ncol) = nligado3260 Sheets(grf3260).Cells(lin + 5, ncol) = U3260 Sheets(grf3260).Cells(lin + 6, ncol) = A3260 Sheets(grf3260).Cells(lin + 7, ncol) = F3260 Sheets(grf3260).Cells(lin + 8, ncol) = N3260 qntdescda = 0 qntdessda = 0 qnttotal = 0 qntdescda = Sheets(prin).Cells(11, 5) qntdessda = Sheets(prin).Cells(11, 6) qnttotal = qntdescda + qntdessda Sheets(grf2234).Select Sheets(grf2234).Cells(lin, ncol) = qnttotal Sheets(grf2234).Cells(lin + 1, ncol) = qntdescda Sheets(grf2234).Cells(lin + 2, ncol) = qntdessda Sheets(grf2234).Cells(lin + 3, ncol) = ligado2234 Sheets(grf2234).Cells(lin + 4, ncol) = nligado2234 Sheets(grf2234).Cells(lin + 5, ncol) = U2234 Sheets(grf2234).Cells(lin + 6, ncol) = A2234 Sheets(grf2234).Cells(lin + 7, ncol) = F2234 Sheets(grf2234).Cells(lin + 8, ncol) = N2234 qntdescda = 0 qntdessda = 0 qnttotal = 0 qntdescda = Sheets(prin).Cells(10, 5) qntdessda = Sheets(prin).Cells(10, 6) qnttotal = qntdescda + qntdessda Sheets(grf3310).Select Sheets(grf3310).Cells(lin, ncol) = qnttotal Sheets(grf3310).Cells(lin + 1, ncol) = qntdescda Sheets(grf3310).Cells(lin + 2, ncol) = qntdessda Sheets(grf3310).Cells(lin + 3, ncol) = ligado3310 Sheets(grf3310).Cells(lin + 4, ncol) = nligado3310 Sheets(grf3310).Cells(lin + 5, ncol) = U3310 Sheets(grf3310).Cells(lin + 6, ncol) = A3310 Sheets(grf3310).Cells(lin + 7, ncol) = F3310 Sheets(grf3310).Cells(lin + 8, ncol) = N3310 End Sub Conto com a ajuda de todos..para me ajudarem mais uma vez.

Pessoal Bom Dia Mais uma vez venho solicitar ajuda de vocês aqui. O problema desta vez é o seguinte. tenho uma tabela no access que está vinculada a um sharepoint, nesta tabela existem centenas de celulas...porem na primeira coluna existem valores que estao da seguinte maneira: 00976335120I 00976335150I 00976335420I 00976335820I 00976336220I 00976336290I 00976336550I 00976337310I eu preciso separar os numeros do ultimo valor..que seria o texto, pois preciso realizar uma consulta em outra tabela somente com os numeros. Se alguém souber de alguma maneira de fazer isto ficarei mt agradecido!

Pessoal.. Boa Tarde Mais uma vez venho solicitar ajuda de vocês.. Estou com o seguinte problema, tenho uma parte do codigo abaixo q me da a media de uma determinada coluna em outra planilha.. Sheets("MediaTempo de Estruturação").Select For i = 8 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 1) = modelo Then If Cells(i, 5) >= 1 Then media = "=AVERAGE('" + modelo + "'!R[-6]C[25]:R[65528]C[25])" Cells(i, 6) = media Else Cells(i, 5) = "0" End If End If Next porem em uma determinada planilha a media q esta aparecendo é: 78,71 mas o valor ao lado esta formatado para numero e com 2 casas decimais do valor: 78,7058823529412 gostaria de saber se tem alguma função que me de diretamente o valor 78,71, sem ser mecessário a utilização da "mascara" que o excel disponibiliza. Desde já agradeço a atenção

Boa Tarde Pessoal Bom...gostaria primeiramente de informar que sou completamente leigo em access, por isto venho recorrer a este forum, pois tenho que desenvolver uma rotina, no access por sinal, onde será necessário criar um botão que execute 3 consultas...porem eu não faço nem ideia de como fazer isto... Consegui aqui criar as consultas...e o formulario, juntamente com 1 botão(o necessário), porem preciso atribuir as consultas ao botao agora...mas não sei como... Caso alguém possa me ajudar ficarei extremamente grato! Desde já agradeço a atenção disperdiçada! Atenciosamente Adriano Rocha

Pessoal... E se eu quiser que seja retornado a data inicial e final da semana passada? como poderei fazer? Pode deixar pessoal.. Consegui aki... desculpem pelo excesso de post.... segue a resposta caso alguém queira Inicial =HOJE()-(DIA.DA.SEMANA(HOJE())-1)-7 Final =HOJE()+(7-DIA.DA.SEMANA(HOJE()))-7 Obrigado

Paulo A formula funcionou perfeitamente!! Muito obrigado mesmo!!

Pessoal Boa Tarde Estou com o seguinte problema... eu tenho uma celula que me retorna qual semana do ano estamos.... "=NÚMSEMANA(HOJE();1)". Porem eu preciso agora, de uma formula que me retorne o primeiro dia desta semana...e o ultimo.. no formato dd/mm/aaaa... alguém sabe alguma formula para isto? Obrigado

Conforme solicitado postei uma planilha de exemplo no link abaixo... espero que consigam decifrar o meu problema..heeh Modelo de Planilha desde já agradeço Atenciosamente Adriano Rocha

Pessoal, Bom Dia, Mais uma vez estou aqui solicitando o auxilio de vocês. O problema agora é o seguinte.. eu tenho uma planilha com centenas de linhas preenchidas, porem nestas linhas eu tenho diversas informações na mesma celula... exemplo: " Impieghi di Base Colorata" < 1 celula " Modello 3270" < outra celula " ( Situazione ufficiale al 04-05-2009)" < outra celula " Matricola A28001 COMANDO CAMBIO DI FORNITURA" < outra celula " Pattern Confronto TUTTI TIPI" < outra celula " Pattern Colorazione 1 TUTTI TIPI" < outra celula " Colore/I.A PT-808" < outra celula " Patt. Num.Disegno Colore Incolore Attivaz" " Codep Descrizione Incolore OdmA Disattivaz OdmD" " 10 55346243 PT-808 NERO 55345640 COMANDO CAMBIO CS. 00382 02/04/09 31/12/99 ~" " 15 55346244 PT-808 NERO 55345641 COMANDO CAMBIO CS. 00382 02/04/09 31/12/99 ~" "Stampato il 04-05-2009 alle Ore 18:53 Pagina 1 di 191" "<-----------Page_Break----------->" " Impieghi di Base Colorata" " Modello 3270" " ( Situazione ufficiale al 04-05-2009)" " Matricola A61001 VOLANTE" " Pattern Confronto TUTTI TIPI" " Pattern Colorazione 1 TUTTI TIPI" " Colore/I.A PT-808" " Patt. Num.Disegno Colore Incolore Attivaz" " Codep Descrizione Incolore OdmA Disattivaz OdmD" " 10 100185370 PT-808 NERO 100178917 VOLANTE CALICE BASE 00411 08/04/09 31/12/99 ~" " 20 100185371 PT-808 NERO 100178919 VOLANTE CALICE BAG 00411 08/04/09 31/12/99 ~" Stampato il 04-05-2009 alle Ore 18:53 Pagina 2 di 191 e assim sucessivamente..... porem...eu tenho que fazer o seguinte... vejam q em cada "bloco" existe uma "matricola" uma "descrição da matricola"(nome na frente da matricola) e alguns itens abaixo da palavra codep. eu tenho que formatar de uma maneira onde, fike formatado da seguinte forma: Matricola Descrizione Matricola Patt.Codep Num.Disegno Colore Incolore Descrizione OdmA Attivaz Disattivaz OdmD A28001 COMANDO CAMBIO DI FORNITURA 10 55346243 PT-808 NERO 55345640 COMANDO CAMBIO CS. 00382 02/04/09 31/12/99 ~" A28001 COMANDO CAMBIO DI FORNITURA 15 55346244 PT-808 NERO 55345641 COMANDO CAMBIO CS. 00382 02/04/09 31/12/99 ~" A61001 VOLANTE 10 100185370 PT-808 NERO 100178917 VOLANTE CALICE BASE 00411 08/04/09 31/12/99 ~" A61001 VOLANTE 20 100185371 PT-808 NERO 100178919 VOLANTE CALICE BAG 00411 08/04/09 31/12/99 ~" as informações acima devem ser divididas em cada celula... não sei se irão entender... mas tenho que colocar a matricola e a descrição na frente do numero(abaixo da palavra codep) e em seguida as informações do numero.... caso não consigam entender..posso encaminhar uma planilha de exemplo para vocês, pois sei que minha explicação ficou bem confusa. Desde já agradeço.

Paulo, deu certo o que você me informou, muito obrigado pela ajuda! Michelle Bom Dia Infelizmente não posso apenar alterar o formato do campo, pois o valor altera, quando por exemplo, se tiver no formato data e mudar para "geral". O correto seria fazer da maneira que o Paulo informou. Mas mesmo assim, agradeço muito a sua ajuda! Obrigado

Boa Tarde Pessoal Mais uma vez venho até vocês humildemente solicitar uma ajuda, que sempre me foi concedida! E sou extremamente grato a isso. bom... o que está ocorrendo desta vez é o seguinte... eu tenho centenas de datas em uma planilha no formato normal, exemplo: 01/04/2009, porem estou desenvolvendo um sistema, onde precisarei da data no formato 01042009(sem as barras) ou alguma formula que me retorne somente o mes da data, tipo em outra célula...pois preciso pegar todas as datas de um determinado mes previamente informados... caso alguém possa me ajudar, ficarei mais uma vez extremamente grato. Desde já agradeço! Atenciosamente Adriano Rocha

Jhonas Funcionou perfeitamente, muito obrigado mesmo pela dica, creio que isto será de grande ajuda para todos no forum, apesar que é uma coisa bem simples. Bom gostaria de deixar só uma observação: O Prompt do DOS, só trabalha com nome até 8 caracteres, então caso alguém tente copiar para uma pasta com mais de 8 caracteres atraves da rede, provavelmente vai dar erro. Caso dê erro, basta alterar o nome da pasta para um com menos de 8 caracteres e dps executar a macro novamente(alterando o nome da pasta).. No mais, é só isso mesmo. Muito obrigado Jhonas Tenham todos um bom dia

Bom Dia Pessoal Mais uma vez estou aqui solicitando a ajuda de vocês... Bom.. dessa vez o problema é o seguinte... eu tenho uma tabela oculta chamada DesenhosNovos, (vinculada a um sharepoint) e gostaria de copiar todas as celulas desta, para uma outra tabela chamada Desenhos Novos, para não correr risco de modificar algo e atrapalhar o sharepoint...porem quando uso o codigo abaixo é apresentado um erro: Worksheets("DesenhosNovos").Activate Cells.Select Selection.Copy Sheets("Desenhos Novos").Select Cells.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False o erro esta sendo apresentado na segunda linha do codigo...a mensagem é a seguinte: "Erro em tempo de execução '1004': O método Select da classe Range falhou" infelizmente com os conhecimentos que eu tenho, não sei o que fazer...porem desde já agradeço caso alguém possa. Atenciosamente Adriano Rocha

Pessoal Bom Dia. Estou com o seguinte problema.. tenho alguns arquivos em uma maquina na rede e gostaria de copia-los para a minha maquina, porem não sei como fazer isto usando o ".bat" do windows.. A pasta onde os arquivos se encontram se chama: BOM_Adriano e o caminho dela é o seguinte: c:\documents and settings\es007290\desktop\BOM_Adriano (são varios arquivos .csv) e o local onde gostaria de salva-los é \\gv00549318\ferramentas\desenhos_novos\bom...... não sei se devo colocar o caminho ou o IP da maquina.. Se puderem me ajudar ficarei extremamente agradecido Desde já agradeço Atenciosamente Adriano Rocha

Renato, Bom Dia Concerteza você ajudou sim, e muito. Porem não conseguir entender direito a opção de listar no listbox...pois quando eu coloquei no meu script..eu um erro assim: "Erro de Compilação: Sub ou Function não Definida." e foi selecionado o codigo: MyArray(i, 0) = outra coisa.... em alguma parte do codigo é necessário inserir a seguinte instrução?: (plan1.range("b1").value = ultimalinha aux = ultimalinha plan1.range("b1").value = aux) Sei que para você isto deve ser fácil de se resolver mais eu não tenho muito conhecimento...e gostaria da sua ajuda mais uma vez... desde já agradeço muito a sua atençao disperdiçada!

Pessoal Bom.. mais uma vez estou aqui solicitando a ajuda de vocês.... o problema agora é o seguinte... eu tenho uma ListBox que eu gostaria de preenche-la....porem o que está ocorrendo é o seguinte...na planilha de onde eu vou buscar as informações, sempre é alterada, modificando a quantidade de celulas... Eu preciso de um codigo que pegue desde a celula A1 da planilha "Provisoria" até a ultima célula que sempre é alterada...e eu queria saber se tem como colocar no listbox dividido em 3 colunas, pois são sempre mais de 200 informações em todas as vezes... Uma outra coisa que eu gostaria de saber é: Como que eu faço para pegar os valores que o usuario selecionou e coloca-los em outro campo da planilha "provisoria"? por exemplo na coluna B Bom pessoa...desde já agradeço a ajuda de todos..

Kuroi Bom Dia O que ocorre é o seguinte...eu tenho a linha abaixo em uma determinada tabela no EXCEL e gostaria de exportar para o txt. Esta linha esta no excel. Porem quando eu "salvo como", a mesma recebe várias "" em muitos lugares, o que impede o funcionamento da macro em outro programa. Type"518408650"Key"Enter" if (search,"VIOLID2") Appendtodisk C:\ferramentas\planilhadesenhos.xls,2/21,2/31 Appendtodisk C:\ferramentas\planilhadesenhos.xls,5/42,5/50 Appendtodisk C:\ferramentas\planilhadesenhos.xls,8/17,8/29 Appendtodisk C:\ferramentas\planilhadesenhos.xls,8/49,8/59 Key"PF1" endif ficando da seguinte maneira: "Type""518408650""Key""Enter"" if (search,""VIOLID2"") Appendtodisk C:\ferramentas\planilhadesenhos.xls,2/21,2/31 Appendtodisk C:\ferramentas\planilhadesenhos.xls,5/42,5/50 Appendtodisk C:\ferramentas\planilhadesenhos.xls,8/17,8/29 Appendtodisk C:\ferramentas\planilhadesenhos.xls,8/49,8/59 Key""PF1"" endif" Existe alguma maneira de apenas copiar e colocar do excel para o bloco de notas? Se puder me ajudar, ficarei muito grato! Obrigado.

Pessoal Boa Tarde Mais uma vez estou aqui solicitando o auxilio de vocês.. O que está ocorrendo é o seguinte.... eu tenho uma tabela no excel e gostaria de exportar ela para o txt.. somente isto, porem só estou conseguindo com a opção "salvar como" sendo que esta opção não me atende... Gostaria mais uma vez da ajuda de vocês que sempre me ajudaram! Muito obrigado desde já Atenciosamente Adriano Rocha

Pessoal.. estou com a seguinte duvida... tenho uma tabela chamada "desenhos novos", onde a mesma está oculta. porem nesta tabela existem diversas informações que não podem ser alteradas, pois esta tabela esta vinculada a outra... sendo assim... criei uma tabela chamada "Temporaria". Nesta tabela temporaria irei copiar todas as informações da tabela Desenhos novos(que esta oculta) para a tabela temporaria... porem quando insiro a formula abaixo é apresentado o erro a seguir... Formula: Sub CopiaDesenhos () Worksheets("Desenhos Novos").Range("a1:c30000").Select Selection.Copy Sheets("Temporária").Select Cells.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Erro: " O método Select da classe Range falhou." Se alguém puder me ajudar ficarei muito grato.. desde já agradeço! Atenciosamente Adriano Rocha

Pessoal Estou com a seguinte duvida no Excel: Criei um formulario no VBA, e coloquei alguns Checkboxs. Vou tentar simular um exemplo do desenho abaixo..... _________________________________ Titulo x teste1 x teste2 BotaoIniciarCalculo x teste3 x teste4 _________________________________ cada teste se refere a um check e o botao e para calcular determinados parametros.. O que estou querendo e não estou conseguindo fazer é o seguinte... Quando o usuario selecionar o "testes" que ele deseja e clicar na opção "BotaoIniciarCalculo", eu quero que seja enviado um texto para uma determinada tabela(dps irei precisar deste texto) de acordo com os "testes" que ele selecionou...Sei que isto é uma coisa facil, porem não estou conseguinto... Ahh...o botao deve enviar as informações, porem antes, deve apagar o que possui na tabela.. Obrigado mais uma vez pessoal!! Atenciosamente Adriano Rocha

Obrigado Kuroi!

Pessoal preciso da ajuda de vocês mais uma vez.... tipo... eu criei uma macro que executa diversas tarefas..dentre elas apagar uma planilha...porem quando a macro está sendo executada aparece aquela mensagem lá perguntando se deseja realmente excluir a planilha.... Eu queria saber se tem alguma maneira, ou algum codigo que apenas confirme, ou que desative a mensagem... Se alguém puder me ajudar ficarei muito grato Desde já agradeço Atenciosamente Adriano Rocha