-
Total de itens
1.477 -
Registro em
-
Última visita
-
Qualificações
0%
Reputação
689Informações gerais
-
Cidade e Estado
São Paulo, SP
-
Sexo
Prefiro não dizer
-
Visual Basic LOOP com células em intervalos
Midori respondeu ao tópico de Aron Gerd Ristow Filho em Programação - outros
@Aron Gerd Ristow Filho Veja se é assim, A macro vai copiar e colar valor em CO4:DB56. O range começa na coluna CO que é da forma que você fez na sua macro (coluna 93) e vai até a coluna DB que é a última com a data menor que hoje. Sub ColarValores() Dim Coluna As Integer Dim Linha As Long Dim Area As Range With ThisWorkbook.Sheets("ZEN") Linha = .Range("B" & .[B:B].Count).End(xlUp).Row Coluna = .[CO1].Column While .Cells(2, Coluna) < Now Coluna = Coluna + 1 Wend Set- 5 respostas
- 344 visualizações
-
Visual Basic LOOP com células em intervalos
Midori respondeu ao tópico de Aron Gerd Ristow Filho em Programação - outros
@Aron Gerd Ristow Filho Se possível anexe a planilha ou um modelo semelhante ao formato da original. Assim fica mais fácil tentar ajudar.- 5 respostas
- 344 visualizações
-
@M.Correa Veja se assim resolve. Atribua o nome da pasta correta na constante Pasta (está como C:\Teste\). Crie uma planilha em branco. A macro usa a primeira coluna para registrar os nomes das pastas e ordenar com CurrentRegion. Essa coluna será usada como referência para renomear as pastas quando necessário. Só usei essa coluna para ordenar porque não tenho certeza se no loop (For Each) os nomes vem sempre em ordem alfabética. Const Pasta As String = "C:\Teste\" Sub RenomearPastas() Dim SubPasta As Object Dim Fso As Object Dim Linha
- 6 respostas
- 226 visualizações
-
@Eder Neumann Acho que é Li-ion. Aí teria que colocar só de Li-ion? Não poderia ser de Lithium-Polymer?
- 6 respostas
- 299 visualizações
-
Quero trocar a bateria de uma Palm Tungsten T3, mas não encontro a original. Teria algum problema se colocar uma daquelas baterias de celular com mais amperes? Aí teria que soldar os dois fios nela.
- 6 respostas
- 299 visualizações
-
Excel Como retornar o menor valor que não seja negativo?
Midori respondeu ao tópico de felipeamorim.art em Microsoft Office
@felipeamorim.art Deixe a fórmula assim, =MÍNIMO(SE(E4:E15>=0;E4:E15)) Testei na sua planilha e deu certo. Mas você tem que deixar a fórmula matricial (Ctrl+Shift+ENTER).- 6 respostas
-
- 1
-
- 510 visualizações
-
Excel Como retornar o menor valor que não seja negativo?
Midori respondeu ao tópico de felipeamorim.art em Microsoft Office
@felipeamorim.art Deve ter um valor 0. Você pode mudar a fórmula para >0 em vez de >=0.- 6 respostas
- 510 visualizações
-
Excel Como retornar o menor valor que não seja negativo?
Midori respondeu ao tópico de felipeamorim.art em Microsoft Office
Você pode passar o mesmo range para o outro parâmetro do SE. =MÍNIMO(SE(K553:K564>=0;K553:K564))- 6 respostas
- 510 visualizações
-
C++ ordem alfabetica de vetor linguagem C
Midori respondeu ao tópico de Isis Liandra Santos em C/C#/C++
Em vez de usar uma variável aux para cada campo você pode copiar a estrutura, p.ex, for(int i = 0; i < MAX; i++){ for(int j = 0; j < MAX - 1; j++){ if(strcmp(p[j].nome,p[j + 1].nome) > 0){ pessoa aux; memcpy(&aux, &p[j], sizeof(pessoa)); memcpy(&p[j], &p[j + 1],sizeof(pessoa)); memcpy(&p[j + 1], &aux, sizeof(pessoa)); } } }- 4 respostas
-
- 1
-
- 262 visualizações
-
Consegui fazer criando dois aplicativos no Gorm, O primeiro é um projeto em branco (sem janela) que salvei como Planetas.gorm O outro é o Documento.gorm onde fiz as conexões que comentei no primeiro post e coloquei a janela com os controles (tableview, botões, etc) e ficou assim, Só não consegui alterar o título da janela. No Gorm coloquei como Planetas, mas quando executo fica como Untitled. Parte do .H com a estrutura dos planetas, #import <AppKit/AppKit.h> #define PLANETAS 8 #define PI 3.1416 #define G 6.67E-
- 3 respostas
- 187 visualizações
-
Já resolvi. @DiF Favor apagar esse tópico.
- 3 respostas
-
- 1
-
- 187 visualizações
-
Estou tentando entender como se usa o NSTableView no Gorm. Vi num tutorial que as conexões devem ser feitas entre os controles e que a aplicação deve ter os métodos numberOfRowsInTableView e tableView, mas ainda não consegui fazer funcionar. Qual é a forma correta de usar esse controle? Quando executo o programa dá este erro: Data Source doesn't respond to numberOfRowsInTableView, Estas são as conexões que fiz entre NSOwner e delegate/dataSource com TableView, Conexão entre NSOwner (Documento) e a Janela,
- 3 respostas
- 187 visualizações
-
Excel Erro ao transferir dados em sequências dos TxtBoxs e OptButtions para ListBox.
Midori respondeu ao tópico de Jomar FC em Microsoft Office
@Jomar FC Pode ser feito assim, Private Sub CommandButton1_Click() Dim Numero As Long Dim Cor As String Dim Quantidade As Integer Dim I As Integer Numero = Val(TextBox1) Quantidade = Val(TextBox2) ListBox1.Clear If OptionButton1 = True Then Cor = "Verde" If OptionButton2 = True Then Cor = "Azul" If OptionButton3 = True Then Cor = "Preto" For I = 0 To Quantidade - 1 ListBox1.AddItem ListBox1.List(I, 0) = Numero + I ListBox1.List(I, 1) = Cor Next I End Sub Private Sub UserF- 2 respostas
- 389 visualizações
-
@josequali Para pegar o total você pode atribuir os CountIfs a variáveis e depois somar todas e atribuir ao label da soma. Sobre a quantidade do administrador é só fazer como antes (com o CountIf apenas). Mas acho que para deixar a manutenção do seu projeto mais simples você podia mudar os nomes dos controles e criar Subs para alguns procedimentos. No caso das somas das análises poderia mudar os nomes dos controles de txt1, txt2... para lblAnalise1, lblAnalise2. Assim ficará mais fácil contar e somar, p.ex, Sub AtribuiQuantidadeOcorrencia( _ Formulario As
- 19 respostas
-
- 1
-
- 1.038 visualizações
-
Para contar com o critério do nome use CountIfs, p.ex, txt1 = WorksheetFunction.CountIfs([U:U], txtperfil, Sheets("bancodedadosocorrencia").[CI:CI], "Aguardando a análise da criticidade e definição do responsável") Obs: No Initialize a atribuição de txtperfil (Me.txtperfil.Value...) tem que estar antes das atribuições dos textbox.
- 19 respostas
-
- 1
-
- 1.038 visualizações