hulp gevraagd bij opmaak van gekopieerde regels

[nhojnavslig]

Hallo iedereen,
Zou iemand mij willen helpen met de 2 gestelde vragen in het bijgevoegd voorbeeld bestandje, ...?
Het gaat om het (automatisch) "opmaken" van gekopieerde regels in een ander blad.

Ik hoop dat de uitleg in het voorbeeldje duidelijk is , ...

Bij voorbeeld dank, John van Gils

 

[DigiCafee]

geen bestand ?

 

[Senso]

Editor > Ga geavanceerd > Paperclip > Bestand uploaden en in editor plaatsten met paperclip.

 

[nhojnavslig]

Oeps, ....
Bij deze dus,

 

[nhojnavslig]

Hallo allemaal,
Het blijkt dat ik veel te "moeilijk" heb zitten denken :shocked: :shocked:
De rand om de gekopieerde regels kon gewoon simpel met voorwaardelijke opmaak geregeld worden !!

Blijft over, de 2e vraag, hoe kun je ervoor zorgen dat de volgende kopieer-actie netjes onder de vorige geplakt word ??

Iemand een hint ?

Alvast bedankt !
John van Gils

 

[VenA]

Maak gebruik van VBA

Sub Noteren()
  Cells(Rows.Count, 4).End(xlUp).Offset(1).Resize(, 3) = Application.Transpose(Cells(2, 2).Resize(3))
  Range("D4:F" & Cells(Rows.Count, 4).End(xlUp).Row).Sort Range("D4"), , Range("E4"), , , , , yes
End Sub

Sub Klaar()
  If MsgBox("Ben je zeker? De lijst word hierdoor gewist", vbYesNo, "Klaar") = vbYes Then
    Range("C2:F" & Cells(Rows.Count, 4).End(xlUp).Row).Copy
    With Sheets("Klaar").Cells(Rows.Count, 1).End(xlUp).Offset(2)
      .PasteSpecial xlPasteFormats
      .PasteSpecial xlPasteValues
      For Each ar In .Parent.Columns(2).SpecialCells(2)
        ar.CurrentRegion.Borders.LineStyle = xlContinuous
      Next ar
    End With
    Union(Range("E2:F2"), Range("D5:F" & Cells(Rows.Count, 4).End(xlUp).Row)).ClearContents
  End If
End Sub

Het sorteren zou ik overigens in de sub klaar zetten.

 

[nhojnavslig]

Hallo VenA,

HAHA, "maak gebruik van VBA", ..... :d das een goeie !!

Ik ben weer reuze blij met je oplossing !!

Hartelijk BEDANKT !

John van Gils