Takenlijst in excel

[creepher]

Hallo
Ik zou graag voor op school waar ik als Conciërge werk.
Een takenlijst willen maken zodat als er iets op school defect is
of als er iets vernieuwd moet worden.
De leerkrachten dit via dit excel bestand aan mij kunnen doorgeven.
ik heb in het bestand tekst en uitleg geschreven. het wachtwoord wat er nu op staat
is gewoon 1234.
Het zal wel onmogelijk zijn om een bestand te maken waar iedere leerkracht gebruik van zou kunnen maken.
Als dat zou kunnen moet ik alleen nog een kolom aanmaken met de tekst Groep.

Alvast bedankt Creepher

 

[RaymondC]

Heb een dropdown gemaakt in de kolommen:
groep - status - voltooid - prioriteit

De kolommen waar de lijsten staan heb ik hidden gezet.

Om de kolom te beschermen tegen invullen moet ik even het antwoord schuldig blijven.

 

[Cobbe]

Kijk eens of deze werkwijze iets voor u kan betekenen.

Cobbe

 

[creepher]

Het ziet er al supper uit

Hoi Cobbe het ziet er al goed uit
alleen als ik iets in vul en klik op wegschrijven dan doet hij dat niet.
Ik heb een vraag aan jou kun jij iets voor mij maken het hoeft niet zo te zijn
zoals ik ben begonnen je mag zelf kijken hoe en wat dat in voorscherm
ziet er al supper uit.
als jij een beter idee hebt om iets te maken zoals ik het beschreven heb
vindt ik het goed.
kijk maar of en wat je voor mij kunt maken


Mvgr Creepher:thumb:

 

[Cobbe]

Ik hoop dat jij zelf iets kunt met deze code. Ik heb ze regel per regel laten afwerken zodat deze overzichtelijk blijft. Je kunt met F8 regel per regel laten uitvoeren van deze code.
Zie maar eens of dit iets wordt

Cobbe

 

[creepher]

Helaas kan ik hem niet open maken

Hoi hoi

Helaas kan ik hem niet open maken hij geeft een beveiligings melding weer
en als ik door ga gaat hij wel open maar dan zie ik allemaal raare teksten staan
met boven in beeld beveiligings waarschuwing in het rood

groetjes Creepher

 

[Cobbe]

Zal hem nog een posten.

Cobbe

 

[RaymondC]

@cobbe:

In je code van het userform gebruik je

Cells(laatsterij,1)=Textbox1

Is volgende code niet gemakkelijker? (deze ooit eens gebruikt voor een form die gemaakt had, extra info gekregen van popipipo)

Dim ctl_Cont As Control
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Ledenlijst")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TxtNaam.Value
ws.Cells(iRow, 2).Value = Me.TxtVoornaam.Value
ws.Cells(iRow, 3).Value = Me.TxtAdres.Value
ws.Cells(iRow, 4).Value = Me.TxtPostcode.Value
ws.Cells(iRow, 5).Value = Me.TxtGemeente.Value
ws.Cells(iRow, 6).Value = Me.TxtTelefoon.Value
ws.Cells(iRow, 7).Value = Me.TxtEmail.Value
ws.Cells(iRow, 8).Value = Me.CmbClub.Value

'clear the data
Me.TxtNaam.Value = ""
Me.TxtVoornaam.Value = ""
Me.TxtAdres.Value = ""
Me.TxtPostcode.Value = ""
Me.TxtGemeente.Value = ""
Me.TxtTelefoon.Value = ""
Me.TxtEmail.Value = ""
Me.CmbClub.Value = ""
Me.TxtNaam.SetFocus
For Each ctl_Cont In Me.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
If ctl_Cont.Value = "" Then
MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
End If
End If
Next

End Sub

 

[creepher]

Helaas kan ik hem niet open maken

Hierbij stuur ik je een printscreen van de melding die ik krijg
en verder dan hier kom ik helaas niet.
Ik zag net nog iets staan van een andere gebruiker iets met
Is volgende code niet gemakkelijker? (deze ooit eens gebruikt voor een form die gemaakt had, extra info gekregen van popipipo)
ik weet helaas niet wat ik hier mee moet voordat ik dadelijk weer iets fout doe

