Wie setzt man die Bedingung in Excel VBA basierend auf dem Zellenwert?

Question

Ich möchte eine Frage stellen. Ich habe Codes, wie ich die letzte Reihe von Excel in vba speichern kann, Aber in meinen Codes möchte ich eine Bedingung hinzufügen, wo zum Beispiel letzte Zeile ausgewählt wird, wenn cell.value der Spalte E = "deaktivieren" dann

‚speichern wie diese WB.SaveAs Dateiname: = "C: \ Neuer Ordner \" & Dateiname, Fileformat: = 51

End If

Dies ist meine Codes

Sub Increment() 
    ' change A1 to the cell you wish to Increment 
    Range("A1").Value = Range("A1").Value + 1 
End Sub 

Private Sub CommandButton1_Click() 
Call SaveLastLine 
End Sub 

Sub SaveLastLine() 

    'Variable declaration 
    Dim score As String 
     Dim WB As Workbook, _ 
      filename As String 

     'Turn off screen updating and alerts 
     Application.ScreenUpdating = False 
     Application.DisplayAlerts = False 
     'Make a copy of the last line of Active Sheet 

     newName = ActiveSheet.Name 
     Range("B1").Select 
     Selection.End(xlDown).Select 
     Range(Selection, Selection.End(xlToRight)).Select 

     Selection.Copy 
     Workbooks.Add 
     ActiveSheet.Paste 

    Call Increment 

     FileNane1 = Range("A1").Value 

     Set WB = ActiveWorkbook 
     filename = newName & FileNane1 & ".xlsx" 
     WB.SaveAs filename:="C:\New Folder\" & filename, FileFormat:=51 

     'Restore screen updating and alerts 

     Application.DisplayAlerts = True 
     Application.ScreenUpdating = True 

End Sub 

Gibt es jemanden, der mir helfen kann, in meinen VBA-Codes eine Bedingung hinzuzufügen?

Bitte jeder kann mir helfen.

Answer 1

FileName1 = Range("A1").Value 
if FileName1 = "disable" then 
    Set WB = ActiveWorkbook 
    filename = newName & FileNane1 & ".xlsx" 
    WB.SaveAs filename:="C:\New Folder\" & filename, FileFormat:=51 
end if