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

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 Werkt inderdaad zeeeer goed en veel simpeler als VBA.... Top! Laatste vraag: Waar kan ik de foutmelding/foutmeldingstekst aanpassen? Normaal deed ik dat via MsgBox in Vba maar nu.... Alvast hartelijk bedankt!!!!!

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...) 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