Midori

@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

@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.

@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

@Eder Neumann Acho que é Li-ion. Aí teria que colocar só de Li-ion? Não poderia ser de Lithium-Polymer?

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.

@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).

@felipeamorim.art Deve ter um valor 0. Você pode mudar a fórmula para >0 em vez de >=0.

Você pode passar o mesmo range para o outro parâmetro do SE. =MÍNIMO(SE(K553:K564>=0;K553:K564))

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)); } } }

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-

Já resolvi. @DiF Favor apagar esse tópico.

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,

@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

@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

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.