none
Macro para que uma condição entre duas celulas seja verdadeira RRS feed

  • Pergunta

  • Olá,Estou preparando uma planilha para receber dados para alimentar uma tabela no SQL Server, nessa planilha consta os campos Nome, Status, Observação e DtAtualização.

    Criei uma macro para inserir a data no campo DtAtualização, quando um status for inserido. Porém tenho que criar uma condição para quando o campo Status e DtAtualização estiverem preenchido ela pule para a próxima linha e quando estiver apenas o status preenchido, inserir a data atual. Minha macro tem como "ponteiro" o campo status preenchido para proseeguir a macro.

    Sub DtValidacao()
    Range("A2").Select
    ActiveCell.Offset(0, 1).Select
    
    If ActiveCell.Value = "" Then
    ActiveCell.Offset(1, -1).Select
    End If
    
    Do While ActiveCell.Value <> ""
    ActiveCell.Offset(0, 1).Select
    
    If ActiveCell.Value = "" Then
    ActiveCell.Offset(1, -1).Select
    
    ElseIf ActiveCell.Value <> "" Then
    ActiveCell.Offset(0, 2).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    ActiveCell.Offset(1, -3).Select
    
    End If
    Loop
        Columns("D:D").Select
        Application.CutCopyMode = False
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    Range("a1").Select
    MsgBox "Atualização Finalizada", vbInformation
    Exit Sub
    End Sub


    terça-feira, 31 de março de 2015 19:30