Code Aanpassen Werkt Niet

Status
Niet open voor verdere reacties.
Inmiddels een heel eind verder met het bestand, enige wat nog moet is de laaste paar checkboxen en optionbuttons toewijzen aan het onderhoudsrapport.

Blijf met 3 vragen zitten, die ik nog niet opgelost krijg.

- Als ik de checkboxen deselecteer zou op het rapport N/A moeten komen staan, ik krijg het alleen voor elkaar om het veld leeg te laten. Dit omdat ik niet snap hoe ik tussen lettertype kan wisselen

- Bij het afdrukken van het rapport zou ik de keuze willen hebben in welke map ik het bestand op wil slaan

- En ik krijg nog niet lekker voor elkaar om de naam van de monteur vast te houden bij afsluiten en opnieuw openenen van bestand.

Alvast bedankt voor jullie hulp
 

Bijlagen

  • Kopie van Multicare-1.xlsb
    297,2 KB · Weergaven: 76
Probeer dit eens voor jouw eerste vraag.
Code: 
Private Sub CheckBox1_Click()
 With Sheets("OH RAPPORT")
    If .Range("F14") = "ü" Then
        .Range("F14") = "N/A"
        .Range("F14").Font.Name = "Arial"
        .Range("F14").Font.Size = 10
    Else
        .Range("F14") = "ü"
        .Range("F14").Font.Name = "Wingdings"
        .Range("F14").Font.Size = 18
    End If
  
 End With
End Sub

p.s. Heb het zelf niet helemaal getest.
 
Beste Albert,

Dit lijkt prima te werken, super bedankt :thumb::thumb:

Heb ik weer wat tekst te typen de komende dagen

Update: het werkt toch niet zo goed als ik dacht, ik zie en snap niet wat er fout gaat. Maar de ene keer werkt het wel en de andere keer krijg ik gewoon rare windings plaatjes op mijn rapport
 

Bijlagen

  • Kopie van Multicare-1.xlsb
    301 KB · Weergaven: 42
Laatst bewerkt:
Gewoon code copiëren en plakken.
wijzig daarna de 1 van de Private Sub CheckBox1_Click() in 3 en de range F14 in F15 etc. etc.

Zal zeker wel allemaal korter kunnen, maar daarvoor is mijn kennis van VBA nog onvoldoende:rolleyes:
 
Dit heb ik uiteraard gedaan, maar toch werkt het niet om de een andere vage reden

Code: 
Private Sub CheckBox1_Click()
 With Sheets("OH RAPPORT")
    If .Range("F14") = "ü" Then
        .Range("F14") = "N/A"
        .Range("F14").Font.Name = "Arial"
        .Range("F14").Font.Size = 10
    Else
        .Range("F14") = "ü"
        .Range("F14").Font.Name = "Wingdings"
        .Range("F14").Font.Size = 18
    End If
  
 End With
End Sub
Private Sub CheckBox2_Click()
 With Sheets("OH RAPPORT")
    If .Range("G14") = "ü" Then
        .Range("G14") = "N/A"
        .Range("G14").Font.Name = "Arial"
        .Range("G14").Font.Size = 10
    Else
        .Range("G14") = "ü"
        .Range("G14").Font.Name = "Wingdings"
        .Range("G14").Font.Size = 18
    End If
  
 End With
End Sub
Private Sub CheckBox3_Click()
 With Sheets("OH RAPPORT")
    If .Range("F15") = "ü" Then
        .Range("F15") = "N/A"
        .Range("F15").Font.Name = "Arial"
        .Range("F15").Font.Size = 10
    Else
        .Range("F15") = "ü"
        .Range("F15").Font.Name = "Wingdings"
        .Range("F15").Font.Size = 18
    End If
  
 End With
End Sub
Private Sub CheckBox4_Click()
 With Sheets("OH RAPPORT")
    If .Range("G15") = "ü" Then
        .Range("G15") = "N/A"
        .Range("G15").Font.Name = "Arial"
        .Range("G15").Font.Size = 10
    Else
        .Range("G15") = "ü"
        .Range("G15").Font.Name = "Wingdings"
        .Range("G15").Font.Size = 18
    End If
  
 End With
End Sub
 
probeer dit eens.
Code: 
Private Sub CheckBox1_Click()
 With Sheets("OH RAPPORT")
    [COLOR="#FF0000"]If checkbox1=true Then[/COLOR]
        .Range("F14") = "N/A"
        .Range("F14").Font.Name = "Arial"
        .Range("F14").Font.Size = 10
    Else
        .Range("F14") = "ü"
        .Range("F14").Font.Name = "Wingdings"
        .Range("F14").Font.Size = 18
    End If
  
 End With
End Sub
En anders weet ik het ook niet rap.
 
Wederom bedankt voor je snelle reactie, het werkt opzich wel maar vaak moet ik de checkbox een keer extra aan/uitzetten om het goed te krijgen. Ik ga er morgen is verder op puzzelen.

Wellicht heeft iemand anders nog een idee / oplossing

De bedoeling is dat als de checkbox het vinkje uitstaat er op het rapport N/A komt te staan, als je hem weer aanvinkt moet op het rapport een vinkje komen staan.

Alvast bedankt,
 
