Lege cellen uitt blad verwijderen

[BaBer]

Hallo,

Ik heb een Excel sheet met daarin diverse kolommen, de ene wel gevuld de andere niet. De gevulde data moet naast elkaar komen, gecombineerd met de volgende cel.
Ik begrijp dat dit vrij cryptisch is, maar de bijlage zegt veel.
Ik heb het gele gemarkeerde gedeelte HANDMATIG aangepast tot de gewenste uitkomst (zie tabblad gewenste uitkomst).
Hoe krijg ik dit automatisch voor elkaar over het gehele tabblad zonder dat de link tussen het artikel, de staffelhoeveelheid en de prijs te verliezen en dat de data aan een sluitend wordt (i.v.m. inlezen in ons ERP systeem?).

Ik ben niet thuis in programmeren of iets dergelijks maar met hulp kom ik hier hopelijk uit.
NB. dit is slechts een selectie van alle data



Alvast bedankt.

 

[Hiru]

Wat mogelijk zou zijn om alles met een ALS formule te maken.
Het is even lang werken maar dan werkt het mogelijk wel.

(CEL: B2)

=ALS(Input!C2>0;Input!B2;ALS(Input!E2>0;Input!D2;""))

(Staffel controle 1 en 2) (kijkt of staffel 1 bepaalde prijs achter zich heeft staan zo ja dan zet ie daar staffel 1 neer)

(CEL C2)

=ALS(Input!C2>0;Input!C2;ALS(Input!E2>0;Input!E2;""))

(Prijs controle voor staffel 1 en 2) (heeft staffel 1 een bepaalde prijs zet hij deze neer.

Deze kan je dus zo ver uitbreiden als je staffels en artikelen hebt.
Als het goed is zou het wel moeten werken maar zou via VBA en mogelijk andere code mogelijkheden een makkelijkere oplossing bestaan.

 

[Niels28]

Sub staffel()
Application.ScreenUpdating = False
    With Sheets("input")
        For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            For j = 3 To .Cells(2, Columns.Count).End(xlToLeft).Column Step 2
                If IsNumeric(.Cells(i, j).Value) And Not IsEmpty(.Cells(i, j)) Then
                    Sheets("gewenste uitkomst").Cells(i, 1).Value = .Cells(i, 1).Value
                    Sheets("gewenste uitkomst").Cells(i, Sheets("gewenste uitkomst").Cells(i, Columns.Count).End(xlToLeft).Column).Offset(0, 1).Value = .Cells(i, j).Offset(0, -1).Value
                    Sheets("gewenste uitkomst").Cells(i, Sheets("gewenste uitkomst").Cells(i, Columns.Count).End(xlToLeft).Column).Offset(0, 1).Value = .Cells(i, j).Value
                End If
            Next
        Next
    End With
Application.ScreenUpdating = True
End Sub

Niels

 

[BaBer]

Geweldig het werkt prima Niels28!:thumb:

 

[Niels28]

Zet je de vraag dan op opgelost.

Niels