Ga naar inhoud

Ron001

Lid
  • Items

    49
  • Registratiedatum

  • Laatst bezocht

Alles dat geplaatst werd door Ron001

  1. 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
  2. Ron001

    SNEL/LAK

    I know, maar ik geef dit niet in... 2 andere gebruikers, maar kom hier wel uit..... Bedankt!
  3. Ron001

    SNEL/LAK

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

    SNEL/LAK

    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....
  5. Ron001

    SNEL/LAK

    Via VBA lukt me dit normaal wel... Maar VBA samen met gegevensvalidatie? Kan je mss een voorzetje geven?
  6. Ron001

    SNEL/LAK

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

    SNEL/LAK

    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
  8. Ron001

    SNEL/LAK

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

    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!!!!!
  10. Ron001

    SNEL/LAK

    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...
  11. Ron001

    SNEL/LAK

    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
  12. Ron001

    SNEL/LAK

    Krijg foutmelding.... "U kunt geen matrixformules opgeven voor samengevoegde cellen."
  13. Ron001

    SNEL/LAK

    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
  14. Ron001

    SNEL/LAK

    Als ik de . voor de Range's weghaal, krijg ik deze foutmelding nimmer... Maar dan volgende foutmelding: te weining stackruimte... Nog wat proberen...
  15. Ron001

    SNEL/LAK

    Fouten in bijlage...:-( alpha.docx
  16. Ron001

    SNEL/LAK

    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
  17. Ron001

    SNEL/LAK

    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
  18. Ron001

    SNEL/LAK

    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
  19. Ron001

    SNEL/LAK

    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...
  20. Ron001

    SNEL/LAK

    Doet niets...:-(
  21. Ron001

    SNEL/LAK

    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
  22. Ron001

    SNEL/LAK

    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
  23. @ 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!
  24. 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
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.