ewpreis

Bom dia prezados, Meus amigos, estou montando uma nova estação de trabalho e quero utilizar 2 monitores Odyssey G9. Gostaria da ajuda de vocês para encontrar a melhor configuração pelo melhor custo benefício, pois eu sei que será uma configuração cara e por isso não estipulei um valor. O que me sugerem? Obrigado, Att.

@osvaldomp Muito obrigado, funcionou perfeitamente!!!

Bom dia meus amigos, Estou precisando de uma fórmula para comparar dois grupos de números e se houver um número ou mais que esteja contido nos dois grupos me retornar um valor, pode ser 1 ou "SIM". Estava utilizando a fórmula SE, mas ficou muito grande e não consegui colocar todas as condições. Segue abaixo um exemplo: 1º Grupo --> Na linha 1A até 1F eu tenho os seguintes números: 4 - 5 - 20 - 31 - 40 -54 2º Grupo --> Na linha 2A até 2O eu tenho os seguintes números: 1 - 2 - 3 - 4 - 5 - 11 - 12 - 13 - 14 - 15 - 21 - 22 - 23 - 24 - 25 A fórmula precisa comparar o 1º grupo com o 2 º e caso tenha valores do 1º grupo contido no 2º retornar com o número 1 ou SIM Desde já agradeço, Grande abraço.

@osvaldomp Muito obrigado!

Bom dia meu amigos, Estou montando uma planilha para organizar alguns dados de um relatório, estou utilizando da coluna A a I. Sendo que na coluna I ficam os comentários e nem sempre possui comentários, por isso preciso de um código que conte todas as células preenchidas na coluna A e selecione a mesma quantidade células na coluna I. Para quando eu copiar e colar na outra pasta de trabalho os comentários fiquem na posição certa. A coluna "A" será sempre data. Desde já agradeço. Abraço. EDIT: Problema acima resolvido desse jeito: 'Copiar Coluna I e Colar na Coluna L Sheets("RECEBE").Select Dim k As Integer k = Application.CountA(Range("A:A")) Range(Cells(k, 9), Cells(2, 9)).Activate Selection.Copy Sheets("DADOS").Select Range("L2").Select Range("L1048576").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False 'Copiando dados Inseridos e Duplicando Fórmulas Sheets("DADOS").Select Dim i As Integer i = Application.CountA(Range("D:D")) Range(Cells(i, 4), Cells(i, 6)).Activate Selection.Copy i = i + 1 Range(Cells(i, 4), Cells(k, 6)).Activate ActiveSheet.Paste Application.CutCopyMode = False Dim j As Integer j = Application.CountA(Range("K:K")) Range(Cells(j, 11), Cells(j, 11)).Activate Selection.Copy j = j + 1 Range(Cells(j, 11), Cells(k, 11)).Activate ActiveSheet.Paste Application.CutCopyMode = False Amigos depois de muitas tentativas consegui resolver o problema acima, agora caí na seguinte situação: Preciso substituir todas as células da coluna k que deu erro na fórmula por uma célula em branco. Desde já agradeço.

@@R0DR1G0_CWB @Márcio Rodrigues Teria como anexar sem ser compactado pelo winrar. Aqui no PC do trabalho não tenho instalado e não consigo instalar, ia ver quando cheguei em casa mas já cheguei pegando o carro e indo levar minha irmã no médico. Quando voltei, só tomei um banho e dormi, acabei não conseguindo ver isso em casa ontem Ah, muito obrigado pela ajuda.

