Nieuwe regels genereren op basis van bestaande

[Vishal]

Hallo,

Ik zit met een vraag met de hoop dat jullie er raad mee weten.

Ik heb een excel bestand met verschillende waarden in tabblad stambestand.
al die regels moeten gedupliceerd worden in tabblad uitvoer. De gedupliceerde regels moeten aangepast worden in 3 kolommen, nammelijk kolom Type, nummering en afschrijfboek. De waarden zijn wel bekend.

De orginele regel moet in Type standaard de waarde 1 krijgen en in gegenereerde de waarde `2`

Nummering wordt bepaald aan de hand van de afschrijfboek wat er in de veld staat.. (hier heb ik nu verticaal zoeken formule voor gemaakt)

Afschrijfboek staan in werkblad "stambestand"

Ik heb een tabblad gemaakt met de gewenste resultaat om een voorbeeld te laten zien hoe ik het graag zou willen zien..(maar dan geautomatiseerd)

Is dit uberhaupt mogelijk en kan iemand me erbij helpen.. Met Macro opnemen kwam ik niet uit.

Alvast bedankt

Vishal

 

[Niels28]

zo iets?

Sub uitvoer()
    With Sheets("stambestand")
        For Each cl In .Range("A8:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            With Sheets("Gewenst Resultaat").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .Resize(5, 10).Value = cl.Resize(1, 10).Value
                
                For i = 1 To 4
                    .Offset(i).Value = 2
                    .Offset(i, 1).Value = i
                    .Offset(i, 3).Value = .Offset(, 3).Value + i
                    .Offset(i, 5).Value = .Offset(, 5).Value + i
                    If i <> 4 Then .Offset(i + 1, 8).Value = "plan " & i
                Next
            End With
        Next
    End With
End Sub

Niels

 

[Vishal]

Het ziet er al Top uit, allen paar vragen hierover. Ik zie dat je in de macro woord plan opneemt.. Afschrijvingsboeken kunnen ook anders heten. Het zou mooi zijn als de tekst uit de cel wordt gekopieerd.

Ten 2de.. zou ik graag hoe waarin je aangeeft welke kollom aangepast zou moeten worden.. Ik heb namelijk een klein deel van de excel bestand verzonden. Mijn orginele bestand bevat veel meer waarden.

 

[Niels28]

Ik ga uit van kolom A , de offset (rij,kolom) hoeveel rijen/kolommen er opgeschoven moet worden.

Sub uitvoer()
    With Sheets("stambestand")
        For Each cl In .Range("A8:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            With Sheets("Gewenst Resultaat").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .Resize(5, 10).Value = cl.Resize(1, 10).Value
                .Resize(1, 10).Interior.Color = vbRed 'toegevoegd voor als je de hoofdregel gekleurd wilt hebben
                For i = 1 To 4
                    .Offset(i).Value = 2
                    .Offset(i, 1).Value = i
                    .Offset(i, 3).Value = .Offset(, 3).Value + i
                    .Offset(i, 5).Value = .Offset(, 5).Value + i
                    .Offset(i, 8).Value = Sheets("uitvoer").Range("i2").Offset(i).Value
                Next
            End With
        Next
    End With
End Sub

Niels

 

[Vishal]

Niels,
Hartelijk dank voor je hulp..

Ik ben er uit. Sta je open voor het geven van een cursus VBA?

 

[Niels28]

Je kunt de vragen hier stellen, er zal altijd wel iemand zijn die hem kan beantwoorden.
Maar ik zal beginnen met deel 1 van de cursus

Als je een excelbestand hebt met een macro moet je deze opslaan als een .xlsm bestand anders wordt de macro verwijderd,
zoals nu in je voorbeeld is gebeurt.

Niels