04. december 2007 - 09:48Der er
3 kommentarer og 1 løsning
Send mail, forudsat at celler er udfyldt.
Er det muligt i nedenstående, at lægge ind som en betingelse at A1:A20 skal være udfyldt for at kunne sende???
Private Sub CommandButton3_Click() Modtager = ActiveSheet.Range("J4") overskrift = ActiveSheet.Range("C28") If Application.MailSystem <> xlNoMailSystem Then ActiveSheet.Copy With ActiveWorkbook .SendMail _ Recipients:=Modtager, _ Subject:=overskrift .Close SaveChanges:=False End With
Application.MailLogoff Else MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse" End If End Sub
Private Sub CommandButton1_Click() Modtager = ActiveSheet.Range("J4") overskrift = ActiveSheet.Range("C28") For Each c In Range("a1:a20").Cells If IsEmpty(c.Value) Then MsgBox "Alle celler i A1 til A20 skal være udfyldt", vbCritical Exit Sub End If Next c
If Application.MailSystem <> xlNoMailSystem Then ActiveSheet.Copy With ActiveWorkbook .SendMail _ Recipients:=Modtager, _ Subject:=overskrift .Close SaveChanges:=False End With
Application.MailLogoff Else MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse" End If End Sub
Du imponerer mig gang på gang; men det er ufatteligt lærerigt. Jeg valgte dog at lave denne om til en tabel i stedet. Lægger du lige et svar, så du kan få dine point? Tusind tak for hjælpen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.