waardes in lijst zeten op datum

[mrnico]

Hallo

Ik ben opzoek naar het volgende.
Ik heb een lijst met waardes die elke dag ingevult moeten worden.
Deze wil ik graag op 1 blad invullen en hem dan automatich doorzetten naar het overzicht.
En dan de gegevens bij de desbetreffende datum in te vullen.



Bekijk bijlage Testdatumcop.xlsm

 

[Cobbe]

Probeer deze eens:

Sub cobbe()
 Application.ScreenUpdating = False
  Range("F6:F11").Copy
   With Sheets(" Overzicht per datum")
    Set r = .Range("A1 : A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find([D2])
     If Not r Is Nothing Then
      .Range("C" & r.Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
     End If
   End With
Application.ScreenUpdating = True
End Sub

 

[mrnico]

voor mijn voorbeeld werkt het inderdaad alleen staan in het origineel niet alle te verplaatsen cellen op een rij.

en de eerste 7 regels worden gebruikt voor algemene info

 

[Cobbe]

Nu je het zegt, dat had ik natuurlijk moeten weten. Stom hé.

 

[VenA]

Volgens mij kan je ze dan net zo goed direct op de juiste plaats invoeren.

@Cobbe, doet de glazen bol het niet:d

 

[Cobbe]

@Cobbe, doet de glazenbol het niet

Mijn madam heeft hem per ongeluk in de glascontainer gekieperd.

 

[mrnico]

Was misschien makkelijk geweest als ik het direct gemeld had.
Zou even een nieuw voorbeeld bestand plaatsen overige info er uitgehaald (wegens gevoelige info)
dit is 1 lijst in werkelijkheid zijn het meerdere lijsten die allemaal naast elkaar op het invul blad komen maar dat word kopiëren en klaar.
Bekijk bijlage Testdatumdivers.xlsm

 

[Cobbe]

Zo goed?

 

[VenA]

Iets ander idee. Find in combinatie met datums krijg ik vaak niet werkend.

Sub VenA()
  ar = Range("C4:C10")
  ar1 = Array(3, 8, 5, 6, 13, 10, 25)
  With Sheets("lijst1")
    r = Application.IfError(Application.Match([D2], .Columns(1), 0), 0)
    If r <> 0 Then
      For j = 1 To UBound(ar)
        .Cells(r, ar1(j - 1)) = ar(j, 1)
      Next j
    End If
  End With
End Sub

 

[mrnico]

Bedankt het is gelukt

 

[snb]

Zet de datum in het invulblad gewoon in cel C3.
Dankzij de systematische opbouw van Blad2 hoeft er niets gezocht te worden.

Sub M_snb()
  sn = Blad5.Range("C3:C10")
  y = 8 + sn(1, 1) - Blad2.Cells(8, 1)
  sp = Blad2.Cells(y, 3).Resize(, 23)
  
  For j = 1 To UBound(sn) - 1
     sp(1, Choose(j, 1, 6, 3, 4, 11, 8, 23)) = sn(j + 1, 1)
  Next
  
   Blad2.Cells(y, 3).Resize(, 23) = sp
End Sub