Ron001
-
Items
49 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door Ron001
-
-
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
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...)
Quoteze 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...:-(
-
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! -
@ 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
Invoegen tabel uit Excel in Outlook
in Archief Excel
Geplaatst:
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?
M2.xlsx