• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Userform Is Nothing Then ListBox1.RemoveItem. Methode Intersect van object_gobal erro

Status
Niet open voor verdere reacties.
E

Esducsafe

Gebruiker
Lid geworden
2 sep 2009
Berichten
185
@Helpers

Na veel gepuzzel een oplossing gevonden om verborgen rijen niet in het Userform te tonen

Wanneer het Userform1 via sheet 2 wordt gestart werkt het niet!
Alleen rij 1 wordt dan weergegeven.

Verder zoek ik een oplossing om de range A1: D14 (Rowsource Userform) naar een andere plek op de sheet te verplaatsen. Bijvoorbeeld: H20: K24

Wie kan mij helpen?
Alvast bedankt
Esko
 

Bijlagen

  • object_Global.png
    object_Global.png
    8,3 KB · Weergaven: 44
  • Userform Methode Intersect van Object_Global.xls
    39,5 KB · Weergaven: 26
Probeer het zo eens.

Code: 
If Sheets(1).Rows(j).Hidden Then ListBox1.RemoveItem j - 1
 
Of zo natuurlijk:
 

Bijlagen

  • Userform Methode Intersect van Object_Global.xls
    50,5 KB · Weergaven: 29
Gobbe en VenA,

Dank voor de snelle reactie.
Het werkt, ik ga nog uitzoeken wat (waarom) ik (het) niet kon oplossen.
Of ik nu de source kan verplaatsen heb ik nog niet kunnen testen.

Wanneer moet je zelf stoppen (met zoeken) en je vraag op Helpmij zetten.
Ook nu weer sta ik versteld hoe snel een reactie.
Hartstikke tof, enorm bedankt.
Groet,
Esko
 
Ik heb het kopiëerwerk nu zo staan dat dit gebeurt bij het sluiten van het Userform.
 

Bijlagen

  • Userform Methode Intersect van Object_Global (cobbe).xls
    55,5 KB · Weergaven: 31
Verplaatsen zoekgebied (matrix)

Verplaatsen matrix (zoekgebied Userform)

Code: 
Private Sub UserForm_Initialize()

With Sheets(1)
Dim j As Long

'On Error Resume Next 'cells(99,5) row 99 en start matrix D99
  With Sheets(1)
        ListBox1.List = .Cells(699, 5).CurrentRegion.Value 'Kolom start nu in cell D  699 rijen omlaag
                                                            'stel count columns eigenschappen in op 3 dan 3 kolommen
        For j = UBound(ListBox1.List) To 1 Step -1
        If Intersect(.Cells(j + 699, 5), .UsedRange.Columns(2).SpecialCells(xlCellTypeVisible)) Is Nothing Then
          ListBox1.RemoveItem j
        End If
    Next
  End With    
End With
End Sub
[/CODE]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan