2017-01-11 2 views
-3

Dies wäre für Excel Experts einfach ... Ich möchte eine Dialogbox anzeigen lassen, wenn ein Eintrag in Spalten M erstellt wurde , AR, BR, CR, DR ... KRDialogfeld, das angezeigt wird, wenn ein Eintrag in Spalten erstellt wurde AR, BR, CR, DR

Es wäre schön, wenn ich bekommen, was Eintrag in die Spalte im Dialogfeld wurde angezeigt gemacht ... das ist zweitrangig, wenn möglich

Diese Spalten werden mit Text durch eine andere Formel gefüllt ... und das wird sehr selten sein

Also, ich möchte nur durch eine Warnmeldung wissen, wenn diese Zellen in Zukunft von Text gefüllt werden.

mit Code jede Hilfe ist willkommen :)

Vielen Dank im Voraus

+1

Bhshan Was Sie so versucht haben, weit? Das erfordert definitiv VBA-Code und kann nicht durch Formeln erledigt werden. Erwarte nicht, dass SO dein Code-Writing-Service ist. – dgorti

+0

OK Entschuldigung Jungs, wenn ich vorher eindeutig war. Lassen Sie mich kurz erklären. Es gibt 12 Spalten für 12 Monate als M, AR, BR, KR .... M hat die Formel = IF (ISERROR (VLOOKUP (S8, N: N, 1, FALSE)), S8,) es für einen Wert in Spalten S aussieht, ähnlich , hat AR Formel = IF (ISERROR (VLOOKUP (AO7, AJ: AJ, 1, FALSE)), AO7,) es AJ für Wert in der Spalte aussehen wird BR wird in CJ schauen ... Jetzt ist es nicht notwendig, dass diese S, AJ, BJ ... KJ Text in ihnen haben werden. Es ist selten, dass es Eintrag in S, AJ, ..KJ Ich möchte nur von Display-Box benachrichtigt werden, wenn es Text in den Spalten S, AJ, BJ..KJ –

+0

@ dgorti Ich habe versucht dieses private Sub Worksheet_Change (ByVal Target As Excel.Range) Wenn Worksheets ("Tabelle1"). Range ("M7"). Value = "" Then Exit Sub Else MsgBox ("Es war ein oder mehr Ablehnungen ") Ende Wenn End Sub dies funktioniert mit nur einzelne Zelle ... ich will dies funktioniert für 12 Spalten M, AR, BR, CR ... KR für das gleiche Blatt. –

Antwort

0

Drücken Sie Alt + F11 Klicken Sie auf Arbeitsmappe, und fügen Sie diesen Makro:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
     Select Case Target.Column 
      Case 13, 44, 70, 96 'M, AR, BR, CR 
       MsgBox ("You have altered column " & Target.Address & " with value: " & Target.Value) 
     End Select 

End Sub 
+0

Sie sollten diese Spalten schützen und das Blatt sperren, damit sie nicht überschrieben werden können. (Sie können den Schutz aller Zellen aufheben, die von anderen Personen bearbeitet werden können.) – ClintB

Verwandte Themen