por exemplo: plan1.range("A1").value = CDate(TextBox1.Text)

Marque como resolvido na parte que te ajudou.

Confesso que não entendi a finalidade desta linha e me pergunto se não seria sCodigo em vez de Codigo. Mesmo fazendo a correção, esta linha é mesmo ne...

Kayo, Quando colocar código neste fórum, aperte o botão Code Vou apenas comentar o código do Mauro, talvez seja útil. Sub Copy_Consolidado() 'Dec...

Primeiro - Língua Portuguesa alterasse, pedisse, fizesse, localizasse, encontrasse... Em vez de altera-se, pede-se, faz-se, localiza-se, encontra-...

Kayo, para que possamos te ajudar, é necessário que você apresente códigos e explique qual parte não está conseguindo fazer. Por isso, a seguir estão ...

Preenchimento da ComboBox: Private Sub Workbook_Open() Plan1.ComboBox1.AddItem ("IPTU") Plan1.ComboBox1.AddItem ("...

Há um site que ensina como fazer: http://www.macoratti.net/d040102.htm

Testei e funcionou: Sub teste() Workbooks.Add ActiveWorkbook.SaveAs "C:UsersANDERSONDesktopteste.xlsx" End Sub

Sub excluir() Dim linhainicial, linhafinal As Long linhainicial = InputBox("Informe a linha inicial") linhafinal = InputBox("Informe...

Private Sub assbox_Change() Dim indice As Long indice = assbox.ListIndex 'addlines = Worksheets("Plan1").UsedRange.Rows....

Para quem for responder, saiba que ele postou a mesma dúvida em outro fórum: https://social.msdn.microsoft.com/Forums/pt-BR/46928...

Private Sub ComboBox1_Change() Plan1.TextBox1.Text = Me.ComboBox1.Value End Sub Private Sub CommandButton1_Click() If Me...

Quando for colocar código neste fórum, clique no botão Code. No lugar de Me, coloque o nome do Userform em que está a caixa de texto.

Private Sub assbox_Change() Dim indice As Long indice = assbox.ListIndex 'addlines = Worksheets("Plan1").UsedRange.Rows....