• 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.

Rij verplaatsen naar ander blad

  • Onderwerp starter Onderwerp starter Tae
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Tae

Gebruiker
Lid geworden
5 dec 2016
Berichten
27
Beste,

In de bijlage een verkleint bestandje met namen vanBekijk bijlage Jaarplanning test.xlsm klanten en in dezelfde rij nummers van de uitvoeringsweken daarachter geplaatst.

Is het mogelijk dat als in de tabblad "week selectie" een weeknummer wordt geselecteerd de corresponderende namen vanuit de planning worden gehaald en gekopieerd naar het tabblad "week selectie".

Met vriendelijke groet,
Tae
 
Het zal misschien aan mij liggen, ik kan geen weeknummers terugvinden in uw tabblad planning, alleen getallen.
 
In moduleblad 'week selectie'; die knop mag je verwijderen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sn, sp, c As Range, c00 As String, firstaddress As String
If Target.Address = "$H$4" Then
Application.EnableEvents = False
With Sheets("planning")
sn = .UsedRange
 Set c = .UsedRange.Find(Target, , xlValues, xlWhole)
    If Not c Is Nothing Then
      firstaddress = c.Address
      Do
       If c.Column > 2 Then
        c00 = c00 & sn(c.Row, 1) & vbLf
       End If
     Set c = .UsedRange.FindNext(c)
 Loop While Not c Is Nothing And c.Address <> firstaddress
End If
    With Cells(6, 1)
    .CurrentRegion.ClearContents
      If c00 <> "" Then
           sp = Split(c00, vbLf)
          .Resize(UBound(sp)) = Application.Transpose(sp)
        Else
          .Value = "geen gegevens"
      End If
    End With
  Application.EnableEvents = True
 End With
 End If
End Sub
 
Laatst bewerkt:
Beste Harry,

Exact wat ik graag wil. Bedankt voor jouw code.

Met vriendelijke groet,
Tae
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan