inhoud van voorblad automatisch laten overnemen op gekopieerde tabbladen

[MoniekiM]

zeker!!

Ik ben nu bezig met de doorlooptijd aan te passen. Door knippen en plakken werkte dit niet meer.
Als het goed is, klopt het nu.
Nu nog even kijken hoe ik het aantal dagen tot de deadline in het Overzicht krijg.

groetjes,
Mo

 

[MoniekiM]

toch weer een probleem

Hi Harry,

Er is iets raars met de volgende code: Net had ik hem weer aan de praat en nu is hij er weer mee gestopt. Ik krijg verschillende foutmeldingen. als ik alles van de bBox verwijderde, deed hij het wel. Nu is hij er maar helemaal mee gestopt. Volgens mij zie ik iets over het hoofd.

With Cells(Rows.Count, 1).End(xlUp)
    .Offset(3).Resize(, 3) = Array("", hBox.Value, Now())
    .Offset(4, 2).Resize(, 1) = "Het volgende is besproken:"
    .Offset(5).Resize(, 4) = Array("Bedrijf:", bBox.Value, "", vBox.Value)
    .Offset(6).Resize(, 2) = Array("Contact over:", oBox.Value)
    .Offset(7).Resize(, 2) = Array("Contact met:", mBox.Value)
    .Offset(8).Resize(, 2) = Array("Contact per:", pBox.Value)
End With

With Sheets("Lijsten")
 If IsError(Application.Match(mBox, .Columns(2), 0)) Then .Cells(Rows.Count, 2).End(xlUp).Offset(1) = mBox
 If IsError(Application.Match(vBox, .Columns(4), 0)) Then .Cells(Rows.Count, 4).End(xlUp).Offset(1) = vBox
If IsError(Application.Match(hBox, .Columns(5), 0)) Then .Cells(Rows.Count, 5).End(xlUp).Offset(1) = hBox
If IsError(Application.Match(bBox, .Columns(6), 0)) Then .Cells(Rows.Count, 6).End(xlUp).Offset(1) = bBox
End With
Unload Me

Private Sub UserForm_Initialize()

 With Sheets("Lijsten").Cells(1).CurrentRegion
    oBox.List = .Columns(1).Offset(1).SpecialCells(2).Value
    mBox.List = .Columns(2).Offset(1).SpecialCells(2).Value
    pBox.List = .Columns(3).Offset(1).SpecialCells(2).Value
    vBox.List = .Columns(4).Offset(1).SpecialCells(2).Value
    hBox.List = .Columns(5).Offset(1).SpecialCells(2).Value
    bBox.List = .Columns(6).Offset(1).SpecialCells(2).Value
    
 End With
End Sub

en dan nog een probleem:
Graag wil ik op het voorblad zetten ik welke fase het project zit, en het aantal dagen tot de deadline. Nu staat deze info in de cellen K9 en L9. dit heb ik geprogrammeerd bij de keuze knoppen. de code zit niet in deze werkmap.
Ik dacht ik maak een verwijzing: ="1"!K9 enz. maar dan klopt het plakken in de eerste lege cel niet, én ik kan de verwijzing niet maken, omdat het tabblad nog niet bestaat.

Hopelijk heb je een oplossing

Groetjes,
Mo

 

[HSV]

Hallo Moniek.

Kolom D moet minimaal twee verslagen tellen alvorens .List werkt.
In dit geval drie doordat ik de bovenste rij buiten beschouwing laat (offset(1)).
Idem voor de kolommen E en F.

Wat is het vooblad?
Kan je die vraag nog verduidelijken?

 

[MoniekiM]

je bent weer geweldig

Idd probleem opgelost. Ik ging de boel opruimen en had de inhoud van de lijsten gedeletet, toen gooide ik de handdoek in de ring...

