Kun muligt at skrive i celle, hvis andre celler er udfyldte

- Hov: hvis B1, C1 OG/ELLER D1 er udfyldt

en makro i Arkets modul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Offset(0, 1) = "" Or Target.Offset(0, 2) = "" Or Target.Offset(0, 3) = "" Then
MsgBox "Du skal vælge i kolonne B , C og D først"
End If
End If
End Sub

ved denne makro skal alle 3 være udfyldt

Jeg vil meget gerne undgå makroer hvis jeg kan?

Og det er vigtigt at man kan udfylde selvom kun en af de andre kolonner er udfyldt..

jeg tror ikke du kommer uden om makro, her er en der giver lov hvis der nare er data i en af dem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
A = Target.Offset(0, 1) & Target.Offset(0, 2) & Target.Offset(0, 1)
If Len(A) = 0 Then
MsgBox "Du skal vælge i kolonne B , C og D først"
End If
End If
End Sub

Hm, jeg tror jeg ved for lidt om makroer til at bruge dit forslag - jeg har kopieret koden ind i VB edititoren i excel, men det virker ikke. Er der en let måde du kan forklare mig hvordan jeg skal gøre? Eller er det for indviklet?

i det ark den skal virke på, højreklikker du på arkfanen, vælg vis programkode, der skal den være.

husk at makro sikkerhed skal sættes til lav, evt. mellem

Jeg får en fejlmeddelse om 'kompileringsfejl, navnet er tvetydigt: Private Sub Worksheet_SelectionChange(ByVal Target As Range'

du skal slette den anden, som du satte forkert, du må ikke have 2 med samme navn

Hurra, det virker! Tusind tak!!! Sender du mig et svar, så du kan få point?

Ups igen - kan den blive så det er kolonne B,C og/ELLER D?

et svar ;-))

hvad mener du  skal B og C begge være opfyldt ellers er det nok med D

Det skal være muligt at skrive i a, hvis b eller c eller d er udfyldt - eller evt dem alle sammen.

Og kan man lave det så man ikke KAN skrive? Nu kommer der fejlmeddelse, men man kan godt skrive.

Og mange tak for din hjælp - jeg er klar over at mit VB niveau er meget lavt, så tak for din tålmodighed!

ok der var en lille fejl.
Nu flytter den over i B kolonnen ved fejl, så kan du ikke skrive i A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
A = Target.Offset(0, 1) & Target.Offset(0, 2) & Target.Offset(0, 3)
If Len(A) = 0 Then
MsgBox "Du skal vælge i kolonne B eller C eller D først"
Target.Offset(0, 1).Select
End If
End If
End Sub

tak for point