Første indlæg, jeg elsker det, I alle laver her. Ved at bruge noget seriøs Google-kraft har jeg opdaget VBA-kode til at gøre to ting, jeg skal udføre.

1. Jeg har 3 datavalideringslister på én fane, og jeg vil have, at listerne som standard skal stå øverst på listen i stedet for bunden; Jeg fandt denne fantastiske kode, og den VIRKER.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Opdatering af Extendoffice 20160725
Dim xFormula As String
Ved fejl GoTo Out:
xFormel = Target.Cells(1).Validation.Formula1
If Left(xFormula, 1) = "=" Så
Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Værdi
End If
Out:
End Sub

2. Når jeg ændrer den første datavalideringsliste, vil jeg have, at de to andre celler skal ryddes ud og blive tomme, i dette tilfælde B2 og B74. Jeg fandt MANGE websteder, der kan prale af den samme eller meget lignende kode, men ingen enkelt variant, jeg kan finde (bogstaveligt talt sider med google-links) virker. Dette er den del, der ikke virker for mig, og jeg tror, ​​det kan have noget at gøre med koden ovenfor.

Privat Sub Worksheet_Change (ByVal Target As Range)
Hvis Target.Address(0, 0) = "B3" Så
Range("B74,B145"). ClearContents
End If
End Sub

På forhånd tak!