Probeer deze eens voor de Checkboxen en optionbuttons.
p.s.
In jouw laatste bestand stonden de checkboxen niet goed op volgorde, heb dat aangepast.
 

Bijlagen

  • Multicare Marcel versie 3-2-2020.xlsb
    302 KB · Weergaven: 37
Bedankt voor al het werk wat je weer gedaan hebt, begrijp ik het goed dat de code die nu groen is weg kan?

Alles lijkt wel te werken zoals ik het zou willen, bedankt :thumb::thumb::thumb:
 
Die groene code kan inderdaad weg.
Ik zou graag jouw bestand eens willen zien.
Zelf mis ik een aantal zaken, maar misschien ben je daar zelf al achter gekomen.
Wijs er wel nog even op dat ik niet alle checkboxen en optionbuttons heb aangepast.
 
Laatst bewerkt:
Dit is mijn laatste versie waarin ik zojuist bezig was jou aanpassingen te verwerken.

De enige vragen die ik voorlopig nog open heb staan zijn:

- of bij het sluiten van de Userform bepaalde waardes kunnen blijven staan, en pas weer verdwijnen als je het hele bestand sluit,

- en het probleem met opslaan van het rapport, ik wil een map kunnen kiezen waarin ik het kan opslaan

Graag hoor ik welke zaken je mist in het bestand, dan kan ik wellicht vertellen hoe ik het opgelost heb
 

Bijlagen

  • Kopie van Multicare-1.xlsb
    307,1 KB · Weergaven: 39
Verander Unload Me in Me.hide
 
Natuurlijk blijft alles staan.
Je kan toch in de code aangeven welke leeggemaakt moeten worden?

Klein beetje nadenken mag bij een vraag in Excel ook.
 
Dat is nou net de vraag aan Marcel, "Welke waardes moeten blijven staan"
 
Vraag twee.
Code: 
With Application.FileDialog(msoFileDialogSaveAs) ' of (2)
    .InitialFileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name  'bv. veranderen in "C:\users\marcel\documents\map1\"
    .FilterIndex = 3 'is .xlsb 2 is .xlsm
    .Title = "Kies een lokatie en verander de bestandsnaam"
    .AllowMultiSelect = False
     If .Show Then .Execute
End With
 
Beste Albert,

Het gaat om Combobox 1 en Combobox 2, deze waarden moeten blijven staan

----------------

Bedankt HSV, maar het rapport moet als PDF opgeslagen worden niet het bestand zelf

Ik heb onderstaande code, maar krijg deze niet werkend in mijn bestand,

Code: 
ith Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecteer map"
        .ButtonName = .Title
        .Show
        If .SelectedItems.Count > 0 Then
            Sheets("OH RAPPORT").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=.SelectedItems(1) & "\" & Range("F7") & Range("K7") & Range("F8") & ".pdf", _
            OpenAfterPublish:=False 'Zet deze op False om de PDF niet te openen
 
Laatst bewerkt:
Zet dit eens voor Me.Hide
Code: 
For Each Ctrl In UserForm4.Controls
    If TypeName(Ctrl) = "CheckBox" Then
       Ctrl.Value = True
    End If
Next Ctrl

Dim i As Integer
For i = 2 To 52 Step 2 'dit het ik aangepast
    Me("OptionButton" & i).Value = True
    
    If Me("OptionButton" & i).Value = True Then
       Me("OptionButton" & i).BackColor = vbGreen
    End If
Next i

For Each Ctrl In UserForm4.Controls
    If TypeName(Ctrl) = "TextBox" Then
       Ctrl.Value = ""
    End If
Next Ctrl
 
Vraag 1: De rest maak je leeg in de code zodat combobox1 en 2 hun waarden behouden.
Geen idee om welk Userform het gaat en welke elementen erin zich bevinden.
Bv.
Code: 
textbox1 = ""
textbox3 = ""
of
Code: 
combobox3.listindex = -1

Vraag 2:
Code: 
With Application.FileDialog(msoFileDialogSaveAs)
 .FilterIndex = 25
 If .Show Then ThisWorkbook.ExportAsFixedFormat 0, .SelectedItems(1)
End With

Of een bepaalde map.
Code: 
With Application.FileDialog(msoFileDialogFolderPicker)
 If .Show Then ThisWorkbook.ExportAsFixedFormat 0, .SelectedItems(1) & "\test"
End With
 
Laatst bewerkt:
Beste Harry,

Het opslaan werkt niet zoals het zou moeten, hij slaat nu het complete bestand op als pdf. Terwijl ik alleen "OH RAPPORT" wil opslaan
Daarnaast selecteert deze nog niet automatisch op pdf
Daarnaast zou het handig zijn als het rapport gelijk een bestandnaam krijgt, in dit geval de waarden uit Textbox 1 en Textbox 2

-------------------------------

Beste Albert,

De waarden blijven staan na opslaan van het bestand en opnieuw openen, echter als ik de userform afsluit en weer open zijn de waarden wel weg. Het zou fijn zijn als ze dan ook blijven staan.
Dit geld ook voor textbox 25, als deze ingevuld is aan het begin van de dag, moet deze heel de dag blijven staan

Alvast bedankt,
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan