Sub copiar2() Dim linha As Long linha = 1 While ThisWorkbook.Sheets("BDDADOS").Cells(linha, 1).Value <> ""...

Aprendi uma coisa neste fórum: Só respondo se houver planilha anexa.

Favor verificar o anexo

A parte de formulários (janelas) demanda muito tempo, mas é a mais fácil e a maioria das pessoas consegue fazer, pois não precisa entender de programa...

Impossível

Private Sub Worksheet_Change(ByVal Target As Range) Dim wsHist As Worksheet, Rng As Range Set wsHist = Sheets("História") Set Rng = wsHist&...

Esqueça esse código e explique detalhadamente o que deseja fazer nesse intervalo C10:C20. Anexe a planilha para facilitar o entendimento.

Favor testar os anexos. Se resolveu, favor marcar como resolvido.

Private Sub Workbook_SheetChange( ByVal Target As Range) Dim wsHist As Worksheet, Rng As Range Set wsHist = Sheets("História") Set Rng = ws...

Você deve marcar como resolvido na parte do código que respondeu sua dúvida, não na própria parte que você enviou.

Favor testar os anexos. Se resolveu, favor marcar como resolvido.

Favor testar os anexos. Se resolveu, favor marcar como resolvido.

CADASTRO.Range("A1").Value2 = Format(Me.txtprazodeentrega.Value, "dd/mm/yyyy")

Controle de estoque não é difícil de fazer, mas demanda muito tempo. Creio que a melhor alternativa é contratar um profissional. Se você quer contrata...

Sub adicionar() Dim lista() As String Dim i As Long Dim item As String item = "item1" i = 0 ReDim Preserve lista(i) While lista(i) <>...