McJota

Se entendi direito, o código seria este: Private Sub CommandButton1_Click() Dim magia As String magia = InputBox("Acrescentar Penalidade") Range("BP25").Select Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(0, 1).Select End If Loop Until IsEmpty(ActiveCell) = True Activecell.Value = magia End Sub Abraço....

Olá pessoal, mais uma vez precisando da ajuda de vocês! É o seguinte, tenho uma ComboBox com mais de 400 itens e crescendo diariamente. Como faço para usar o scroll do mouse nesta ComboBox?? Obrigado.....

Olá pessoal, estou com um problema no seguinte módulo: Option Explicit Sub CreateDesktopShortcut() Dim szMsg As String Dim szStyle As String Dim szTitle As String Const szIconName As String = "D:\Filmes\" & UserForm1.TextBox1.Value & ".ico" Na parte em azul, aparece a mensagem de erro: Expressão constante obrigatória! Qual o erro? O que fazer para resolver? Conto com a ajuda de vocês!! Grato....

Olá pessoal, estou precisando de uma ajudinha! Tenho uma pasta com varios filmes em AVI, sempre que lota meu HD, transfiro esta pasta para outro HD. Criei uma macro no VBA para criar um arquivo .BAT para cada filme existente tanto no HD principal, quanto nos outros HDs e desse arquivo .BAT criei um atalho no Desktop, podendo assim alterar o ícone para a capa do respectivo filme. Sempre que executo o arquivo .BAT, ele faz uma varredura no PC, se o filme for encontrado, ele executa o filme mas se não for encontrado, ele redireciona para um arquivo .VBS que retorna a mensagem que o filme não foi encontrado. Queria que essa mesma macro que cria o arquivo .BAT também criasse o respectivo atalho dele e se possivel atribuisse o icone de mesmo nome a ele! Isso é possível?? Como?? Agradeço pela atenção e aguardo respostas por gentileza....

É o seguinte, tenho uma planilha de vendas onde a coluna "B" é o codigo do produto, "C" descricao do produto, "D" data da venda, "E" valor de venda e "F" quantidade vendida, "G" valor total da venda. No userform coloquei 2 TextBox, 1 Botao e 1 ListBox. Queria que quando digitasse as datas nas 2 textBox e clicasse no botao, retornasse na lstBox todos os dados referentes ao intervalo dessas datas. Minha listBox tem 6 colunas, então retornaria "Codigo", "Descricao", "Data", "Valor de venda", "Quantidade vendida" e "Total da venda". Tem como fazer isso? Como?