Tilføjelse til makro

En mulighed:
Sub test()
    If Not (Range("A1") <> "" And Range("B1") <> "" And Range("C1") <> "") Then
        MsgBox ("Indtastningen mangler i A1:C1")
    Else
        '<udfør makroen>
       
    End If
End Sub

Er lidt en rookie med vba, så der kommer lige et par tillægsspørgsmål... :o)

Kan man ikke samle alle cellerne i én parantes, altså

If Not(Range("A1;B1;C1") <> "" Then...

Er i tvivl om hvor jeg skal sætte den ind for at den virker som den skal...?

Linien <udfør makroen> skal vel ændres til <udfør Gemskema> (som makroen hedder), eller hvad?

Sub test2()
    If ErAltUdfyldt = False Then
        MsgBox ("Indtastningen mangler i A1:C1")
    Else
        Gemskema
    End If
End Sub

rem Functionen tester de enkelte celler i området A1-C1
rem Hvis blot een celle er tom afbrydes funtionen = false
rem Ellers returneres True

Private Function ErAltUdfyldt()
    For Each Celle In Range("A1:C1").Cells
        If Celle = "" Then
            ErAltUdfyldt = False
            Exit Function
        End If
    Next
    ErAltUdfyldt = True
End Function

Ok. Det skal vist skæres ud i pap... Har prøvet at indsætte, men kan ikke få det til at virke.

For at simplificere spørgsmålet brugte jeg A1-C1. Det drejer sig i virkeligheden om cellerne D9, D13, D17, L9, L13 og L17 som skal være udfyldt før "Gemskema" kan aktiveres.

Regnearket fungerer således at man indtaster i de nævnte celler, trykker på en knap der aktiverer makroen "Gemskema" som kopierer de indtastede data over i et andet ark og rydder nævnte celler til næste indtastning.

Skal jeg tilknytte ovenstående makro til knappen i stedet for "Gemskema", eller skal ovenstående være en del af "Gemskema" (i så fald, hvor skal den sættes ind)?

Kode bør tilknyttes knappen - fordi brugeren indikerer, at nu skal der gemmes.

Kan du selvændre koden til de "rigtige" celler?

Well, det virker ikke, så har tydeligvis ikke gjort det rigtigt...

Sub test2()
    If ErAltUdfyldt = False Then
        MsgBox ("FEJL - Alle de 6 øverste celler SKAL udfyldes!")
    Else
        Gemskema
    End If
End Sub

Rem Functionen tester de enkelte celler i cellerne D9;D13;D17;L9;L13;L17
Rem Hvis blot een celle er tom afbrydes funtionen = false
Rem Ellers returneres True

Private Function ErAltUdfyldt()
    For Each Celle In Range("D9;D13;D17;L9;L13;L17").Cells
        If Celle = "" Then
            ErAltUdfyldt = False
            Exit Function
        End If
    Next
    ErAltUdfyldt = True
End Function

Så er der håb (måske):

Sub test2()
    If ErAltUdfyldt = False Then
        MsgBox ("FEJL - Alle de 6 øverste celler SKAL udfyldes!")
    Else
        gemSkema
    End If
End Sub
Private Sub gemSkema()
    MsgBox ("Skema gemmes")
End Sub
Rem Functionen tester de enkelte celler i cellerne D9;D13;D17;L9;L13;L17
Rem Hvis blot een celle er tom afbrydes funtionen = false
Rem Ellers returneres True
Private Function ErAltUdfyldt()
    Set område = Range("D9,D13,D17,L9,L13,L17")
   
    For Each Celle In område.Cells
        If Celle = "" Then
            ErAltUdfyldt = False
            Exit Function
        End If
    Next
    ErAltUdfyldt = True
End Function

Mmmm... Det virker fint indtil med boksen "skema gemmes", men når man trykker ok sker der ikke mere. Makroen "Gemskema" bliver ikke aktiveret...?

Er der data i alle obligatoriske celler?

Ja, der er data i de 6 celler, og der kommer beskeden "skema gemmes", men derefter sker der intet...

I min kode nedenfor gemmes skemaet ikke. Der vises kun at processen er i denne SUB.

Sub test2()
    If ErAltUdfyldt = False Then
        MsgBox ("FEJL - Alle de 6 øverste celler SKAL udfyldes!")
    Else
        gemSkema
    End If
End Sub

Private Sub gemSkema()
    MsgBox ("Skema gemmes")
End Sub

Ikke forstået?

Som jeg har forstået det, skal knappen aktivere den føromtalte kode, som undersøger om de 6 felter er udfyldt. Hvis ikke de er udfyldt, aktiveres fejlmeddelelsen, og hvis de er udfyldt aktiveres makroen "Gemskema"...

Ja - korrekt - men min makro gemmer ikke - det er blot det :-)

Nej, det gør makroen gemskema. Det er derfor jeg ikke forstår at det ikke virker...

Prøv at vise hele din kode - og/eller send filen til mig (mailadr. under min profil)

Ok, har sendt skemaet til dig...