Rijen verbergen / Comboboxen / Gegevens invullen

[Sanski]

Goedenavond,

Ik had eerder al een topic maar heb vandaag alles kunnen omgooien en opnieuw mogen beginnen. Dit omdat we het anders wilden..

Nu ben ik hier al een avondje mee bezig en zit zo met drie vragen,
zaken die mij niet echt lukken.

Verbergen van rijen:
Hoe ik nu tewerk ga is de zaken die niet ingevuld worden weg te laten, dus rijen moeten verborgen worden, heb gezicht naar een code maar deze werkt niet bij mij, krijg steeds foutmeldingen.

[SQL] With Worksheets(Checklijst) '''verbergen van rijen
If CkbZwevendMeubel.Value = True Then
[A12:A16].EntireRow.Hidden = True
End If
End With[/SQL]

mss dat iemand hier kan vertellen wat ik fout doe.

Comboboxen:

De code die ik gebruik, krijg ik steeds de melding van dat hij transpore niet vindt ofzo iets. Kan er dan ook moeilijk aan uit.

[SQL]CmbChecklijstKeuzen.List = WorksheetFunction.Transpose([Gegevensdatabase!B3:B6])[/SQL]

Gegevens invullen:
Tot slot leg ik de linken van mijn userform naar het excel bestand, hier loopt telkens ook iets mis en ik weet niet wat, ook omdat het bij een ander deel wel lukt.
voorbeeld van de code:

[SQL] Sheets("Checklijst").Range("Selectievakje 2") = CkbZwevendMeubel.Value
Sheets("Checklijst").Range("D12") = CmbMateriaalSokkel.Text[/SQL]

Ik zal ook nog eens heel mijn bestand hierbij plaatsen, als er nog vragen zijn of meer uitleg nodig, laat me dan iets weten. Op voorbaat bedankt voor de hulp. Ik heb de delen in mijn codes die niet werken in het groen geplaatst, zodat deze niet deelnemen aan het programma voorlopig

Bekijk bijlage Checklijst nieuw.rar

 

[ExcelAmateur]

Sanski,

Graag de volgende keer je code selecteren en dan boven in het menu op # klikken.

CmbChecklijstKeuzen.List = WorksheetFunction.Transpose([Gegevensdatabase!B3:B6])

Moet zijn

Private Sub UserForm_Initialize()
    ''''****************Frime 1********************

    CmbChecklijstKeuzen.RowSource = "Gegevensdate!B3:B6"

    ''''*****************SOKKEL********************
End Sub

Of zoals Warme bakkertje voorstelde;

Private Sub UserForm_Initialize
With Sheets("Gegevensdate")
    CmbChecklijstKeuzen.List = WorksheetFunction.Transpose(.Range("B3:B" & .Cells(Rows.Count, 2).End(xlUp).Row))
    CmbMateriaalSokkel.List = WorksheetFunction.Transpose(.Range("C3:C" & .Cells(Rows.Count, 3).End(xlUp).Row))
  End With
End sub

With Worksheets([COLOR="red"]"[/COLOR]Checklijst[COLOR="red"]"[/COLOR])  'verbergen van rijen
    If CkbZwevendMeubel.Value = True Then
      [A12:A16].EntireRow.Hidden = True
    End If
End With

Kijk of het nu wel doet wat je wil.

 

[Sanski]

Bedankt, als ik zo kijk allemaal domme foutjes tot nu toe,
maar heb nog een vraagje ivm de selectievakjes op mijn excel blad.
Als ik mijn rijen verberg, blijven die selectievakjes toch staan en schuift dit gewoon mee op, hoe zorg ik ervoor dat die mee verborgen gaan?
En het linken van mijn checkboxen aan die selectievakjes lukt nog niet, krijg daar nog steeds een foutmelding voor.

 

[Sanski]

Hey,
Hier ben ik weer, heb een stuk code geschreven,
de bedoeling is dat je bij materiaalkeuze uit een lijst kiest (corian, laminaat, massief)
en naargelange de keuze dat je hier maakt, wordt de lijst kleurcode gekozen.
Omdat hiervan de kleuren verschillen, ik dacht dit te doen met volgende formule, maar ik krijg gewoon geen lijst bij kleurcode, maar ook geen foutmelding

    With Sheets("gegevensdate")
        
        CmbMateriaalSokkel.List = WorksheetFunction.Transpose(.Range("C3:C" & .Cells(Rows.Count, 2).End(xlUp).Row))
        
            If (CmbMateriaalSokkel.RowSource = "Gegevensdate!C3") Then
            CmbKleurcodeSokkel.List = WorksheetFunction.Transpose(.Range("H3:H" & .Cells(Rows.Count, 2).End(xlUp).Row))
            ElseIf (CmbMateriaalSokkel.RowSource = "Gegevensdate!C4") Then
            CmbKleurcodeSokkel.List = WorksheetFunction.Transpose(.Range("E3:E" & .Cells(Rows.Count, 2).End(xlUp).Row))
            ElseIf (CmbMateriaalSokkel.RowSource = "gegevensdate!C5") Then
            CmbKleurcodeSokkel.List = WorksheetFunction.Transpose(.Range("D3:D" & .Cells(Rows.Count, 2).End(xlUp).Row))
            End If
    
    End With

verder heb ik nog een vraag bij mijn lijst van materiaal, ik heb hierin 7materialen staan, en met die code moet hij heel de lijst aangeven, toch krijg ik in mijn keuzemenu alleen de eerste vier materialen en kan ik niet scorren of dergelijke naar beneden.

 

[ExcelAmateur]

Sanski,

Voor de 7 materialen, zie het rode.

CmbMateriaalSokkel.List = WorksheetFunction.Transpose(.Range("C3:C" & .Cells(Rows.Count, [COLOR="red"]3[/COLOR]).End(xlUp).Row))

Zo doet de kleurkeuze het wel.

Private Sub CmbMateriaalSokkel_Change()
  If CmbMateriaalSokkel.Value = "Corian" Then
    CmbKleurcodeSokkel.RowSource = "Gegevensdate!H3:H9"
  ElseIf CmbMateriaalSokkel.Value = "Laminaat" Then
    CmbKleurcodeSokkel.RowSource = "Gegevensdate!E3:E9"
  ElseIf CmbMateriaalSokkel.Value = "Massief" Then
    CmbKleurcodeSokkel.RowSource = "Gegevensdate!D3:D9"
  End If
End Sub

Er zal best wel iemand zijn die de code korter kan maken.

 

[Sanski]

Mooi :thumb:
Met je antwoorden werken beiden weer wel,
heb wel een vraag over je antwoord,
waar zit bij die rijen het verschil? dat je die 2 naar 3 moest veranderen?

Verder zit ik nog met mijn vraag ivm selectievakjes,
voorlopig is dit zo bij mij (zie formule) maar werkt het nog niet

    Sheets("Checklijst").Range("Selectievakje 2") = CkbSokkel.Value
    Sheets("Checklijst").Range("Selectievakje 2") = CkbZwevendMeubel.Value

en als ik rijen verberg, gaan deze selectievakjes niet mee verborgen,
hoe kan ik dit oplossen?

 

[Sanski]

Heb oplossing gevonden, vrij dom maar goed

Sheets("Checklijst").[Selectievakje 1] = CkbSokkel.Value

zo doet hij het wel,
enigste is nu nog weten hoe ik die selectievakjes kan verbergen,
in geval ik rijen verberg..

grt,
Sander

 

[ExcelAmateur]

Sanski,

Ik heb Selectievakje 1 met de cel B1 verbonden, de celkleur op wit gezet zodat je het niet ziet.
Zo heb ik het voor elkaar gekregen.
Er zal best wel iemand anders zijn die misschien een betere en kortere code hier voor heeft.

De onderstaande code staat in de Private Sub CkbZwevendMeubel_Click()

With Worksheets("Checklijst")
      If CkbZwevendMeubel.Value = True Then
        [A12:A16].EntireRow.Hidden = True    'Verbergen van de rijen
        If Range("B1") = 0 Then [Selectievakje 1].Visible = False
      ElseIf CkbZwevendMeubel.Value = False Then
        [A12:A16].EntireRow.Hidden = False   'Zichtbaar maken van de rijen
        If Range("B1") = 0 Then [Selectievakje 1].Visible = True
      End If
End With

De 2 naar 3 was omdat de gegeven in kolom 3 staan.

 

[Warme bakkertje]

With Worksheets("Checklijst")
      If CkbZwevendMeubel.Value = True Then
        .[A12:A16].EntireRow.Hidden = True    'Verbergen van de rijen
        If .Range("B1") = 0 Then .[Selectievakje 1].Visible = False
      ElseIf CkbZwevendMeubel.Value = False Then
        .[A12:A16].EntireRow.Hidden = False   'Zichtbaar maken van de rijen
        If .Range("B1") = 0 Then .[Selectievakje 1].Visible = True
      End If
End With

@ EA
Je was de puntjes bij de bereiken vergeten

@ Sander
Als antwoord op Post#4
Je moet het cijfer bij Rows.Count wijzigen naar het kolomnummer waaruit je de gegevens wil halen, dus bv

(.Range("H3:H" & .Cells(Rows.Count, [COLOR="red"]8[/COLOR]).End(xlUp).Row))

 

[Sanski]

Hey,

AE: het linken van mijn selectievakje heb ik anders gedaan,
waar ik uitmaak of iets zichtbaar is of niet heb ik volgende code toegevoegd

Sheets("Checklijst").[Selectievakje 3].Visible = False

hierdoor verdwijnt dit vakje, het enigste probleem dat ik nu hiermee nog heb, en dacht opgeslot te hebben door die Sheets("checklijst"). toe te voegen is, als ik niet op mijn tablat checklijst zit krijg ik een foutmelding.

WB: ik had al mijn rijen aangepast aan de codes, zodat elke rij het juiste nummer had, maar dan kreeg ik de foutmelding (fout 381) die ik niet meer kreeg weggewerkt. Op het forum had ik dan ook gezocht naar een oplossing, waar er meerdere vermeld waren, maar geen ééntje hielp voor mij. Gelukkig dat ik een back up had genomen alvorens ik dit had doorgevoerd. Zal het vandaag nog eens proberen, mss lukt het deze keer wel ...

Verder heb ik nog één vraag ivm het verbergen van cellen,
als een waarde false is, laat ik altijd rijen verbergen, opzich vrij simpel.
Maar nu wil ik een paar rijen verbergen op voorwaarden dat enkele waardes false zijn.
ik dacht aan

If (CkbTafel.Value = False and ckbbureau.Value =false) then

maar dit lijkt helemaal niet te werken, krijg hiervoor zelfs al direct een foutmelding.
iemand enige suggesties om dit wel te laten marcheren?

bij voorbaat dank,

grt,
Sanski

 

[ExcelAmateur]

AE: het linken van mijn selectievakje heb ik anders gedaan,
waar ik uitmaak of iets zichtbaar is of niet heb ik volgende code toegevoegd

Sheets("Checklijst").[Selectievakje 3].Visible = False

Als het naar tevredenheid werkt is het goed.

Als je 2x If gebruikt?

If CkbTafel.Value = False Then 
  ......
  If ckbbureau.Value =false Then
    ....
  End if
End if

 

[Sanski]

Hey,

Ik wil jullie allemaal bedanken,
Al mijn vragen zijn opgelost.

Grt,
Sanski

 

[ExcelAmateur]

Sanski,

Hier een kortere code voor het verbergen van de Selectievakjes.

With Sheets("Checklijst")
    If CkbZwevendMeubel.Value = True Then
      .[A11:A16].EntireRow.Hidden = True    'Verbergen van de rijen en Selectievakjes
         For i = 1 To 6
          .Shapes("Check Box " & i).Visible = False
        Next i
    ElseIf CkbZwevendMeubel.Value = False Then
      .[A11:A16].EntireRow.Hidden = False   'Zichtbaar maken van de rijen en Selectievakjes
        For i = 1 To 6
          .Shapes("Check Box " & i).Visible = True
        Next i
    End If
  End With