Wilson Cardoso

Boa tarde, estou utilizando esta sintaxe, Private Sub txtinicio_Change() If IsNumeric(txtinicio) = False Then Exit Sub If Len(txtinicio) = 8 Then txtinicio.Value = FormatDateTime(Left(txtinicio.Value, 2) & "/" & Mid(txtinicio.Value, 3, 2) & "/" & Right(txtinicio.Value, 2)) End If End Sub Porém, quando ela vai para o excel, inverte o dia e o mês, não sei se por conta do código ou da tabela. Exemplo, eu escrevo 10/05/2020 no TextBox, no Excel aparece 05/10/2020

Isso, muito obrigado!!!

Seguinte, uma pessoa vai alugar por 3 meses, nesse formulário tem a opção de adicionar lá na tabela o dia de vencimento e quantos meses a pessoa vai ficar. Por exemplo: dia de vencimento 10.05.2020 10.06.2020 10.07.2020 A próxima pessoa que vai alugar, vai ficar 2 meses, gostaria que o código adicionasse abaixo desses. 10.08.2020 10.09.2020

Funcionou, porém tenho que colocar por exemplo, a pessoa vai ficar 12 meses, no formulário tenho para preencher a quantidade de meses e gostaria de preencher apenas esses meses. No caso 12 linhas abaixo da última. Obrigado!

Achei essa sintaxe no site da microsoft, mas eu gostaria de fazer uma com variável, onde ele comece a contar a partir da última linha da coluna "H". Estou fazendo um cadastro para aluguéis, onde ao fazer o cadastro, irá preencher os meses de locação do imóvel utilizando o "Type:=xlFillMonths". Set sourceRange = Range("A1:A2") Set fillRange = Range("A1:A20") SourceRange.AutoFill Destination:=fillRange