Macro

[Abco_B]

Stel:

Ik heb een werkmap met werkbladen met meldingen van technische storingen en een blad gereed waar een opgeloste storingsmelding naar toe wordt verplaatst.

Blad Elec
Blad Werk
Blad Bouw
Blad Gereed


Vraag:

Ik heb een macro nodig die onderstaande zaken uitvoert:

Huidig actief tabblad “onthouden”

Ga in actieve rij naar kolom K

Vul huidige datum in

Selecteer hele rij

Knip rij

Ga naar blad “Gereed”

Ga naar de eerste lege rij

Plak rij

Ga terug naar “Huidige tabblad”

Verwijder lege rij


Bij voorbaat dank !

 

[Roncancio]

Sub Macro1()
WB = ActiveSheet.Name
Worksheets(WB).Cells(ActiveCell.Row, "K") = Format(Now, "dd-mm-yy")
ActiveCell.EntireRow.Select
Selection.Cut
Worksheets("Gereed").Activate
rij = 1
While Worksheets("Gereed").Cells(rij, "K") <> ""
rij = rij + 1
Wend
Rows(rij & ":" & rij).Select
ActiveSheet.Paste
Worksheets(WB).Select
End Sub

 

[Abco_B]

Bedankt voor de snelle reactie.

Ga hem morgen even testen !

 

[Abco_B]

Vervolg

Sub Gereedmelden_Test()

WB = ActiveSheet.Name
Worksheets(WB).Cells(ActiveCell.Row, "O") = Format(Now, "dd-mm-yy")
ActiveCell.EntireRow.Select
Selection.Cut
Worksheets("Gereed").Activate
rij = 1
While Worksheets("Gereed").Cells(rij, "A") <> ""
rij = rij + 1
Wend
Rows(rij & ":" & rij).Select
ActiveSheet.Paste
Worksheets(WB).Select

End Sub

De makro doet het op zich prima, echter:
- hij voert als datum 4-7-2006 in ipv 7-4-2006
- ik wil hem ook de lege rij van de verplaatste cellen laten weghalen, zodat alle rijen weer netjes aaneengesloten zijn.

Abco

 

[Roncancio]

Sub Macro1()
WB = ActiveSheet.Name
Worksheets(WB).Cells(ActiveCell.Row, "K") = Now
Application.ScreenUpdating = False
ActiveCell.EntireRow.Select
Selection.Cut
Worksheets("Gereed").Activate
rij = 1
While Worksheets("Gereed").Cells(rij, "K") <> ""
rij = rij + 1
Wend
Rows(rij & ":" & rij).Select
ActiveSheet.Paste
Worksheets(WB).Select
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False

 

[Abco_B]

Bedankt !

Beste Roncancio,

Werk prima zo !

Bedankt,

Abco