VBA Coed Pflichtfelder basierend auf spezifischen Daten

Question

Ich habe ein Formular erstellt mit Excel in Spalte A11 Ich habe eine Dropdown-Box mit drei Optionen. Wenn eine dieser Optionen ausgewählt ist, ist die gesamte Zeile erforderlich. Ich habe überall gesucht und finde den richtigen Code nicht. Ich bin neu in VBA

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

    Dim rsave As Range 
    Dim cell As Range 

    Set rsave = Sheet1.Range("B11)]") 

    For Each cell In rsave 

      If cell.Value <> "" And cell.Offset(0, 1).Value = "" Then 

      Dim missdata 
      missdata = MsgBox("Missing Data - Enter the Date for WorkBook to Save", vbOKOnly, "Missing Data") 
      Cancel = True 
      cell.Offset(0, 1).Select 

     Exit For 

     End If 

     Next cell 

End Sub 

Answer 1

Dies sollte es tun. Setzen Sie "SheetToCheck" auf das Blatt, das Sie überprüfen möchten. Die Schleife wird beendet, sobald ein fehlender Wert gefunden wurde. Die MsgBox gibt den ersten Bereich an, in dem ein fehlender Wert gefunden wurde.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Dim ws As Worksheet 
    Dim lastrow As Integer 
    Dim CellToCheck As Range 
    Dim exitLoops As Boolean 
    Set ws = Worksheets("SheetToCheck") 

    lastrow = ws.UsedRange.Rows.Count 
    exitLoops = False 

    With ws 
     'Loop over rows: 
     For i = 2 To lastrow 
      If exitLoops = True Then Exit For 

      If .Range("A" & i).value <> "" And .Range("A" & i).value <> "SELECT ONE" Then 

       'Loop over cells in row: 
       For Each CellToCheck In .Range("B" & i & ":K" & i) 
        If exitLoops = True Then Exit For 
        If CellToCheck.value = "" Then 
         Cancel = True 
         MsgBox "Missing Data in cell " & CellToCheck.Address 
         exitLoops = True 
        End If 
       Next CellToCheck 
      End If 
     Next i 
    End With 
End Sub