Wat betreft het andere:
Op overzichtaanvragen moet in de laatste twee kolommen de inhoud van de cellen K9 en L9 komen van "logboek1".
Dus dan heb je in 1 keer een overzicht in welke fase de projecten zijn die in de tabbladen staan.
In de cellen van F11:F16 staan berekeningen hoe lang het nog duurt voor de deadline bereikt is.
Wat ik moeilijk vind is de rij van overzichtaanvragen te vullen met de cellen K9 en L9 van het betreffende tabblad. naam rij = naam tabblad

hoop dat het nu duidelijk is.
anders hoor ik het wel.

trouwens wel te gek dat je me zo goed helpt

Mo

 

[HSV]

Het is geen probleem hoor om te helpen.

Als ik op de knop "Nieuw Project" klik moeten die gegevens erbij komen?

 

[MoniekiM]

:thumb:

ja, de gegevens worden op het overzicht ingevuld in de kolommen 1 tm 4 en in de kolommen 5 moet nog een aanvraagnummer komen, dat wordt later ingevuld en in kolom 6 en 7 wil ik dan de gegevens over de voortgang hebben.

Mo

 

[HSV]

Test het maar eens Mo.

 

[MoniekiM]

thx Harry,

Ik ga nu eerst even eten, Kijk zo goed. Het lijkt er op of dat het oke is!:d

Mo

 

[MoniekiM]

Hi Harry,

Hij werkt. Yeahh Het is alleen wel de bedoeling dat hij refreshed.
Zou je de code zo aan kunnen passen dat wanneer de cellen K9 en L9 veranderen, dat de kolommen 6 en 7 dat ook doen?
Ik zit te denken aan een knopje waarmee je kunt refreshen.
Ik zit een beetje vast hoe ik het aan kan pakken, omdat er steeds rijen bijkomen.
Zou het kunnen dat je een code schrijft dat er bij een nieuw project een ="Sheetname.value"!K9 en ="Sheetname.value"!L10 in de kolommen 6 en 7 komt?

groetjes en fijne avond,
Mo

 

[HSV]

Hoi Moniek,

Verander de code eens in:

Private Sub Cmdknop_toevoegen_Click()
With Sheets("OverzichtAanvragen")

 '.Unprotect

If Trim(Sheetnummer.Value) = "" Then
  Sheetnummer.SetFocus
  MsgBox "Kijk op het overzicht en voer het eerst openstaande Logboeknummer in"
  Exit Sub
End If

If Trim(projectnummer.Value) = "" Then
  projectnummer.SetFocus
  MsgBox "Voer het projectnummer in"
  Exit Sub
End If

If Trim(projectnaam.Value) = "" Then
  projectnaam.SetFocus
  MsgBox "Voer de projectnaam in"
  Exit Sub
End If
    
If Trim(aanvraagDatum.Value) = "" Then
  aanvraagDatum.SetFocus
  MsgBox "Voer de aanvraagdatum in"
  Exit Sub
End If

'.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True


        If Not WSExists(CStr(Sheetnummer)) Then
            Sheets("logboek1").Copy , Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = Sheetnummer
            Sheets(CStr(Sheetnummer)).Cells(1) = Sheetnummer
        End If

    With .Cells(Rows.Count, 1).End(xlUp)
      .Offset(1).Resize(, 4) = Array(Sheetnummer, projectnummer, projectnaam, aanvraagDatum)
      .Offset(1, 5) = "='" & Sheetnummer & "'!K9"
      .Offset(1, 6) = "='" & Sheetnummer & "'!L9"
    End With
 End With
Unload Me
End Sub

Nu staan er formules in de cellen.

 

[MoniekiM]

Hij is helemaal goed nu!
Geweldig bedankt Harry!
Sorry dat het even duurde voor ik reageerde, ik moest werken.

Mo

 

[HSV]

Graag gedaan Moniek.

Ik heb er geen haast mee gehad hoor.
Werk gaat voor en kan bij mij ook zomaar midden in de nacht gebeuren bij calamiteiten.

Veel plezier ermee.