Mvgr Creepher

 

[Cobbe]

RaymondC,
Ja dat is veel beter, maar ik moet een en ander proberen uitleggen aan iemand die nog nooi t met deze vorm van code gewerkt heeft.
Dan leek het mij beter om zo eenvoudig en duidelijk mogelijk te coderen zodat een en ander leesbaar blijft voor een leek.

Creepher ,

Met welke versie werk jij? Bij mij werkt het perfect in 2000 en 2007

Cobbe

 

[creepher]

Reactie

Oh dusdat was niet voor mij bedoeld.
Maar kun je wel wat met de printscreen die ik erbij heb gedaan.????

Groetjes

 

[RaymondC]

@cobbe:

Nu lijkt het of ik de vraag verder aan het stellen ben, maar zat zelf nog met een klein probleempje.

Het verschil tussen combobox en listbox?
En hoe vul je deze ook al weer met informatie?

Sorry vraagsteller dat ik in uw bericht verder ga met vragen stellen.

 

[creepher]

Geen probleem hoor

Is niet erg hoor
zolang ik nog maar snap wat voor mij bedoeld is voor dat ik dadelijk weer
van die domme fouten ga maken.

Groetjes Creepher

 

[Cobbe]

RaymondC,
Als je de textboxen niet benoemd maar genummerd laat biedt dat het voordeel dat je een en ander in een lus kan zetten.

For i = 1 To 10
    Cells(laatsterij, i) = Controls("TextBox" & i)
    Controls("TextBox" & i).Value = ""
Next i

Wegschrijven en textboxen leegmaken in één lus.

Comboboxen vul je gewoon zoals Dropdowns in Eigenschappen - RowSource vul je de plaats van je gegevens in bv Data!A1:A20

Mvgr. Cobbe

 

[Cobbe]

Creepher,

Heb je het bestand nu al open?

Cobbe

 

[RaymondC]

Thanks Cobbe!!

 

[creepher]

Vraag

Hoi Cobbe
Heb je nog tijd gehad om naar het bestand voorraadbeheer, met het wachtwoord
te kijken.
En ik krijg nog steeds het bestand takenlijst niet geopend alleen maar met een fout
melden zoals ik die al had door gegeven.

Mvgr Creepher

 

[Cobbe]

Ik kan enkel nog eens het bestand posten. Nu weet ik nog altijd niet met welke Excelversie je werkt.

Cobbe

 

[creepher]

Excel versie

Hoi hoi
Ik werk thuis met excel 2010 en op school met 2003
Ik heb van de middag het bestand voorraadbeheer op school laten zien
en ik moest je de complimenten geven het zag er supper uit
bij deze geef ik het door, en ook nogmaals namens mij bedankt er voor.
Heb je nog eens tijd gehad om te kijken hoe ik dat met de beveiliging moet
doen. want nu kan een ieder alles wijzigen en dat wil ik eigenlijk niet want
anders wordt het toch een zooitje, en dat is veel te jammer.

Mvgr Marco

 

[creepher]

Nu kan ik hem wel openen

Hallo Cobbe
Nu kan ik hem wel open maken. ziet er al netjes uit.
Ik had alleen nog een paar verzoekjes als dat mogelijk is.
einddatum hoef niet perse verplicht te zijn om in te vullen.
Of het in vul scherm kleiner kan, en mijn bedoeling is dat dit bestand op school
op de server komt te staan.
Dus een ieder moet dan wel kunnen invullen maar mag niets wijzigen.
en dat ik dan op een of andere manier wel de opdracht zie en dan in het scherm
kan aangeven van is gemaakt of ik moet onderdelen bestellen en als het klaar is het klaar melden.
dus als ik van drie verschillende groepen een melding krijg dat ik die dan wel uit elkaar kan houden, van wie welke opdracht is en kan afhandelen.

Alvast van harte bedankt:thumb: