Ron001

Allen

Ik maak sinds enige "automatisch" e-mails aan met onderstaande code.

Nu zou ik graag hebben dat (identiek dezelfde) tabel uit bijlage mee in e-mail komt?

Dat is dus mijn probleem, kan dit?

Sub Vrijgave()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Allen<br><br>" & _
                  "Wanneer kunnen we onderstaande machine " & _
               'BV HIER DE TABEL
                  "<font color = #FF0000>" & _
                  " een ganse ploeg (8 uur) " & _
                  "</font>" & _
                  "onderhoud? " & _
                  "<br><br><br><br>Mvg " & _
                  "<br><br>Ron"


        On Error Resume Next
        With OutMail
            .To = "adressen"
            .CC = "adressenm"
            .BCC = ""
            .Subject = "Onderwerp"
            .HTMLBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
   
   
End Sub

M2.xlsx

I know, maar ik geef dit niet in...

2 andere gebruikers, maar kom hier wel uit.....

Bedankt!

Daarom dat ik dus nog steeds een VBA-stukje moet gebruiken...

Je hebt gelijk, ik ga het niet moeilijker maken dan nodig...

Ga validatie behouden...

Alleen was ik net aan het testen en krijg ik bij het kopiëren van een tweede snel/lak geen foutmelding....

Via VBA lukt me dit normaal wel...

Maar VBA samen met gegevensvalidatie?

Kan je mss een voorzetje geven?

Ik wil de gebruiker niet persoonlijk aanspreken, maar wel de naam weergeven in de foutmelding van de persoon die al aangeduid is...

Hierboven was inderdaad beetje fout, gebruiker = medewerker

1 uur terug, alpha zei:

Zoals ik al schreef: in het menu bij gegevensvalidatie.

Heb je dat n.a.v. mijn vorige berichten niet bekeken/bestudeerd?

 

Jawel, maar kan ik iets aanpassen zoals in VBA? Hier kan ik enkel iets typen...

bv:Gebruiker x (Range B is al reeds aangeduid als Lakstraat 

Kan ook de loonnummer terug komen te staan wanneer men verandert van "snel/lak"?

@ Alpha

Er kan in de range (per ploeg) maar één iemand Lakstraat doen en één iemand Sneldienst...

Vanaf dat er iemand staat met die code, zou er geen tweede toegevoegd mogen worden...Want er wordt steeds maar één technieker voorzien...

Dit werkt inderdaad in de cellen ernaast (maar precies niet altijd)...

Maar is VBA niet handiger (als de andere gebruikers per toeval wat aan de opmaak zitten ofzo, formule weg, resultaat weg...)

Quote

ze geven alleen de laatste naam weer in de reeks die wordt doorlopen en daarom begrijp ik niet goed waarom je daarvoor kiest. 

Daarom dat ik via VBA er iets bij in zou willen van max 1 "SNEL" en "LAK" per range. Dat de tweede "SNEL" en "LAK" per range niet wordt bijgehouden...

En een foutmelding (MsgBox): Gebruiker xxx is al aangeduid...

Via VBA kan ik dan ook "SnEl", "snel", alle schrijfvormen opvangen (LCase...)

Mvg

Ron

Krijg foutmelding....

"U kunt geen matrixformules opgeven voor samengevoegde cellen."

Sorry....

Had ik al gedaan, want code staat in onderstaande...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Maar blijft vastlopen op:

Set myrange = Union(Range("A17:A26"), Range("A28:A35"))

Morgen nog wat testen, ben het ff beu

Als ik de . voor de Range's weghaal, krijg ik deze foutmelding nimmer...

Maar dan volgende foutmelding: te weining stackruimte...

Nog wat proberen...

Fouten in bijlage...:-(

alpha.docx

Dit lijkt mij toch nuttig, moeten diegene die de file invullen enkel  "snel" of "lak" zetten...

Ik moet enkel die twee kleine ranges doorlopen ("A17:A26") en ("A28:A35")

Ik krijg foutmelding op 

.Range("AA2:AB3").ClearContents

Waarom staat dit er eigenlijk?

Met de rest van de code ben ik wel helemaal mee

Bedankt!

Onderstaande code heb ik "proberen" te schrijven..

Ik heb deze nu opgesplitst in "SNEL" en "LAK", kan deze samengevoegd worden?

En de foutmelding bij meer als 1 "SNEL" en "LAK" in een range?

Dat dus ook de tweede "SNEL" en "LAK" niet kan gezet worden?

Alvast bedankt!

Sub ron()

For Each cl In ActiveSheet.Range([A17:A26], [A28:A35])
If UCase(cl.Value) = "SNEL" Then [AA2].Value = cl.Offset(, 1).Value
'If cl.Offset(, 1).Value > 1 Then MsgBox "[AA2].Value  is al aangeduid." 'WERKT NIET
Next cl
For Each cl In ActiveSheet.Range([A17:A26], [A28:A35])
If cl.Value = "LAK" Then [AA3].Value = cl.Offset(, 1).Value
Next cl

End Sub

Nog wat aan het testen geweest...

Werkt wel met:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Waar kan ik nu ook bv nog bijvoegen "snel", "SnEl","Lak","LAK"

En de foutmelding bij meerdere "SNEl's en LAK's in dezelfde range?

Alvast bedankt

Werkt wel met: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each cl In Range("A17:A26")
If cl.Value = "SNEL" Then [AA2].Value = cl.Offset(, 1).Value
Next cl

End Sub

Maar krijg nu foutmelding op :

[AA2].Value = cl.Offset(, 1).Value

Stack niet groot genoeg, excel valt dan uit...

Doet niets...:-(

Ik heb voorlopig dit, maar werkt niet :-(

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

For Each cl In ActiveWorkbook.Range("A17:A26")
    If cl.Value = "SNEL" Then
        cl.Value.Offset(, 1).Copy = Range(AA2)
    End If
    Next
End Sub

Beste Helpers

In week 7 staan rechtsboven 2 kaders (één voor vroege ploeg, één voor late ploeg).
Bij elke ploeg heb je iemand die sneldienst/lakstraat doet, dus mijn vraag;

Als je bv in range("A17:A35) de loonnummer verandert naar SNEL/LAK dat de naam die in range("B17:B35") staat gekopieerd wordt naar AA2 (Snel) en AA3 (LAK)
Max 1 SNEL/LAK per range en foutmelding bij 2de SNEL/LAK per range
Als je verandert naar andere persoon, loonnummer terug verschijnt.

Alvast hartelijk bedankt!

sneldienst.xlsm

@ Alpha

Application.Quit stond er , maar de andere gebruikers vonden dit lastig omdat dan alle openstaande Excel-files gesloten werden, daarom wil ik alleen ActiveWorkbook...

Voor de opm, heb ik vorige week wat aan het samenzetten geweest, maar toen werkte het afsluiten helemaal niet meer (daarom zo laten staan...)

Zal morgen nog eens proberen...

Alvast bedankt!

Allen,

Het automatisch afsluiten van de file geeft een foutmelding bij ActiveWorkbook.Quit

File in bijlage...

Sub close_wb()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Quit

End Sub

PO planlijst TD Assen.xlsm