Consegui fazer o início da macro, mas da forma que fiz não analisa a informação da célula que quero editar e já joga o valor que está escrito na macro. Queria deixar mais automático para eu não ter que me preocupar com esses detalhes já que é uma rotina com muitas informações Sub ORGANIZAR_DADOS() ' ' ORGANIZAR_DADOS Macro ' Organiza os dos ' ' Atalho do teclado: Ctrl+q ' ActiveSheet.Shapes.Range(Array("Picture 1")).Select Selection.Delete Rows("1:6").Select Range("F1").Activate Selection.Delete Shift:=xlUp Range("A1:F1").Select Columns("C:D").Insert Columns("B").Insert Range("A1:I1").Select ActiveCell.FormulaR1C1 = "" Range("D3").Select ActiveCell.FormulaR1C1 = "75" Range("E3").Select ActiveCell.FormulaR1C1 = "ART1" Range("A3").Select ActiveCell.FormulaR1C1 = "7/1/2018" Range("B3").Select ActiveCell.FormulaR1C1 = "7:17" Range("A2").Select ActiveCell.FormulaR1C1 = "" Range("A1:I1").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Selection.UnMerge Range("A1").Select ActiveCell.FormulaR1C1 = "Data de Registro" Range("A1:B1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A2").Select ActiveCell.FormulaR1C1 = "Data" Range("B2").Select ActiveCell.FormulaR1C1 = "Hora" Range("D2").Select ActiveCell.FormulaR1C1 = "Linha" Range("E2").Select ActiveCell.FormulaR1C1 = "Máquina" Range("C1:C2").Select Range("C2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("D1:D2").Select Range("D2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("E1:E2").Select Range("E2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("F1:F2").Select Range("F2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("G1:G2").Select Range("G2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("H1:H2").Select Range("H2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("I1:I2").Select Range("I2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A1:I2").Select Range("I1").Activate With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A6").Select ActiveCell.FormulaR1C1 = "7/1/2018" Range("B6").Select ActiveCell.FormulaR1C1 = "7:17" Range("A4:I4").Select ActiveCell.FormulaR1C1 = "" Range("D6").Select ActiveCell.FormulaR1C1 = "75" Range("E6").Select ActiveCell.FormulaR1C1 = "FP1" Range("A6:B6").Select Selection.Copy Range("A7:B13").Select ActiveSheet.Paste Range("D6:E6").Select Application.CutCopyMode = False Selection.Copy Range("D7:E13").Select ActiveSheet.Paste Rows("4:5").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=3 Range("A14").Select ActiveCell.FormulaR1C1 = "7/1/2018" Range("B14").Select ActiveCell.FormulaR1C1 = "7:17" Range("A12:I12").Select ActiveCell.FormulaR1C1 = "" Range("D14").Select ActiveCell.FormulaR1C1 = "75" Range("E14").Select ActiveCell.FormulaR1C1 = "FP1" Range("A14:B14").Select Selection.Copy Range("A15:B22").Select ActiveSheet.Paste Range("D14:E14").Select Application.CutCopyMode = False Selection.Copy Range("D15:E22").Select ActiveSheet.Paste Rows("12:13").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=3 Range("A23").Select ActiveCell.FormulaR1C1 = "7/1/2018" Range("B23").Select ActiveCell.FormulaR1C1 = "7:17" Range("A21:I21").Select ActiveCell.FormulaR1C1 = "" Range("D23").Select ActiveCell.FormulaR1C1 = "75" Range("E23").Select ActiveCell.FormulaR1C1 = "FP2" Range("A23:B23").Select Selection.Copy Range("A24:B31").Select ActiveSheet.Paste Range("D23:E23").Select Application.CutCopyMode = False Selection.Copy Range("D24:E31").Select ActiveSheet.Paste Rows("21:22").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=3 Range("A32").Select ActiveCell.FormulaR1C1 = "7/1/2018" Range("B32").Select ActiveCell.FormulaR1C1 = "7:17" Range("A30:I30").Select ActiveCell.FormulaR1C1 = "" Range("D32").Select ActiveCell.FormulaR1C1 = "75" Range("E32").Select ActiveCell.FormulaR1C1 = "FP3" Range("A32:B32").Select Selection.Copy Range("A33:B40").Select ActiveSheet.Paste Range("D32:E32").Select Application.CutCopyMode = False Selection.Copy Range("D33:E40").Select ActiveSheet.Paste Rows("30:31").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=3 End Sub

Pode deixar, segue anexado o modelo com os dados que quero organizar modelo.xlsx

Eu quero pegar esses dados: E organizar desse jeito: As mudanças:

Boa tarde senhores, Estou quebrando a cabeça para montar uma macro mas não estou conseguindo montar sua lógica. Preciso de uma macro onde ela irá olhar para primeira linha (A1) se for "XX XXXX" ela irá recortar "XX" e colar em D3, depois recortar "XXXX" e colar em E3. Após fazer isso irá olhar para C3, se nesta célula tiver uma informação do tipo "XXXX XXXX" (Um nome) vai em A3 e nessa célula vai ter uma informação de data e hora. Quero recortar a hora "00:00" e colar em B3, na coluna A3 manter a data no formato "00/00/00". E depois verificar se na linha abaixo tem um nome do tipo "XXXX XXXX", se tiver vai refazer o passo acima com as informações dessa linha. Se for falso irá excluir a primeira e segunda linha, movendo as linhas pra cima. Desde já agradeço, Abraço.

@devair1010 Muito obrigado, foi de grande ajuda. Graças a sua ajuda consegui montar o programa!

@devair1010 Primeiramente gostaria de agradece pela ajuda.... Eu fiz em C porque ainda não aprendi programar em c++ e minha base está toda em C, e tem um tempo também que não programo em C. Verifiquei os cálculos e eles estão certinhos, muito obrigado! adicionado 22 minutos depois Segue abaixo o programa final: #include <iostream> #include <string.h> int pessoas, aparelhos, btu, comsol, semsol, pessoastotal, btutotalpesoas; float btutotalaparelhos; float area, largura, comprimento; //char a[1]; using namespace std; int main() { comsol=800; semsol=600; char a[1]; string str; printf ("Qual a Largura do Comodo "); scanf ("%f", & largura); printf ("Qual o Comprimento do Comodo "); scanf ("%f", & comprimento); area = largura * comprimento; printf ("Quantidade de Pessoas no Comodo "); scanf ("%d", & pessoas); pessoastotal = pessoas - 1; printf ("Quantidade de Aparelhos no Comodo "); scanf ("%d", & aparelhos); printf("O comodo possui incidencia de sol S/N "); cin >> a; str=a; if (str[0]=='s') { btutotalpesoas = pessoas * comsol; btutotalaparelhos= aparelhos * comsol; btu = area * comsol + btutotalpesoas + btutotalaparelhos; //cout << endl; //cout << "ar condicionado a se instalado deve ser de " << btu << " btu" << endl;cout << endl; } else { if (str[0]=='n') { btutotalpesoas = pessoas * semsol; btutotalaparelhos= aparelhos * semsol; btu = area * semsol + btutotalpesoas + btutotalaparelhos; } if (btu <= 7000) { btu=7000; //printf ("O ar condicionado a ser instalado deve ser de 7.000 btus"); } else { if (7000 > btu <= 9000) { btu=9000; //printf ("O ar condicionado a ser instalado deve ser de 9.000 btus"); } else { if (9000 > btu <= 12000) { btu=12000; //printf ("O ar condicionado a ser instalado deve ser de 12.000 btus"); } else { if (12000 > btu <= 17000) { btu=17000; //printf ("O ar condicionado a ser instalado deve ser de 17.000 btus"); } else { if (17000 > btu <= 18000) { btu=18000; //printf ("O ar condicionado a ser instalado deve ser de 18.000 btus"); } else { if (18000 > btu <= 22000) { btu=22000; //printf ("O ar condicionado a ser instalado deve ser de 22.000 btus"); } else { if (22000 > btu <= 24000) { btu=24000; //printf ("O ar condicionado a ser instalado deve ser de 24.000 btus"); } else { if (24000 > btu <= 27000) { btu=27000; //printf ("O ar condicionado a ser instalado deve ser de 27.000 btus"); } else { if (27000 > btu <= 30000) { btu=30000; //printf ("O ar condicionado a ser instalado deve ser de 30.000 btus"); } else { if (30000 > btu <= 31000) { btu=31000; //printf ("O ar condicionado a ser instalado deve ser de 31.000 btus"); } } } cout << endl; cout << "O ar condicionado a ser instalado deve ser de " << btu << " btus"<<endl; cout << endl; system("pause"); } Quando fui compilar apareceu os seguinte erros: Como posso fazer as comparações de maior que menor que = BTU

Boa noite, Estou tentando montar um algoritmo em C para calcular a potência do ar condicionado,mas me surgiu diversas dúvidas logo no início. Segue abaixo o que o programa deve conter: - O algoritmo deve solicitar ao usuário se no cômodo há incidência de sol ou não, se houver considerar para o cálculo de btus 800 e se não houver 600 - Número de pessoas - Pedir a largura e o comprimento e calcular a área - Número de aparelhos no cômodo - Deve considerar somente a potência dos ar condicionados comercializados (7.000, 9.000, 12.000, 17.000, 18.000, 22.000, 24.000, 27.000, 30.000, 31.000) O cálculo é feito da seguinte forma: - Para cada metro quadrado, multiplica-se por 600 ou 800 (Depende se no cômodo bate sol ou não) - Cada pessoa adicional soma 600 BTU (a primeira pessoa não é contabilizada) - Cada equipamento eletrônico soma 600 BTU Ex.: Uma sala com 6m de largura e 5m de comprimento para três pessoas com dois computadores e há incidência de sol nesse cômodo A= CxL >> A= 5*6 >> A=30m² Pessoas = (nº de pessoas - 1) >> Pessoas = 2 Logo a Potência pro total de pessoas = 2 Pessoas x 800 (Incidência de sol) >> Potência pro total de pessoas = 1600 Potência pro total de aparelhos = 2 aparelhos x 800 (Incidência de sol) >> Potência pro total de aparelhos = 1600 BTU = A x 800 (incidência de sol) + Potência pro total de aparelhos + Potência pro total de pessoas >>> BTU = 30*800+1600+1600 >> BTU= 27.200 >> BTU= 27.000 Comecei montar o algoritmo assim: Algoritmo "App EasyCold" // Disciplina: [Programação de Aplicativo ] // Professor: Henrique de Medeiros Klôh // Descrição: Programa que calcula a potência recomendada para um ar condicionado a ser instalado em cômodos de uma residência. // Autor(a): Ewerton Pereira Reis e João Vitor // Data atual: #include <stdio.h> Main(){ Int pessoas, aparelhos, BTU, comsol, semsol, pessoastotal, btutotalpesoas a; comsol=800; semsol=600; float area, largura, comprimento; printf (“O cômodo possui incidência de sol"); scanf("%d", & a); printf ("Qual a Largura do Cômodo"); scanf ("%f", & largura); printf ("Qual o Comprimento do Cômodo"); scanf ("%f", & comprimento); area = largura * comprimento; printf ("Quantidade de Pessoas no Cômodo"); scanf ("%d", & pessoas); pessoastotal = Pessoas - 1; printf ("Quantidade de Aparelhos no Cômodo"); scanf ("%d", & aparelhos); if (a=1) { btutotalpesoas = pessoas * comsol; btutotalaparelhos= aparelhos * comsol; BTU = area * comsol + btutotalpesoas + btutotalaparelhos; } else { if (a=0) { btutotalpesoas = pessoas * semsol; btutotalaparelhos= aparelhos * semsol; BTU = area * semsol + btutotalpesoas + btutotalaparelhos; } } If (Btu <= 7.000) { printf ("O ar condicionado a ser instalado deve ser de 7.000 btus"); } else { if (7.000 > BTU <= 9.000) { printf ("O ar condicionado a ser instalado deve ser de 9.000 btus"); ...... ....... .......... e assim pra cada potência Gostaria que vocês dessem uma olhada no meu algoritmos, aceito qualquer tipo de correção, ideias e simplificações. Desde já agradeço

Boa tarde amigos, Estou tentando baixar videos de uma página da internet e não estou conseguindo, já tentei de várias formas. A página é bloqueada e não me permite o uso do botão direito, através do inspecionar elemento apertando F12 no navegador do firefox consigo ver os scrtipts da página e seus elementos, descobri que o video é reproduzido através do vzaar player. Gostaria de saber como faço para fazer o download desses vídeos

Boa tarde amigos, Eu tenho um hd externo com vários filmes e estou colocando a capa dos filmes como icone da pasta onde estão cada um deles para uma melhor associação com o nome do filme. Coloquei a pasta com ícones no hd externo e fui alterando o ícone de cada uma das pastas com seu respectivo filme. No meu pc as pastas aparecem com os ícones das capas, mas ao colocar o hd externo no notebook ou outro computador que não seja o meu esses ícones somem e só fica a imagem da pasta. Gostaria de saber se é possível que esses ícones apareçam em qualquer pc